Sample Code for Notepad with vb.net

Imports System.Drawing.Printing
Imports System.IO
Public Class frmNotepad
    Dim filename As String = ""
    Sub wordwrap()
        'If mnuwordwrap.Checked = True Then
        '    TxtEditor.WordWrap = True
        'Else
        '    TxtEditor.WordWrap = False
        'End If
        If TxtEditor.WordWrap = False Then
            Me.mnuwordwrap.Checked = True
            TxtEditor.WordWrap = True
        Else
            Me.mnuwordwrap.Checked = False
            TxtEditor.WordWrap = False
        End If
    End Sub
    Private Sub mnuwordwrap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuwordwrap.Click
        wordwrap()
    End Sub
    Sub mnuOpen_Text()
        OpenFileDialog1.CheckFileExists = True
        OpenFileDialog1.CheckPathExists = True
        OpenFileDialog1.DefaultExt = "txt"
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
        OpenFileDialog1.Multiselect = False
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            TxtEditor.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
        End If
    End Sub
    Private Sub mnuOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpen.Click
        mnuOpen_Text()
    End Sub
    Sub SaveTool()
        SaveFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
        SaveFileDialog1.FilterIndex = 1
        If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim myStream As New StreamWriter(SaveFileDialog1.FileName, True)
            myStream.Write(TxtEditor.Text)
            myStream.Close()
        End If
    End Sub

    Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
        SaveTool()

        'Dim myStream As Stream
        'Dim saveFileDialog1 As New SaveFileDialog()

        'saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        'saveFileDialog1.FilterIndex = 2
        'saveFileDialog1.RestoreDirectory = True

        'If saveFileDialog1.ShowDialog() = DialogResult.OK Then
        '    myStream = saveFileDialog1.OpenFile()
        '    If (myStream IsNot Nothing) Then
        '        myStream.Close()
        '    End If
        'End If
    End Sub
    Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click
        FontDialog1.ShowDialog()
        TxtEditor.Font = FontDialog1.Font
    End Sub
    Sub UndoRedo()
        If UndoToolStripMenuItem.Text = "Undo" Then
            TxtEditor.Undo()
            UndoToolStripMenuItem.Text = "Redo"
            UndoToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.Z
        Else
            TxtEditor.Undo()
            UndoToolStripMenuItem.Text = "Undo"
            UndoToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.Y
        End If
    End Sub
    Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click
        UndoRedo()
    End Sub
    Sub CutToll()
        Clipboard.SetText(TxtEditor.SelectedText)
        CutToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.X
        TxtEditor.SelectedText = ""
    End Sub
    Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
        CutToll()
    End Sub
    Sub CopyTool()
        If TxtEditor.SelectionLength > 0 Then
            Clipboard.SetText(TxtEditor.SelectedText)
            CopyToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.C
        End If
    End Sub
    Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
        CopyTool()
    End Sub
    Sub PastTool()
        If Clipboard.ContainsText Then
            TxtEditor.SelectedText = Clipboard.GetText
            PastToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.V
        End If
    End Sub
    Private Sub PastToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PastToolStripMenuItem.Click
        PastTool()
    End Sub
    Sub FiindTool()
        Dim frm As New frmFind
        FiindToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.F
        frm.Show()
    End Sub
    Private Sub FiindToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FiindToolStripMenuItem.Click
        FiindTool()
    End Sub
    Sub SelectAllTool()
        TxtEditor.SelectionStart = 0
        TxtEditor.SelectionLength = Len(TxtEditor.Text)
        SelectAllToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.A
    End Sub
    Private Sub SelectAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAllToolStripMenuItem.Click
        SelectAllTool()
    End Sub
    Sub DateTimeTool()
        TxtEditor.Text = Now.ToString("f") 'DateTime.Now.ToString("hh:mm, dd-MMMM-yyyy")
        DateTimeToolStripMenuItem.ShortcutKeys = Keys.F5
    End Sub
    Private Sub DateTimeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimeToolStripMenuItem.Click
        DateTimeTool()
    End Sub

    Private Sub StatusBarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatusBarToolStripMenuItem.Click
        Me.HorizontalScroll.Visible = Me.StatusBarToolStripMenuItem.Checked
    End Sub
    Sub CloseTool()
        End
    End Sub
    Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
        CloseTool()
    End Sub
    Sub PageSetupTool()
        PageSetupDialog1.PageSettings = PrintDocument1.DefaultPageSettings
        If PageSetupDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings
        End If
    End Sub
    Private Sub PageSetupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PageSetupToolStripMenuItem.Click
        PageSetupTool()
    End Sub

    Sub PrintTool()
        PrintDialog1.PrinterSettings = PrintDocument1.PrinterSettings
        PrintToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.P
        If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
        End If
    End Sub

    Private Sub PrintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripMenuItem.Click
        PrintTool()
    End Sub
    Sub NewTool()
        Select Case MessageBox.Show("Do you want too save your file before?", "Save", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning)
            Case Windows.Forms.DialogResult.OK
                TxtEditor.Text = Nothing
            Case Windows.Forms.DialogResult.No
                TxtEditor.Text = Nothing
        End Select
    End Sub
    Private Sub mnuNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuNew.Click
        NewTool()
    End Sub

    Private Sub HelpTopicToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpTopicToolStripMenuItem.Click
        MsgBox("I do not design yet!", MsgBoxStyle.MsgBoxHelp)
    End Sub
    Sub SaveAsTool()
        SaveFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
        SaveFileDialog1.FilterIndex = 1
        If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim myStream As New StreamWriter(SaveFileDialog1.FileName, True)
            myStream.Write(TxtEditor.Text)
            File.AppendAllText(filename, TxtEditor.Text)
            myStream.Close()
        End If
    End Sub
    Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click
        SaveAsTool()
    End Sub
End Class