Program for File Menu with Menu Items New, Open, Save, Print and Exit & Edit Menu with Menu Items Cut, Copy, Paste, Find and Undo

PROGRAM FOR FILE MENU WITH MENU ITEMS NEW, OPEN, SAVE, PRINT AND EXIT & EDIT MENU WITH MENU ITEMS CUT, COPY, PASTE, FIND AND UNDO:

Public Class Form1

    Dim StringToPrint As String

    Private Sub SAVEToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAVEToolStripMenuItem.Click

        Dim saveFileDialog1 As New SaveFileDialog()

        saveFileDialog1.Filter = "Text File (*.txt)|*.txt |All Files |*.*"

        saveFileDialog1.FileName = "Untitled"

        If saveFileDialog1.ShowDialog() = DialogResult.OK Then

            System.IO.File.WriteAllText(saveFileDialog1.FileName, RichTextBox1.Text)

            MsgBox("FILE IS SAVED SUCCESSFULLY")

        End If

    End Sub

    Private Sub FILEToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FILEToolStripMenuItem.Click

    End Sub

    Private Sub NEWToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NEWToolStripMenuItem.Click

        RichTextBox1.Text = ""

    End Sub

    Private Sub OPENToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OPENToolStripMenuItem.Click

        Dim OpenFileDialog1 As New OpenFileDialog()

        OpenFileDialog1.Filter = "Text File (*.txt)|*.txt |All Files |*.*"

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

            RichTextBox1.Text = System.IO.File.ReadAllText(OpenFileDialog1.FileName)

        End If

    End Sub

    Private Sub EXITToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXITToolStripMenuItem.Click

        End

    End Sub

    Private Sub PRINTToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PRINTToolStripMenuItem.Click

        StringToPrint = RichTextBox1.Text

        PrintDocument1.Print()

    End Sub

    Private Sub CUTToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CUTToolStripMenuItem.Click

        If RichTextBox1.SelectedText <> "" Then

            Clipboard.SetText(RichTextBox1.SelectedText)

            RichTextBox1.SelectedText = ""

        Else

            MsgBox("No text is selected to Cut")

        End If

    End Sub

    Private Sub COPYToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COPYToolStripMenuItem.Click

        If RichTextBox1.SelectedText <> "" Then

            Clipboard.SetText(RichTextBox1.SelectedText)

        Else

             MsgBox("No text is selected to copy")

        End If

    End Sub

    Private Sub PASTEToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PASTEToolStripMenuItem.Click

        Dim iData As IDataObject = Clipboard.GetDataObject()

        If iData.GetDataPresent(DataFormats.Text) Then

            RichTextBox1.SelectedText = CType(iData.GetData(DataFormats.Text), String)

        Else

            MsgBox("Data in the clipboard is not availble for entry into a textbox")

        End If

    End Sub

    Private Sub UNDOToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UNDOToolStripMenuItem.Click

        RichTextBox1.Undo()

    End Sub

    Private Sub REDOToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles REDOToolStripMenuItem.Click

        RichTextBox1.Redo()

    End Sub

    Private Sub FINDToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FINDToolStripMenuItem.Click

        Dim a As String

        Dim b As String

        a = InputBox("Enter text to be found")

        b = InStr(RichTextBox1.Text, a)

        If b Then

            RichTextBox1.Focus()

            RichTextBox1.SelectionStart = b - 1

            RichTextBox1.SelectionLength = Len(a)

        Else

            MsgBox("TEXT NOT FOUND")

        End If

    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        Dim numChars As Integer

        Dim numLines As Integer

        Dim stringForPage As String

        Dim strFormat As New StringFormat()

        Dim PrintFont As Font

        PrintFont = RichTextBox1.Font

        Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)

        Dim sizeMeasure As New SizeF(e.MarginBounds.Width, e.MarginBounds.Height - PrintFont.GetHeight(e.Graphics))

        strFormat.Trimming = StringTrimming.Word

        e.Graphics.MeasureString(StringToPrint, PrintFont, sizeMeasure, strFormat, numChars, numLines)

        stringForPage = StringToPrint.Substring(0, numChars)

        e.Graphics.DrawString(stringForPage, PrintFont, Brushes.Black, rectDraw, strFormat)

        If numChars < StringToPrint.Length Then

            StringToPrint = StringToPrint.Substring(numChars)

            e.HasMorePages = True

        Else

            e.HasMorePages = False

        End If

    End Sub

   

End Class