vb课程设计--记事本程序的编写

《vb课程设计--记事本程序的编写》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、河北金融学院vb课程设计说明书1选题的背景与意义1.1记事本创建的背景通过一学期的vb课程学习，理解并掌握了许多相关知识，知道了面向对象程序设计的基本概念和可视化程序设计的基本方法。为了更好地掌握与运用vb中最常用的有关窗体和各种控件的运用、菜单、工具栏、对话框、状态栏、的设计以及文件操作等技术，因此在在学完该课程之后，设计了一个能够编辑编辑文本文档、RichText文档，其文字处理能力类似于Word的简易记事本。1.2记事本创建的意义该记事本具有操作简单，易懂灵活，一目了然的特点，同时由于运用了RichText控件，因此能够打开和编辑任意大的文档，运用起来比windows自带的记事本方便的多

2、。从而为那些计算机技术应用并不熟练但需要使用计算机快速编辑和修改文档的用户提供了便利。同时该程序的编写也使得自己的知识掌握的更见牢固。2系统详细设计2.1主要功能能够编辑文本文档，其文字处理功能类似于Word。具有打开、保存、新建和退出文件功能。具有剪切、复制、粘贴、设置文字的字体以及大小、颜色、对齐等文字编功能。以及字符串的查找功能。打印功能。9河北金融学院vb课程设计说明书2.2要点的实现既使用技术首先，在创建程序是应先设置窗体大小和编辑框的大小。'窗体的加载事件PrivateSubForm_Load()Form1.Top=0Form1.Left=0Me.Height=Screen.Hei

3、ght-4000Me.Width=Screen.Width-5000CommonDialog1.FontName="宋体"'程序运行时字体是宋体EndSub'设置编辑框的大小和位置PrivateSubForm_Resize()RichTextBox1.Top=60RichTextBox1.Left=20RichTextBox1.Height=Me.Height-100RichTextBox1.Width=Me.Width-100EndSub如左图所示。CommonDialog控件的应用使得它提供了如打开和保存文件，设置打印选项，选择颜色和字体等操作的一组标准对话框，使我们通过对话框填写的方式来

4、实现上述操作。RichText控件的使用是编辑和打开的文件大小不受限制。有利于文件的编辑。第二，程序设计过程中必须先在窗体中添加CommonDialog和RichText控件。9河北金融学院vb课程设计说明书第三，程序的编写过程中大部分对象的实现都是通过它们的单击事件进行的。如打开、保存、新建、复制、粘贴、字体颜色和大小（如上图打开和字体的通用对话框）'打开文件PrivateSubmnuOpen_Click()OnErrorGoToerrorCommonDialog1.Filter="文本文档(*.txt)

5、*.txt

6、RTF文档(*

7、.rtf)*.rtf

8、所有文件(*.*)

9、*.*"'设置过

10、滤器属性CommonDialog1.FilterIndex=1CommonDialog1.ShowOpenRichTextBox1.Text=""'清空文本FileName=CommonDialog1.FileNameRichTextBox1.LoadFileFileName'loadfile将磁盘文件装入空间之中Me.Caption="记事本"error:EndSub'字体PrivateSubmnuFont_Click()OnErrorGoToerror9河北金融学院vb课程设计说明书CommonDialog1.Flags=cdlCFBothOrcdlCFEffectsCommonDialo

11、g1.ShowFontRichTextBox1.SelFontName=CommonDialog1.FontNameRichTextBox1.SelFontSize=CommonDialog1.FontSizeRichTextBox1.SelBold=CommonDialog1.FontBold'粗体RichTextBox1.SelItalic=CommonDialog1.FontItalic'斜体RichTextBox1.SelUnderline=CommonDialog1.FontUnderline'下划线RichTextBox1.SelStrikeThru=CommonDialog1.F

12、ontStrikethru'删除线error:EndSub第四，在“新建”和“退出”事件中应用了MsgBox函数，当用户在退出或新建时忘记保存文时，弹出消息框询问用户是否保存文件，以防止文件的丢失。'退出文件PrivateSubmnuExit_Click()IfMsgBox("你的文档还没有保存，是否对当前问价进行保存?",vbYesNoCancel,"记事本")=vbYesThenmnuSave