[Vb.net] Not defteri yapma

[Nazdravia]

1 Rich Text Box, 9 buton, 1 Save Dialog ve 1 Open Dialog ekleyelim.



Butonlarımızın ismi şöyle olsun: Kaydet, Aç, Kes, Kopyala, Yapıştır, Temizle, Geri Al, İleri Al, Hepsini Seç.





Kaydet Butonuna :

Try
Dim d1g As SaveFileDialog = New SaveFileDialog
d1g.Title = "Save"
d1g.Filter = "Rich Text Files (*.rtf)|*.rtf"
If d1g.ShowDialog() = Windows.Forms.DialogResult.OK Then
RichTextBox1.SaveFile(d1g.FileName, RichTextBoxStreamType.RichText)
End If
Catch ex As Exception

End Try

Aç Butonuna:

Try
Dim d1g As OpenFileDialog = New OpenFileDialog
d1g.Title = "Open"
d1g.Filter = "Rich Text Files (*.rtf)|*.rtf"
If d1g.ShowDialog() = Windows.Forms.DialogResult.OK Then
RichTextBox1.LoadFile(d1g.FileName)
End If
Catch ex As Exception

End Try

Kes Butonu:

RichTextBox1.Cut()

Kopyala Butonu:

RichTextBox1.Copy()

Yapıştır Butonu:

RichTextBox1.Paste()

Temizle Butonu:

RichTextBox1.Clear()

Geri Al Butonu:

RichTextBox1.Undo()

İleri Al Butonu:

RichTextBox1.Redo()

Hepsini seç Butonu:

RichTextBox1.SelectAll()

 

[müdnödireg]

goood ......