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

VB 前端之家
前端之家收集整理的这篇文章主要介绍了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. BoxStreamType.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. BoxStreamType.RichText)
  66. CaseElse
  67. 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. BoxStreamType.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/

原文链接：https://www.f2er.com/vb/258972.html

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积