Notes

Public Class Form1

Private Sub TypeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TypeToolStripMenuItem.Click

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = "Notepad Demo [Untitled.stf]"
End Sub

Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click
RichTextBox1.Clear()
Me.Text = "Notepad Demo [Untitled.stf]"
End Sub

Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click
ofd1.DefaultExt = "*.stf"
ofd1.Filter = "Smart Text Files|*.stf"
If (ofd1.ShowDialog() = System.Windows.Forms.DialogResult.OK) _
And (ofd1.FileName.Length > 0) Then
RichTextBox1.LoadFile(ofd1.FileName)
Me.Text = ("Notepad Demo [" + ofd1.FileName + "]")
End If
End Sub

Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub

Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click
sfd1.DefaultExt = "*.stf"
sfd1.Filter = "Smart Text Files|*.stf"
If (sfd1.ShowDialog() = System.Windows.Forms.DialogResult.OK) _
And (sfd1.FileName.Length > 0) Then
RichTextBox1.SaveFile(sfd1.FileName)
Me.Text = ("Notepad Demo [" + sfd1.FileName + "]")
End If
End Sub

Private Sub SaveAsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveAsToolStripMenuItem.Click
sfd1.DefaultExt = "*.stf"
sfd1.Filter = "Smart Text Files|*.stf"
If (sfd1.ShowDialog() = System.Windows.Forms.DialogResult.OK) _
And (sfd1.FileName.Length > 0) Then
RichTextBox1.SaveFile(sfd1.FileName)
Me.Text = ("Notepad Demo [" + sfd1.FileName + "]")
End If
End Sub

Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
MsgBox("This Is A Demo YouTube Project, by CyanTech", , "This Is A Demo YouTube Project, by CyanTech")
End Sub

Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
RichTextBox1.Copy()
End Sub

Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click
RichTextBox1.Cut()
End Sub

Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click
RichTextBox1.Paste()
End Sub

Private Sub ClearToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClearToolStripMenuItem.Click
RichTextBox1.Clear()
End Sub

Private Sub UndoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UndoToolStripMenuItem.Click
RichTextBox1.Undo()
End Sub

Private Sub RedoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RedoToolStripMenuItem.Click
RichTextBox1.Redo()
End Sub

Private Sub ColorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ColorToolStripMenuItem.Click
cd1.ShowDialog()
RichTextBox1.SelectionColor = cd1.Color
End Sub

Private Sub FontToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FontToolStripMenuItem.Click
fd1.ShowDialog()
RichTextBox1.SelectionFont = fd1.Font
End Sub
End Class