记事本程序的部分编码

我自己编写的代码，和大家交留一下，有错误还望指点。

 

Public Class 设计窗口

    Dim S As String

    Private Sub 设计窗口_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RichTextBox1.Text = ""
    End Sub

   

 Private Sub 剪切XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切XToolStripMenuItem.Click
        S = RichTextBox1.SelectedText
        RichTextBox1.SelectedText = ""
    End Sub

   

 Private Sub 复制ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 复制ToolStripMenuItem.Click
        S = RichTextBox1.SelectedText
    End Sub

   

 Private Sub 粘贴PToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘贴PToolStripMenuItem.Click
        RichTextBox1.SelectedText = S
    End Sub

  

  Private Sub 删除LToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除LToolStripMenuItem.Click
        RichTextBox1.SelectedText = ""
    End Sub

 
    Private Sub 新建NToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建NToolStripMenuItem.Click
        RichTextBox1.Text = ""
        RichTextBox1.Focus()
    End Sub

  

  Private Sub 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.Click
        End
    End Sub

  

  Private Sub 全选ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全选ToolStripMenuItem.Click
        S = RichTextBox1.Text
    End Sub

   

Private Sub 字体FToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 字体FToolStripMenuItem.Click
        FontDialog1.ShowDialog()
        RichTextBox1.Font = FontDialog1.Font
    End Sub

   

Private Sub 颜色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 颜色ToolStripMenuItem.Click
        ColorDialog1.ShowDialog()
        RichTextBox1.ForeColor() = ColorDialog1.Color
    End Sub

   

Private Sub 另存为AToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 另存为AToolStripMenuItem.Click
        SaveFileDialog1.FileName = "Default.txt"
        SaveFileDialog1.DefaultExt = "Txt"
        SaveFileDialog1.ShowDialog()
        FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
        Print(1, RichTextBox1.Text)
        FileClose(1)
    End Sub

 
   

 Private Sub 打开OToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开OToolStripMenuItem.Click
        Dim InputData As String
        RichTextBox1.Text = ""
        OpenFileDialog1.FileName = "*.txt"
        OpenFileDialog1.InitialDirectory = "C:/"
        OpenFileDialog1.Filter = "Text Files(*.Txt)|*.Txt|All iles(*.*)|*.*"
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.ShowDialog()
        FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
        Do While Not EOF(1)
            InputData = LineInput(1)
            RichTextBox1.Text = RichTextBox1.Text + InputData + vbCrLf
        Loop
        FileClose(1)
    End Sub

 

   

Private Sub 打印预览PToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印PToolStripMenuItem.Click
        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.ShowDialog()
    End Sub

   

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

    End Sub

   

Private Sub 打印ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click
        PrintDialog1.Document = PrintDocument1
        PrintDialog1.ShowDialog()
    End Sub

   

 Private Sub 保存SToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存SToolStripMenuItem.Click
        If RichTextBox1.TextLength > 0 Then
        End If
 

   End Sub

End Class