VB文本编辑器设计报告(完美).doc

东 华 理 工 大 学课程设计报告课程：Visual Basic 程序设计课题：文本编辑器（易记本）专业：计算机信息管理班级：10410111学号：1041011135姓名：邓咸林教师：吴老师 2011-12-23一、 课程设计目的通过一学期的Visual Basic 程序设计学习，以及平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。二、 题目及简介文本编辑器模仿Windows自带的本文编辑器，要求：做到有下拉式菜单栏，有最基本的文本编辑功能，包括复制、剪切、粘贴、全选、查找；同时拥有文本的管理功能，其中包括新建文本、打开、保存；以及完整的运行退出等系统应用功能，所有操作可选择设定快捷键，更快更方便地使用程序，同时对于一个小程序而言，可给出基本的使用说明以及相关信息。提示：注意使用消息框，以及使用右击弹出式菜单，注意程序的完整性可可用性。三、 设计说明题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。本次设计在按照题目要求的前提下，为了完整地展示一个应用程序，在最初就设计为最基本的文本的编辑器，所以取名为“易记本”，就是简易记事本的简称，然后加入图标，在程序完成之后还进行了大包操作，得到应用程序的安装文件，最后安装在电脑上运行使用。四、 源代码（加注释）Dim sfind As StringDim FileType, FiType As StringPrivate Sub Form_Load()Me.Height = 7500Me.Width = 5000End Sub设置文本编辑框的位置和大小Private Sub Form_Resize()On Error Resume Next 遇到出错时处理RichTextBox1.Top = 20RichTextBox1.Left = 20RichTextBox1.Height = ScaleHeight - 40RichTextBox1.Width = ScaleWidth - 40End Sub文件菜单下的新建文件Private Sub mnuNew_Click()RichTextBox1.Text = 新建文本时清空文本框FileName = 未命名Me.Caption = FileNameEnd Sub文件菜单下的打开文件Private Sub mnuOpen_Click()CommonDialog1.Filter = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowOpenRichTextBox1.Text = 打开新的文件时清空原来的文本框FileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNameMe.Caption = 易记本： & FileNameEnd Sub文件菜单下的保存文件Private Sub mnuSave_Click()CommonDialog1.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 SelectMe.Caption = 易记本： & FileNameEnd Sub文件菜单下的退出Private Sub mnuExit_Click()EndEnd Sub编辑菜单下的复制Private Sub mnuCopy_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd Sub编辑菜单下的剪切Private Sub mnuCut_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = End Sub编辑菜单下的全选Private Sub mnuSelectAll_Click()RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.Text)End Sub文件菜单下的粘贴Private Sub mnuPaste_Click()RichTextBox1.SelText = Clipboard.GetTextEnd Sub搜索菜单下的查找Private Sub mnuFind_Click()sfind = InputBox(请输入要查找的字符：, 查找内容)RichTextBox1.Find sfindEnd Sub搜索菜单下的继续查找Private Sub mnuFindOn_Click()RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1RichTextBox1.Find sfind, , Len(RichTextBox1)End Sub帮助菜单下的使用说明Private Sub mnuUsage_Click()On Error GoTo handlerRichTextBox1.LoadFile Readme.txt, rtfText Readme.txt文件存入程序所在文件夹中Me.Caption = 易记本： & 使用说明Exit Subhandler:MsgBox 使用说明文档可能已经被移除，请与作者联系。, vbOKOnly, 错误信息End Sub帮助菜单下的关于，查询软件的归属信息Private Sub mnuAbout_Click()MsgBox 易记本1.0 版权所有(C) DXL, vbOKOnly, 关于End Sub设置弹出式菜单（即在编辑框中单击鼠标右键时弹出的动态菜单）Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu mnuEdit, vbPopupMenuLeftAlignElseExit SubEnd IfEnd Sub五、 运行结果程序运行初始窗口，易记本易记本菜单 使用说明及右击弹出式菜单桌面查找及打开功能六、 体会总结1. 关与本次课程设计，总体来说不是很难，当然是仅限于这个题目来说，通过实践，感觉到这一学期的VB学习不是很深入，很多真正需要掌握的东西还没学会，或是没学好，原因是平时理论学习不够，没用真正理解，其次就是实践太少，不能熟练地使用VB开发环境。2. 具体说文本编辑器的设计，首先是控件的使用要注意，例如不能使用平时一般的Text文本框，因为其只适用于一般的文本显示，使用RichTextBox，可拥有文本的完整功能，不用再添加滚动条等控件，而是使用其自带的滚动条；其实是菜单的设计，应注意菜单的名称书写，不能出现重复现象，否则要使用索