一个功能增强的记事本_VB.NET

想必大家都听说过Notepad2，Notepad++一类的记事本增强软件，想自己也写一个吗？

今天教大家用用VB.NET写了一个功能增强的记事本（支持全文字数统计、选中部分字数统计、支持doc、rtf格式等）

先上图：

感觉如果不错的话，看看源码吧：

Public Class MainForm
    Dim FileName As String = "无标题"
    Dim word As String = ""
    Dim ML As Boolean = False

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.Text = FileName + " - " + "记事本——AngelHacker"
        RichTextBox1.WordWrap = False
        RichTextBox1.ContextMenuStrip = ContextMenuStrip1
        RichTextBox1.ScrollBars = RichTextBoxScrollBars.Both
        新建NToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.N
        打开OToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.O
        保存SToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.S
        剪切TToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.X
        复制CToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.C
        粘贴PToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.V
        全选AToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.A
        删除LToolStripMenuItem.ShortcutKeys = Keys.Delete
        查找FToolStripMenuItem.ShortcutKeys = Keys.Control + Keys.F
        查找下一个NToolStripMenuItem.ShortcutKeys = Keys.F3
        查找下一个NToolStripMenuItem.Enabled = False
    End Sub

    Private Sub 新建NToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建NToolStripMenuItem.Click
        RichTextBox1.Text = ""
        FileName = "无标题"
        Me.Text = FileName + " - " + "记事本——AngelHacker"
    End Sub

    Private Sub 打开OToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开OToolStripMenuItem.Click
        OpenFileDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*