Скачать или смотреть How to make an advanced NotePad

in this video i'll show you how to make an advanced notepad

Codes:

New:
Richtextbox1.clear

Open:
Try
Dim dlg As OpenfileDialog = new openfiledialog
dlg.title= "Open"
dlg.filter = "rich text files (*.rtf) |*.rtf"
if dlg.showdialog() = system.windows.forms.dialogresult.ok then
richtextbox1.loadfile(dlg.filename)
end if
catch ex as exception : end try

Save:
Try
Dim dlg As SavefileDialog = new savefiledialog
dlg.title= "Save"
dlg.filter = "rich text files (*.rtf) |*.rtf"
if dlg.showdialog() = system.windows.forms.dialogresult.ok then
richtextbox1.savefile(dlg.filename, richtextboxstramtype.richtext)
end if
catch ex as exception : end try

Exit:
End

Undo:
Richtextbox1.undo

Redo:
Richtextbox1.redo

Cut:
Richtextbox1.Cut

Copy:
Richtextbox1.Copy

Paste:
Richtextbox1.Paste

Clear:
Richtextbox1.clear

Select all:
Richtextbox1.selectall

Font:
Try
Dim dlg As ColorDialog = New ColorDialog
dlg.Color = RichTextBox1.ForeColor
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.ForeColor = dlg.Color
End If
Catch ex As Exception : End Try

Colour:
Try
Dim dlg As FontDialog = New FontDialog
dlg.Font = RichTextBox1.Font
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.Font = dlg.Font
End If
Catch ex As Exception : End Try