想必大家都听说过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|所有文件(*.*