【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了“[精品资料]VB高级编程资料 记事本程序设计 - 技术总结“提供大家参考，希望对大家有所帮助!

题目：记事本程序设计课程设计：VB 程序设计论文 前 言 记事本：英文名称为：WORDPAD 或 NOTEPAD。

     现在一般特指 Windows 操作系统附带的一个简单的文本编辑、浏览软件 Notepad。

     记事本只能处理纯文本文件，但是，由于多种格式源代码都是纯文本的，所以记事本也就成为了使用最多的源代码编辑器。

     它只具备最基本的编辑功能，所以体积小巧，启动快，占用内存低，容易使用。

     记事本的功能只有：新建，保存，打印，查找，替换这几个功能。

    但是记事本：打开速度快，文件小。

     记事本可以保存无格式文件。

    你可以把记事本编辑的文件保存为：“.html”， “.java”，“.asp”等等任意格式。

     所以我们学习 VB 程序，利用 VB 编写一款简单的基本的文本处理办公软件，类似于记事本，基本可以实现记事本的功能。

    因为制作者的能力有限，只是实现了简单的基础功能，所以，为提供软件的可行性、安全性、稳定性，我们将在以后的版本中不断改进。

    一、 功能描述 1. 打开 记事本菜单栏“文件”菜单具有新建文本文档、保存（另存）文档 以及打开等功能。

     2．编辑 编辑可实现撤销、剪切、复制、粘贴、删除、查找、替换等功能； 同时亦可实现插入时间日期的功能。

     3．格式 格式可实现自动换行的功能以及字体、字号、颜色的选择。

     4．帮助 对记事本程序的版权声明，本记事本所有程序设计与编写均属原创 。

    二、 程序代码 记事本应用程序的详细代码如下：Dim sFind As String 定义 sfind 为一个字符型变量Dim FileType FiType As String 定义 filetypefitype 为一个字符型变量Dim txtchange As Boolean 定义 txtchange 为一个逻辑型变量Dim isave As BooleanPrivate Sub About_Click MsgBox 记事本 2010 版权所有C vbOKOnly 关于记事本End SubPrivate Sub Asave_Click CommonDialog1.CancelError True 调用公共对话框 On Error GoTo errhandler CommonDialog1.DialogTitle 另存为 通用对话框的标题为“另存为” CommonDialog1.InitDir c:windows 初始化路径 CommonDialog1.FileName .txt CommonDialog1.Filter text files.txt.txt 文件过滤器 CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As 1 文件名 Print 1 Midtext1.Text 1 Lentext1.Text Close 1errhandler:Exit SubEnd SubPrivate Sub Copy_Click Clipboard.SetText RichTextBox1.SelRTF 剪切板得到的文本来自于文本框得到的文本End SubPrivate Sub Cut_Click Clipboard.Clear 清空剪切板内容 Clipboard.SetText RichTextBox1.SelText 剪切板得到的文本来自于文本框得到的文本 RichTextBox1.SelText 清空剪切板内容End SubPrivate Sub Date_Click RichTextBox1.SelText Now 显示当前日期和时间End SubPrivate Sub Delete_Click RichTextBox1.SelText End SubPrivate Sub Exit_Click EndEnd SubPrivate Sub Find_ClicksFind InputBox请输入要查找的字、词： 查找内容 sFindRichTextBox1.Find sFindEnd SubPrivate Sub FindOn_Click RichTextBox1.SelStart RichTextBox1.SelStart RichTextBox1.SelLength 1 RichTextBox1.Find sFind LenRichTextBox1End SubPrivate Sub Font_ClickOn Error Resume Next CommonDialog1.Flags H3 Or H1 Or H2 Or H100 CommonDialog1.Action 4 RichTextBox1.Font.Name CommonDialog1.FontName 设置名称 RichTextBox1.Font.Size CommonDialog1.FontSize 设置字号 RichTextBox1.Font.Bold CommonDialog1.FontBold 设置粗体 RichTextBox1.Font.Italic CommonDialog1.FontItalic 设置斜体 RichTextBox1.Font.Underline CommonDialog1.FontUnderline 设置下划线 RichTextBox1.Font.setcolor CommonDialog1.Color 设置颜色End SubPrivate Sub Form_Load 窗体大小 Me.Height 6000 Me.Width 9000 txtchange False isave FalseEnd SubPrivate Sub Form_Resize 文本框随窗体大小改变On Error Resume Next RichTextBox1.Top 20 RichTextBox1.Left 20 RichTextBox1.Height ScaleHeight - 40 RichTextBox1.Width ScaleWidth - 40End SubPrivate Sub Form_UnloadCancel As IntegerIf txtchange True And isave False Then Call save Else End End IfEnd SubPrivate Sub mnuSave_Click Call save 调出保存过程 isave TrueEnd SubPrivate Sub Open_Click CommonDialog1.Filter 文 本 文 档 .txt.txtRTF 文 档 .rtf.rtf 所 有 文 件.. CommonDialog1.ShowOpen 新建一个记事本 RichTextBox1.Text 清空原记事本的内容 FileName CommonDialog1.FileName RichTextBox1.LoadFile FileName 打开文件函数表达式Me.Caption 记事本： FileNameEnd SubPrivate Sub Paste_ClickRichTextBox1.SelText Clipboard.GetText 复制所选至剪切板End SubPrivate Sub Replace_Click Dim Find As String change As String xuan As String 定义为字符型函数 Dim i As Long len1 As Long len2 As Long n As Long Find InputBox要查找的内容 change InputBox要替换的内容 len1 LenFind len2 LenRichTextBox1.Text For i 1 To len2 - len1 1 If Find MidRichTextBox1.Text i len1 Then RichTextBox1.SetFocus RichTextBox1.SelStart i - 1 RichTextBox1.SelLength len1 xuan 是否替换 n MsgBoxxuan vbYesNoCancel vbDefaultButton1 vbQuestion If n 6 Then RichTextBox1.SelText change End If End If Next i End SubPrivate Sub Edit_Click If RichTextBox1.SelText Then 内容为空，则复制、删除、剪切不可用 Copy.Enabled False Cut.Enabled False Delete.Enabled False Else Delete.Enabled True Copy.Enabled True Cut.Enabled True End If If RichTextBox1.Text Then Find.Enabled False FindOn.Enabled False Else Find.Enabled True FindOn.Enabled True End IfEnd SubPrivate Sub RichTextBox1_Change txtchange True End SubPrivate Sub SelectAll_ClickRichTextBox1.SelStart 0 RichTextBox1.SelLength LenRichTextBox1.Text End SubPrivate Sub Topic_ClickOn Error GoTo handler RichTextBox1.LoadFile Readme.txt rtfText Me.Caption 记事本： 使用说明Exit Subhandler: MsgBox 抱歉内容未找到 64 提示 弹出提示对话框End SubPrivate Sub RichTextBox1_MouseDownButton As Integer Shift As Integer X As Single YAs Single If Button 2 Then PopupMenu Edit vbPopupMenuLeftAlign Else Exit Sub End IfEnd SubPrivate Sub xinjian_Click RichTextBox1.Text 清空文本文档 FileName 未命名 更改文档的 Caption 属性 Me.Caption FileNameEnd SubPublic Sub save CommonDialog1.Filter 文 本 文 档 .txt.txtRTF 文 档 .rtf.rtf 所 有 文 件.. CommonDialog1.ShowSave FiType CommonDialog1.FileTitle FiType LCaseRightFileType 3 FileName CommonDialog1.FileName Select Case FileType Case txt RichTextBox1.SaveFile FileName rtfText Case rtf RichTextBox1.SaveFile FileName rtfRTF Case . RichTextBox1.SaveFile FileName End Select Me.Caption 记事本： FileNameEnd Sub（程序代码编写结束）三、 运行界面界面 1.如下：界面 2.如下：四、 运行中存在的问题与不足 1． 没有实现状态栏的功能； 2． 打开时有时会出现如下错误： 3． 创新功能不足，因为操作着能力有限，记事本可观性与实用性较差， 会在以后的程序中加以改进； 4． 部分代码设计较为繁琐。

    五、 心得与体会 1． 编写较大程序之前需要提前计算好算法，并且作以规划。

     如记事本程序中，首先应该设计好各级菜单，其次每个按钮的功能基 本实现的方法应当清楚； 2． 尽量以注释代替删除，有时我们在处理文档代码过程中会出现一些问 题，但不要轻易删除，可能会在后边程序中用来参考，减轻我们在编 写工程中的繁复性； 3． 编写大的程序中会遇到很多问题，需要不断的调试并分析代码，对出 现的问题进行排查，以提高程序的可行性； 4． 在编写代码的过程中，要循序渐进，不断改进，发现并弥补漏洞和不 足，提高程序的实用性。

     5． 部分代码设计较为繁琐。

     6． 感谢老师的指导和同学的帮助！六、 参考文献：《Visual Basic 程序设计教程》 熊李艳 周美玲 主编 人民邮电出版社