Örnek Bir Çalışma:
Öncelikle boş bir form açalım. Forma 2 adet button ve 1 adet RichTextBox ekleyelim. Butonları ve RichTextBox'ı istediğiniz gibi dizebilirsiniz. Veyatta isterseniz yukarıdaki gibide dizebilirsiniz. Sonra kendinize göre dizdikten sonra "Button1" e çift tıklayarak form alanını açın, sonra içerisine alttaki kodları yazın.
Sonra "Button1" e çift tıklayarak karşınıza çıkacak kod penceresinede aşağıdaki kodları yazın.
Not Defterimiz bitmiştir.
Şimdi "Button1"in adını "Aç" "Button2"nin adını ise "Kaydet" diye yazınız.
Bitmiştir. Şimdi istediğiniz gibi kullanabilirsiniz.
Öncelikle boş bir form açalım. Forma 2 adet button ve 1 adet RichTextBox ekleyelim. Butonları ve RichTextBox'ı istediğiniz gibi dizebilirsiniz. Veyatta isterseniz yukarıdaki gibide dizebilirsiniz. Sonra kendinize göre dizdikten sonra "Button1" e çift tıklayarak form alanını açın, sonra içerisine alttaki kodları yazın.
Dim Open As New OpenFileDialog()
Dim myStreamReader As System.IO.StreamReader
Open.Filter = "Plain Text Files (*.txt)|*.txt|All files (*.*)|*.*"
Open.CheckFileExists = True
Open.Title = "Open"
Open.ShowDialog(Me)
Try
Open.OpenFile()
myStreamReader = System.IO.File.OpenText(Open.FileName)
RichTextBox1.Text = myStreamReader.ReadToEnd()
Catch ex As Exception
' Do nothing on Exception
End Try
Sonra "Button1" e çift tıklayarak karşınıza çıkacak kod penceresinede aşağıdaki kodları yazın.
Dim saveDLG As SaveFileDialog = New SaveFileDialog
saveDLG.Filter = _
"Plain Text Files (*.txt)|*.txt|All files (*.*)|*.*"
If saveDLG.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim w As IO.StreamWriter = New IO.StreamWriter(saveDLG.FileName, False)
w.Write(RichTextBox1.Text)
w.Flush()
w.Close()
w = Nothing
End If
saveDLG.Dispose()
Not Defterimiz bitmiştir.
Şimdi "Button1"in adını "Aç" "Button2"nin adını ise "Kaydet" diye yazınız.
Bitmiştir. Şimdi istediğiniz gibi kullanabilirsiniz.
Post A Comment:
0 comments: