This tut is on how to make a simple notepad in vb8
keep patient because i will release tut on how to make a advanced notepad!.
Lets start:
First you will need :
menu strip
Rich text box
thats about all :L
First click on the menu strup and type
file
then under file type new
open
save
then next to file type edit
under edit type:
undo
redo
now next to edit type format
under format type:
font
colour
now you should have some thing looking like this:
now for the code (i bet you liek wow :L)
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, RichTextBoxStreamType.RichText)
End If
Catch ex As Exception : End Try
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 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
Colour:
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
*NOTE*
I made this tut on my site...so im not trying to take credit(and is this leeching?)
please please thank me if this worked becuase it took alot of time
