Ö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.
Örnek Bir Çalışma:
Not Defteri - VBDersleri.Tr.Gg
Ö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.
Batuhan Pol

Batuhan P.

12'li yaşlarda tanıştığım bu sektöre şuanla beraber olmak üzere 10 yıldır sürdürmekteyim. Küçük yaşlarda milyonların girdiği projeler yapsamda çocukluk aklım ve imkanlar dolayısıyla erken biten maceralar oldu. Şimdi ise yerlerinde başkaların yaptığı projeler var. Yoksa bende milyoner olurdum heralde :)

Post A Comment:

0 comments: