VB.NET完成一个功能增强的记事本

原址：http://www.jb51.cc/article/p-eqvvftcw-bhk.html

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

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

先上图：

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

[vb] view plain copy

1. PublicClassMainForm
2. DimFileNameAsString="无标题"
3. DimwordAsString=""
4. DimMLAsBoolean=False
6. PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
7. Me.StartPosition=FormStartPosition.CenterScreen
8. Me.Text=FileName+"-"+"记事本——AngelHacker"
9. RichTextBox1.WordWrap=False
10. RichTextBox1.ContextMenuStrip=ContextMenuStrip1
11. RichTextBox1.ScrollBars=RichTextBoxScrollBars.Both
12. 新建NToolStripMenuItem.ShortcutKeys=Keys.Control+Keys.N
13. 打开OToolStripMenuItem.ShortcutKeys=Keys.Control+Keys.O
14. 保存SToolStripMenuItem.ShortcutKeys=Keys.Control+Keys.S
15. 剪切TToolStripMenuItem.ShortcutKeys=Keys.Control+Keys.X
16. 复制CToolStripMenuItem.ShortcutKeys=Keys.Control+Keys.C
17. 粘贴PToolStripMenuItem.ShortcutKeys=Keys.Control+Keys.V
18. 全选AToolStripMenuItem.ShortcutKeys=Keys.Control+Keys.A
19. 删除LToolStripMenuItem.ShortcutKeys=Keys.Delete
20. 查找FToolStripMenuItem.ShortcutKeys=Keys.Control+Keys.F
21. 查找下一个NToolStripMenuItem.ShortcutKeys=Keys.F3
22. 查找下一个NToolStripMenuItem.Enabled=False
23. EndSub
25. PrivateSub新建NToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles新建NToolStripMenuItem.Click
26. RichTextBox1.Text=""
27. FileName="无标题"
28. PrivateSub打开OToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles打开OToolStripMenuItem.Click
29. OpenFileDialog1.Filter="文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
30. OpenFileDialog1.FileName=""
31. IfOpenFileDialog1.ShowDialog()=Windows.Forms.DialogResult.CancelThen
32. ExitSub
33. Else
34. RichTextBox1.Text=""
35. FileName=OpenFileDialog1.FileName
36. SelectCaseOpenFileDialog1.FilterIndex
37. Case"1"
38. RichTextBox1.LoadFile(FileName,RichTextBoxStreamType.PlainText)
39. Case"2"
40. ottom-style:none; border-left:rgb(108,RichTextBoxStreamType.RichText)
41. CaseElse
42. OnErrorGoTotxt
43. RichTextBox1.LoadFile(FileName)
44. EndSelect
45. EndIf
46. ExitSub
47. txt:
48. RichTextBox1.LoadFile(FileName,RichTextBoxStreamType.PlainText)
49. PrivateSub保存SToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles保存SToolStripMenuItem.Click
50. IfMe.Text="无标题-记事本——AngelHacker"Then
51. SaveFileDialog1.Filter="文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
52. SaveFileDialog1.FileName=""
53. SaveFileDialog1.CheckPathExists=True
54. IfSaveFileDialog1.ShowDialog()=Windows.Forms.DialogResult.CancelThen
55. SelectCaseSaveFileDialog1.FilterIndex
56. RichTextBox1.SaveFile(SaveFileDialog1.FileName,108) 3px solid; padding-bottom:0px!important; line-height:18px; border-right-style:none; list-style-type:decimal-leading-zero; margin:0px; padding-left:10px!important; padding-right:3px!important; border-top-style:none; padding-top:0px!important"> RichTextBox1.SaveFile(SaveFileDialog1.FileName)
57. EndSelect
58. Me.Text=SaveFileDialog1.FileName+"-"+"记事本——AngelHacker"
59. EndIf
60. Else
61. SelectCaseMid(Me.Text,Me.Text.Length-21,3)
62. Case"txt"
63. RichTextBox1.SaveFile(Mid(Me.Text,1,Me.Text.Length-18),RichTextBoxStreamType.PlainText)
64. Case"rtf"
65. ottom-style:none; border-left:rgb(108,RichTextBoxStreamType.RichText)
66. CaseElse
67. ottom-style:none; border-left:rgb(108,Me.Text.Length-18))
68. PrivateSub另存为AToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles另存为AToolStripMenuItem.Click
69. SaveFileDialog1.Filter="文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
70. SaveFileDialog1.FileName=""
71. SaveFileDialog1.CheckPathExists=True
72. IfSaveFileDialog1.ShowDialog()=Windows.Forms.DialogResult.CancelThen
73. SelectCaseSaveFileDialog1.FilterIndex
74. Case"1"
75. RichTextBox1.SaveFile(SaveFileDialog1.FileName,108) 3px solid; padding-bottom:0px!important; line-height:18px; border-right-style:none; list-style-type:decimal-leading-zero; margin:0px; padding-left:10px!important; padding-right:3px!important; border-top-style:none; padding-top:0px!important"> Case"2"
76. ottom-style:none; border-left:rgb(108,RichTextBoxStreamType.RichText)
77. RichTextBox1.SaveFile(SaveFileDialog1.FileName)
78. Me.Text=SaveFileDialog1.FileName+"-"+"记事本——AngelHacker"
79. EndSub
80. PrivateSub退出XToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles退出XToolStripMenuItem.Click
81. End
82. PrivateSub重置UToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles重置UToolStripMenuItem.Click,重置UToolStripMenuItem1.Click
83. RichTextBox1.SelectionStart=1
84. word=""
85. RichTextBox1.Font=Font
86. PrivateSub剪切TToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles剪切TToolStripMenuItem.Click,剪切TToolStripMenuItem1.Click
87. RichTextBox1.Cut()
88. PrivateSub复制CToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles复制CToolStripMenuItem.Click,复制CToolStripMenuItem1.Click
89. RichTextBox1.copy()
90. PrivateSub粘贴PToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles粘贴PToolStripMenuItem.Click,粘贴PToolStripMenuItem1.Click
91. RichTextBox1.Paste()
92. PrivateSub全选AToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles全选AToolStripMenuItem.Click,全选AToolStripMenuItem1.Click
93. RichTextBox1.SelectAll()
94. PrivateSub删除LToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles删除LToolStripMenuItem.Click,删除DToolStripMenuItem.Click
95. RichTextBox1.Text=RichTextBox1.Text.Remove(RichTextBox1.SelectionStart,RichTextBox1.SelectionLength)
96. PrivateSub字数统计ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles字数统计ToolStripMenuItem.Click,字数统计SToolStripMenuItem.Click
97. IfRichTextBox1.SelectedText=""Then
98. MsgBox("全文共"+RichTextBox1.TextLength.ToString+"字符")
99. MsgBox("选中的字符数为"+RichTextBox1.SelectionLength.ToString)
100. PrivateSub自动换行WToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles自动换行WToolStripMenuItem.Click
101. IfML=FalseThen
102. RichTextBox1.WordWrap=True
103. 自动换行WToolStripMenuItem.Checked=True
104. ML=True
105. RichTextBox1.WordWrap=False
106. 自动换行WToolStripMenuItem.Checked=False
107. ML=False
108. PrivateSub关于AToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles关于AToolStripMenuItem.Click
109. AboutBox1.ShowDialog()
110. PrivateSub字体FToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles字体FToolStripMenuItem.Click
111. IfFontDialog1.ShowDialog()=Windows.Forms.DialogResult.CancelThen
112. RichTextBox1.Font=FontDialog1.Font
113. PrivateSub查找FToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles查找FToolStripMenuItem.Click
114. word=InputBox("查找内容","查找")
115. Ifword=""Then
116. DimaAsInteger=RichTextBox1.Find(word,RichTextBox1.SelectionStart,RichTextBoxFinds.MatchCase)
117. Ifa=-1Then
118. MsgBox("找不到"+""""+word+"""")
119. 查找下一个NToolStripMenuItem.Enabled=True
120. PrivateSub查找下一个NToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles查找下一个NToolStripMenuItem.Click
121. DimwzAsInteger
122. IfRichTextBox1.SelectionStart=RichTextBox1.TextLengthThen
123. MsgBox("找不到"+""""+word+"""")
124. wz=RichTextBox1.SelectionStart
125. wz+=1
126. DimaAsInteger=RichTextBox1.Find(word,wz,RichTextBoxFinds.MatchCase)
127. Ifa=-1Then
128. PrivateSub时间日期DToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles时间日期DToolStripMenuItem.Click
129. IfML=FalseThen
130. RichTextBox1.Text+=Date.Now
131. RichTextBox1.Text+=Chr(13)&Chr(10)&Date.Now
132. EndClass

基本上没用什么属性设置，都是靠代码实现的，由于功能十分简单，使用的是面向过程的方法实现，看起来简单点。

微软的记事本其实很简单，给大家开阔下思路。

需要完整源码的可以到这里下载：http://download.csdn.net/source/3412684

欢迎转载：http://blog.csdn.com/AngelHacker/