VB程序设计报告.docx

1、VB程序设计报告广 西 大 学课程程序设计说明书 课题名称 简易记事本的模仿设计 学 院 电气工程学院 专 业 自动化 班 级 093班 姓 名 谢金富（0902100513）指导教师: 陈苏 2011 年 12 月 22 日 简易记事本的模仿设计RichTextBox控件是用于输入和编辑文本的控件， 但它比常规的TextBox控件具有更高级的格式特性。RichTextBox控件提供了一些属性，通过这些属性，可对该控件中任何部分的文本使用不同的格式。用这些属性，可以将文本变为粗体或斜体、改变文本的颜色、创建上标或下标、调整段落的左右缩进值、使用悬挂式缩进以及动态地向该控件中充填嵌入位图( BM

2、P)、图标(：lcICO)、Microsoft Excel的电子表格和Microsoft Word文档等对象。 RichTextBox控件对于内容的处理提供了多种手段。打开时，可以用RTF格式或ASCII文本格式打开或保存文件；可以使用该控件的方法(LoadFile和SaveFile)，直接读写文件；也可以用该控件的属性，比如SelRTF和TextRTF，结合文件输入、输出语句读写文件， 将rtf文件的内容装入RichTextBox控件。编辑时，可将其它文件(比如从“资源管理器”中)的内容直接拖人该控件；或者将其它应用程序(比如Microsoft Word)中使用文件的突出显示部分直接拖人该控

3、件；还可以通过设置FileName属性，将rtf或txt文件的内容装入该控件。打印时，可用SelPrint方法打印RichTextBox控件中的全部或部分文本。将RichTextBox控件绑定到Data控件，可以处理Microsoft Access数据库的Memo字段或者其它大型数据库中的文字段(例如Sybase数据库、Microsoft SQL Server数据库中的TEXT数据类型)。RichTextBox件的主要用途是其一作为“无底”的文本框，可用于编写阅读较大的文本文件的应用程序；其二在应用程序中实现功能完备的文本编辑器。一、 预定功能新建：新建立一个记事本文档。保存：重命名一个名字，

4、保存文档。打开：将打开一个已经存储在计算机中的文件（*.txt或*.rtf文件）。退出：指退出这个记事本程序。编辑：能对文本进行复制、剪切、粘贴，也可以改变文本字体、颜色、大小。查找：类似Word文档的查找功能，通过输入关键字，词进行查找。二、 设计界面记事本界面有以下几部分组成：标题栏：自定义图标和记事本标题。菜单栏：包括文件、编辑、搜索和帮助主题。三、 主要功能说明主要功能：（1） 文本打开、新建、保存等基本操作：（2）文本编辑功能：（3）文本查找功能：（4）记事本帮助主题：功能说明：（1） 基本操作：能够打开计算机中存储的*.txt或*.rtf文件，进行读写操作，记事本拥有一个很好的优点

5、：就是打开速度快，文件小。通过记事本可以很方便地打开比较小文本文档。（2） 编辑操作：对文本匡中的文档内容进行编辑。通过对文本进行复制、剪切、粘贴，方便了用户的操作。使得记事本能够像Word一样，不仅可以查看文本，还能对其进行修改。（3） 搜索操作：如果一篇文章太长，使用搜索功能可以马上找到要寻找的内容，通过输入关键字进行查找。如果要查找多个相同文本内容，可以通过“查找下一个”来逐一查找。（4） 使用说明：一个简单的记事本使用指南。“关于”的内容一般都是作者的版权说明以及程序版本。四、 运行效果新建：通过文件-新建，来打开一个新文档，新建后的文档是以“未命名”为标题的打开操作：文件-打开，选择

6、要打开的文档“新建文档.txt”保存操作：文件-保存；另存为xie,txt保存在F盘。2编辑操作：复制：打开123.txt，选中第一句，复制到第二句中间剪切和粘贴：把复制的内容剪切掉，粘贴在最后一句后面。3查找操作查找：搜索-查找，通过查找“二极管”两个字为例程序不足之处：当点击右上角关闭按钮时，不能弹出保存对话框给读者进行操作，容易丢失数据，其次是没有对字体进行设计，再者，没有如同word文档一样有快捷键设置，程序的运行界面也没有很好的进行设置，这些都是需要改进的地方。五、 程序设计过程第一步：界面设计 新建一个标准EXE工程，将其Caption属性改为“记事本”，点击Icon属性给它找个合

7、适的Icon图标。单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到Microsoft RichText Box 6.0和公共对话框Microsoft Common Dialog 6.0并选中它们，单击“确定”按钮。这时左边的工具栏上出现了刚才新添的两个控件。在窗体上绘制RichText Box和Commn Dialog，其中RichText Box的大小和位置可不用理睬，可以在代码中处理它，要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。第二步：编辑菜单。 调出菜单编辑器，做如下几个菜单： 一. 文件菜单： 文件（第一层） mnuF

8、ile 新建（第二层） mnuNew Ctrl+N打开（第二层） mnuOpen Ctrl+O保存（第二层） mnuSave Ctrl+S退出（第二层） mnuExit F5二. 编辑菜单： 编辑（第一层） mnuEdit 复制（第二层） mnuCopy Ctrl+C剪切（第二层） mnuCut Ctrl+T粘贴（第二层） mnuPaste Ctrl+V删除（第二层） delete Del全选（第二层） mnuSelecAll Ctrl+A三.搜索菜单： 搜索（第一层） mnuSearch 查找（第二层） mnuFind Ctrl+F查找下一个（第二层） mnuFindOn F3四.帮助菜单：

9、 帮助（第一层） mnuHelp 使用说明（第二层） mnuUsage 关于（第二层） mnuAbout 六、心得体会通过编这个简易记事本，我觉得编程不是一项轻松的活，尤其是一个人开发制作软件时，那工作量就多了。没有一定的坐功、细心程度及耐性那是绝对做不到的。有时，把程序做完了需要调试运行，但是就是不能达到自已设计的效果和目的，也许就是因为一个符号或一个字母，就得花上个几个小时，半天，甚至更长。越是这样越不能灰心，应该放松心态，一点一滴的去查。只要有一颗永不退缩的心，我们就一定能找到问题所在，最后一定能露出开心的笑容，也一定能找到成功者的感觉。所以编程能很好的锻炼人的意志。 同时，我觉得良好的

10、编程习惯是必不可少的。在很多人的编程语言中，用“+”来连接字符串，这样容易导致歧义。良好的习惯是用“&”来连接字符串。此外，变量命名应大小写,语句错落有秩。还有，尽量使用Debug.print进行调试，在很多人的调试中,习惯用MsgBox来跟踪变量值。其实用Debug.print不仅可以达到同样的功效,而且在程序最后编译过程中,会被忽略.而MsgBox必须手动注释或删除。 附录：程序代码Dim sFind As StringDim FileType, FiType As StringPrivate Sub delete_Click()RichTextBox1.SelText = End Sub

11、Private Sub Form_Load()Me.Height = 6000Me.Width = 9000End SubPrivate Sub Form_Resize()On Error Resume NextRichTextBox1.Top = 20RichTextBox1.Left = 20RichTextBox1.Height = ScaleHeight - 40RichTextBox1.Width = ScaleWidth - 40End SubPrivate Sub mnuNew_Click()Dim i As Integeri = MsgBox(是否保存, 4, 警告)If i

12、7 ThenCommonDialog1.Filter = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFiType = LCase(Right(FileType, 3)FileName = CommonDialog1.FileNameElseRichTextBox1.Text = FileName = 未命名Me.Caption = FileNameEnd IfEnd SubPrivate Sub mnuOpen_Click()

13、CommonDialog1.Filter = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowOpenRichTextBox1.Text = FileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNameMe.Caption = 私人记事本： & FileNameEnd SubPrivate Sub mnuSave_Click()CommonDialog1.Filter = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rt

14、f|所有文件(*.*)|*.*CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFiType = LCase(Right(FileType, 3)FileName = CommonDialog1.FileNameSelect Case FiTypeCase txtRichTextBox1.SaveFile FileName, rtfTextCase rtfRichTextBox1.SaveFile FileName, rtfRTFCase *.*RichTextBox1.SaveFile FileNameEnd SelectMe.C

15、aption = 私人记事本： & FileNameEnd SubPrivate Sub mnuExit_Click()Dim i As Integeri = MsgBox(是否保存, 4, 警告)If i 7 ThenCommonDialog1.Filter = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFiType = LCase(Right(FileType, 3)FileName = CommonDialog1.Fil

16、eNameSelect Case FiTypeCase txtRichTextBox1.SaveFile FileName, rtfTextCase rtfRichTextBox1.SaveFile FileName, rtfRTFCase *.*RichTextBox1.SaveFile FileNameEnd SelectElseEndEnd IfEnd SubPrivate Sub mnuCopy_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd SubPrivate Sub mnuCut_Click()Cli

17、pboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = End SubPrivate Sub mnuSelectAll_Click()RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.Text)End SubPrivate Sub mnuPaste_Click()RichTextBox1.SelText = Clipboard.GetTextEnd SubPrivate Sub mnuFind_Click()sFind =

18、 InputBox(请输入要查找的字、词：, 查找内容, sFind)RichTextBox1.Find sFindEnd SubPrivate Sub mnuFindOn_Click()RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1RichTextBox1.Find sFind, , Len(RichTextBox1)End SubPrivate Sub mnuAbout_Click()MsgBox 私人记事本 . 版权所有.翻版必究, vbOKOnly, 关于End SubPrivate

19、Sub OLE1_Updated(Code As Integer)End SubPrivate Sub mnuUsage_Click()On Error GoTo handlerRichTextBox1.LoadFile Readme.txt, rtfText 注释：请写好Readme.txt文件并存入程序所在文件夹中Me.Caption = 私人记事本： & 使用说明Exit Subhandler:MsgBox 使用说明文档可能已经被移除，请与作者联系。, vbOKOnly, 错误信息End SubPrivate Sub RichTextBox1_MouseDown(Button As In

20、teger, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu mnuEdit, vbPopupMenuLeftAlignElseExit SubEnd IfEnd SubPrivate Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeySpace ThenRichTextBox1.SelFontName = CommonDialog1.FontNameEnd IfEnd SubPrivate Su

21、b Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)If MsgBox(是否需要保存?, vbQuestion + vbYesNo) = vbYes ThenCommonDialog1.Filter = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFiType = LCase(Right(FileType, 3)FileName = CommonDialog1.FileNameSelect Case FiTypeCase txtRichTextBox1.SaveFile FileName, rtfTextCase rtfRichTextBox1.SaveFile FileName, rtfRTFCase *.*RichTextBox1.SaveFile FileNameEnd SelectElseCancel = FalseEnd IfEnd Sub参考资料：(1)Visual basic 程序设计教程第三版 龚沛曾 杨志强等编，高等教育出版社(2)(3)(4)