VB文本编辑器设计报告

课程设计报告课程：VisualBasic程序设计课题：文本编辑器（易记本）专业：计算机信息管理班级：学号：姓名：@一路偏向北教师：2011-12-23一、课程设计目的通过一学期的VisualBasic程序设计学习，以及平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。二、题目及简介文本编辑器模仿Windows自带的本文编辑器，要求：做到有下拉式菜单栏，有最基本的文本编辑功能，包括复制、剪切、粘贴、全选、查找；同时拥有文本的管理功能，其中包括新建文本、打开、保存；以及完整的运行退出等系统应用功能，所有操作可选择设定快捷键，更快更方便地使用程序，同时对于一个小程序而言，可给出基本的使用说明以及相关信息。提示：注意使用消息框，以及使用右击弹出式菜单，注意程序的完整性可可用性。三、设计说明题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。本次设计在按照题目要求的前提下，为了完整地展示一个应用程序，在最初就设计为最基本的文本的编辑器，所以取名为“易记本”，就是简易记事本的简称，然后加入图标，在程序完成之后还进行了大包操作，得到应用程序的安装文件，最后安装在电脑上运行使用。四、源代码（加注释）DimsfindAsStringDimFileType,FiTypeAsStringPrivateSubForm_Load()Me.Height=7500Me.Width=5000EndSub'设置文本编辑框的位置和大小PrivateSubForm_Resize()OnErrorResumeNext'遇到出错时处理RichTextBox1.Top=20RichTextBox1.Left=20RichTextBox1.Height=ScaleHeight-40RichTextBox1.Width=ScaleWidth-40EndSub'文件菜单下的新建文件PrivateSubmnuNew_Click()RichTextBox1.Text='新建文本时清空文本框FileName=未命名Me.Caption=FileNameEndSub'文件菜单下的打开文件PrivateSubmnuOpen_Click()CommonDialog1.Filter=文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowOpenRichTextBox1.Text='打开新的文件时清空原来的文本框FileName=CommonDialog1.FileNameRichTextBox1.LoadFileFileNameMe.Caption=易记本：&FileNameEndSub'文件菜单下的保存文件PrivateSubmnuSave_Click()CommonDialog1.Filter=文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowSaveFileType=CommonDialog1.FileTitleFiType=LCase(Right(FileType,3))FileName=CommonDialog1.FileNameSelectCaseFiTypeCasetxtRichTextBox1.SaveFileFileName,rtfTextCasertfRichTextBox1.SaveFileFileName,rtfRTFCase*.*RichTextBox1.SaveFileFileNameEndSelectMe.Caption=易记本：&FileNameEndSub'文件菜单下的退出PrivateSubmnuExit_Click()EndEndSub'编辑菜单下的复制PrivateSubmnuCopy_Click()Clipboard.ClearClipboard.SetTextRichTextBox1.SelTextEndSub'编辑菜单下的剪切PrivateSubmnuCut_Click()Clipboard.ClearClipboard.SetTextRichTextBox1.SelTextRichTextBox1.SelText=EndSub'编辑菜单下的全选PrivateSubmnuSelectAll_Click()RichTextBox1.SelStart=0RichTextBox1.SelLength=Len(RichTextBox1.Text)EndSub'文件菜单下的粘贴PrivateSubmnuPaste_Click()RichTextBox1.SelText=Clipboard.GetTextEndSub'搜索菜单下的查找PrivateSubmnuFind_Click()sfind=InputBox(请输入要查找的字符：,查找内容)RichTextBox1.FindsfindEndSub'搜索菜单下的继续查找PrivateSubmnuFindOn_Click()RichTextBox1.SelStart=RichTextBox1.SelStart+RichTextBox1.SelLength+1RichTextBox1.Findsfind,,Len(RichTextBox1)EndSub'帮助菜单下的使用说明PrivateSubmnuUsage_Click()OnErrorGoTohandlerRichTextBox1.LoadFileReadme.txt,rtfText'Readme.txt文件存入程序所在文件夹中Me.Caption=易记本：&使用说明ExitSubhandler:MsgBox使用说明文档可能已经被移除，请与作者联系。,vbOKOnly,错误信息EndSub'帮助菜单下的关于，查询软件的归属信息PrivateSubmnuAbout_Click()MsgBox易记本1.0版权所有(C)DXL,vbOKOnly,关于EndSub'设置弹出式菜单（即在编辑框中单击鼠标右键时弹出的动态菜单）PrivateSubRichTextBox1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenumnuEdit,vbPopupMenuLeftAlignElseExitSubEndIfEndSub五、运行结果程序运行初始窗口，易记本易记本菜单使用说明及右击弹出式菜单桌面查找及打开功能六、体会总结1.关与本次课程设计，总体来说不是很难，当然是仅限于这个题目来说，通过实践，感觉到这一学期的VB学习不是很深入，很多真正需要掌握的东西还没学会，或是没学好，原因是平时理论学习不够，没用真正理解，其次就是实践太少，不能熟练地使用VB开发环境。2.具体说文本编辑器的设计，首先是控件的使用要注意，例如不能使用平时一般的Text文本框，因为其只适用于一般的文本显示，使用RichTextBox，可拥有文本的完整功能，不用再添加滚动条等控件，而是使用其自带的滚动条；其实是菜单的设计，应注意菜单的名称书写，不能出现重复现象，否则要使用索引，不仅增加麻烦更不利于程序编写，然后编写代码的时候应注意必须与菜单中的名字一一对应，否则会出现错误；最后要注意程序的完整性以及实用性、便捷性，能够有友好的UI设计，给用户最好的体验。总之，通过本次课程设计，不仅找到了学习的不足，更体会到实践的重要性，所有的语言设计课程都必须通过实践来掌握，同时要建立在掌握理论知识的基础上，只有这两者紧密结合起来才能真正学号一门语言设计课程。