文本编辑器程序设计

VB课程设计报告——文本编辑器学院名称：学生姓名：专业名称：班级：一、课程设计题目用VisualBasic程序设计语言编写一个简易的文本编辑器要求：具有一般文本编辑器的基本功能：新建、保存、打开、另存为和退出；必需能够同时打开多个文本文件进行编辑；能够对所编辑的文件进行保存，保存类型为txt；能够打开计算机硬盘上已存在的文本文件，并进行编辑。二、课程设计目的初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。课程设计说明及程序结构题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。本次设计在按照题目要求的前提下，为了完整地展示一个应用程序，在最初就设计为最基本的文本的编辑器，所以取名为“易记本”，就是简易记事本的简称，然后加入图标，在程序完成之后还进行了大包操作，得到应用程序的安装文件，最后安装在电脑上运行使用。文本编辑器文本编辑器新建打开保存粘贴复制另存为剪贴全选退出四、源代码DimsFindAsStringDimFileType,FiTypeAsStringPrivateSubbc_Click()CommonDialog1.Filter="文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"CommonDialog1.ShowSaveFileType=CommonDialog1.FileTitleFiType=LCase(Right(FileType,3))FileName=CommonDialog1.FileNameSelectCaseFiTypeCase"txt"RichTextBox1.SaveFileFileName,rtfTextCase"rtf"RichTextBox1.SaveFileFileName,rtfRTFCase"*.*"RichTextBox1.SaveFileFileNameEndSelectMe.Caption="记事本-"&FileNameEndSubPrivateSubexit_Click()IfTabStop=FalseThenJieGuo=MsgBox("文本已经改变，是否需要保存",vbYesNo)IfJieGuo=vbYesThen'保存文件的代码Else'选择不保存的代码EndIfElseEnd'直接退出程序EndIfEndEndSubSubForm_Unload(CancelAsInteger)EndSubPrivateSubfz_Click()Clipboard.ClearClipboard.SetTextRichTextBox1.SelTextEndSubPrivateSubjq_Click()Clipboard.ClearClipboard.SetTextRichTextBox1.SelTextRichTextBox1.SelText=""EndSubPrivateSubnew_Click()RichTextBox1.Text=""FileName="未命名1"Me.Caption=FileNameEndSubPrivateSubopen_Click()CommonDialog1.Filter="文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"CommonDialog1.ShowOpenRichTextBox1.FileName=CommonDialog1.FileNameRichTextBox1.LoadFileFileNameMe.Caption="记事本-"&FileNameEndSubPrivateSubQX_Click()RichTextBox1.SelStart=0RichTextBox1.SelLength=Len(RichTextBox1.Text)EndSubSubRichTextBox1_Change()TabStop=FalseEndSubPrivateSubRichTextBox1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeySpaceThenRichTextBox1.SelFontName=CommonDialog1.FontNameEndIfEndSubPrivateSubzt_Click()RichTextBox1.SelText=Clipboard.GetTextEndSub五、运行结果六、设计体会具体说文本编辑器的设计，首先是控件的使用要注意，例如不能使用平时一般的Text文本框，因为其只适用于一般的文本显示，使用RichTextBox，可拥有文本的完整功能，不用再添加滚动条等控件，而是使用