Visual Basic Dersleri

Not Defteri Yapma

   Bu Ders Hakkında Sorularınız Varsa Lütfen Buraya Tıklayarak Forum Sayfamızda Bu Konunun Başlığı Hakkında Sorunlarınızı Yazınız.

Ö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.

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.