VB课程设计-文本编辑器

《VB课程设计-文本编辑器》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB课程设计报告——文本编辑器学院名称：学生姓名：专业名称：班级：一、课程设计题目用VisualBasic程序设计语言编写一个简易的文本编辑器要求：有最基本的文本编辑功能，包括复制、剪切、粘贴、字体设置、背景颜色设置、字体颜色设置；同时拥有文本管理功能，包括打开文件、保存文件；以及完整的系统运行退出等功能，所有的操作可选择设定的快捷键。二、课程设计目的虽然本学期的VisualBasic课程是自学的，相对于课堂学习有些不足，但通过平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗

2、体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。三、课程设计说明题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体

3、（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。本次设计在按照题目要求的前提下，为了完整地展示一个应用程序，在最初就设计为最基本的文本的编辑器，所以取名为“易记本”，就是简易记事本的简称，然后加入图标，在程序完成之后还进行了大包操作，得到应用程序的安装文件，最后安装在电脑上运行使用。四．源代码PrivateSubCommand1_Click()DimiAsIntegerIfTe

4、xt2.Text<>"123456"Theni=MsgBox("密码错误",5+vbExclamation,"警告")Ifi<>6ThenEndElseText2.Text=""Text2.SetFocusEndIfEndIfForm1.HideForm2.ShowEndSubPrivateSubForm_Load()Text1.Text=""Text1.MaxLength=6Text2.Text=""Text2.MaxLength=6Text2.PasswordChar="*"EndSubPrivateSubText1_LostFocus()IfNotIsNum

5、eric(Text1.Text)ThenMsgBox"帐号必须为数字",,"警告"Text1.Text=""Text1.SetFocusEndIfEndSubPrivateSubCommand1_Click()Form2.HideForm3.ShowEndSubPrivateSubCommand2_Click()Form2.HideForm4.ShowEndSubPrivateSubCommand3_Click()Form2.HideForm5.ShowEndSubPrivateSubColor_Click()CommonDialog1.Action=3Text1

6、.ForeColor=CommonDialog1.ColorEndSubPrivateSubCommand1_Click()Form3.HideForm2.ShowEndSubPrivateSubCopy_Click()DimstAsStringst=Text1.SelTextEndSubPrivateSubCut_Click()DimstAsStringst=Text1.SelTextText1.SelText=""EndSubPrivateSubExit_Click()EndEndSubPrivateSubFont_Click()CommonDialog1.F

7、lags=cdlCFBothOrcdlCFEffectsCommonDialog1.Action=4Text1.FontName=CommonDialog1.FileNameText1.FontSize=CommonDialog1.FontSizeText1.FontBold=CommonDialog1.FontBoldText1.FontItalic=CommonDialog1.FontItalicText1.FontStrikethru=CommonDialog1.FontStrikethruText1.FontUnderline=CommonDialog1.

8、FontU