VB课程设计报告记事本设计

VB课程设计题目：记事本程序~

指导教师：姓名：\2008-7-2目录一、 预定功能 第3页设计界面 第3页运行界面及主要功能说明 第4页操作流程图 第7页】程序设计过程 第12页！预定功能新建：新建立一个记事本文档。保存：重命名一个名字，保存文档。打开：将打开一个已经存储在计算机中的文件（*工乂｛或*.^£文件）。退出：指退出这个记事本程序。|编辑：能对文本进行复制、剪切、粘贴，也可以改变文本字体、颜色、大小。查找：类似Word文档的查找功能，通过输入关键字，词进行查找。帮助：记事本简介以及功能的用法。设计界面记事本界面有以下几部分组成：标题栏：自定义图标和记事本标题。菜单栏：包括文件、编辑、搜索和帮助主题。%工具栏：菜单栏中部分功能的快捷键。文本框：用于编辑、查看文本内容。状态栏：显示编辑状态、当前日期和具体时间。具体设计界面如下图：三、运行界面及主要功能说明双击“记事本.exe”出现如图主界面:主要功能：（1）文本打开、新建、保存等基本操作：！（2）文本编辑功能：（3）文本查找功能：¥(4)记事本帮助主题：功能说明：基本操作：能够打开计算机中存储的*.tχt或*.这£文件，进行读写操作，记事本拥有一个很好的优点：就是打开速度快，文件小。通过记事本可以很方便地打开比较小文本文档。编辑操作：对文本匡中的文档内容进行编辑。通过对文本进行复制、剪切、粘贴，方便了用户的操作。使得记事本能够像Word一样，不仅可以查看文本，还能对其进行修改。搜索操作：如果一篇文章太长，使用搜索功能可以马上找到要寻找的内容，通过输入关键字进行查找。如果要查找多个相同文本内容，可以通过“查找下一个”来逐一查找。¥使用说明：一个简单的记事本使用指南。“关于”的内容一般都是作者的版权说明以及程序版本。工具栏：对常用的几个功能进行了快捷键设置，方便用户操作。四、操作流程图1．基本操作新建：通过文件---新建，来打开一个新文档，新建后的文档是以“未命名”为标题的。打开操作：文件 打开，选择要打开的文档打开后的文档：保存操作：文件----保存；另存为abc,txt保存在F盘。另存为?|MlHIg宣咛ISF保存在（X）：：“本地磁盘空；）保存类型（ɪ）； I文本文档（X皿） 三］回I∣OWTlL0⅛∣1ξ∣lzhΓl∈'Λ'-ZΞZ∣1保存⑤）I取消I2．编辑操作：复制：打开，选中第一段，复制到第二段中间。麒记事本：Lz∖Ke⅞dBe.tɪt文件编辑搜索帮助□∣U∣E∣H∣Ξ∣□∣□∣记事本程序软件是1个具有简单文字编辑功能的程序，它能鹅实现段落的左右缩进，字体的相关设置就Ι简单的打印功能等.记事本程序软件是一个具有简单文字编辑功能的程序，它能帽实现段落的左右缩进，字阵的相关设置和简单的打印功能等.本程序具有体积小，节省空间等特点.而且附带了打开部分"期皿E附件的功能，用户在对文档操作时将会更方便，更快捷口打开文件：将打开一个已窿存储在计篁机中的文件1*.⅛t或求.rtfjT件）保存文件：保存当前编辑的文件到计算机中.关闭；关闭当前活到窗体I如果文本笈生变化将餐提示保存口正在编辑文档■L：∖Readme.txt2008-7-2 15:18剪切和粘贴：把复制的内容剪切掉，粘贴在最后一段后面。更改字体：选中第一段文字，把文字改为隶书、36号、绿色。,〜点击编辑 字体，出现字体编辑对话框，编辑字体属性。如图，修改后的文本。3．查找操作查找：搜索---查找，通过查找“程序”两个字为例。单击“确定”按钮。如果要查找下一个“程序”，通过“查找下一个”查找。五、.程序设计过程六、第一步：界面设计新建一个标准EXE工程，将其CaptiOn属性改为“记事本”，点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到MicroSoftRichTeXtBox和公共对话框MicroSoftCommonDialog并选中它们，单击“确定”按钮。这时左边的工具栏上出现了刚才新添的两个控件。在窗体上绘制RichTextBox和CommnDialog，其中RichTextBox的大小和位置可不用理睬，可以在代码中处理它，要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。第二步：编辑菜单。调出菜单编辑器，做如下几个菜单：文件菜单：文件（第一层）mnuFile新建（第二层） mnuNew Ctrl+N打开（第二层） mnuOpen Ctrl+O保存（第二层） mnuSave Ctrl+S-（第二层）mnuFileSep （分隔线）退出（第二层） mnuExit Ctrl+X编辑菜单：编辑（第一层） mnuEdit复制（第二层） mnuCopy Ctrl+C剪切（第二层）mnuCutCtrl+T粘贴（第二层）mnuPasteCtrl+V-（第二层）mnuEditSep（分隔线）全选（第二层）mnuSelecAllCtrl+A三.搜索菜单：搜索（第一层）

查找（第二层）mnuSearchmnuFindCtrl+F查找下一个（第二层）mnuFindOnCtrl+Z四.帮助菜单：帮助（第一层）mnuHelp使用说明（第二层）mnuUsage关于（第二层）mnuAbout第三步：编写代码'声明查找变量DimsFindAsString、'声明文件类型DimFileType,FiTypeAsString'初始化程序PrivateSubForm_Load（）'设置程序启动时的大小=6000=9000、EndSub'设置编辑框的位置和大小PrivateSubForm_Resize()OnErrorResumeNext'出错处理=380=20=ScaleHeight-400)=ScaleWidth-40EndSub'新建文件PrivateSubmnuNew_Click()=""'清空文本框FileName="未命名"=FileName,EndSub'打开文件PrivateSubmnuOpen_Click()="文本文档(*.txt)∣*.txt∣RTF文档(*.rtf)∣*.rtf∣所有文件(*.*)|*.*=""'清空文本框FileName=、FileName="记事本："&FileNameEndSub'保存文件PrivateSubmnuSave_Click()="文本文档(*.txt)∣*.txt∣RTF文档(*.rtf)∣*.rtf∣所有文件(*.*)|*.*】FileType=FiType=LCase(Right(FileType,3))FileName=SelectCaseFiTypeCase"txt"FileName,rtfTextCase"rtf"FileName,rtfRTF•Case"*.*"FileNameEndSelect="记事本："&FileNameEndSub'退出PrivateSubmnuExit_Click()EndEndSub'复制PrivateSubmnuCopy_Click()EndSub【'剪切PrivateSubmnuCut_Click()EndSub'全选)PrivateSubmnuSelectAll_Click()=0=LenEndSub'粘贴PrivateSubmnuPaste_Click()@EndSub'查找PrivateSubmnuFind_Click()SFind=InputBox("请输入要查找的段落："，"查找内容"，SFind)sFindEndSub》'继续查找PrivateSubmnuFindOn_Click()=++1SFind,,Len(RichTextBox1)EndSub'使用说明PrivateSubmnuReadme_Click()、OnErrorGoTohandler"",rtfTeXt'请写好文件并存入程序所在文件夹中="记事本："&"使用说明"EXitSubhandler:MSgBoX"使用说明文档可能已经被移除，请与作者联系。",vbOKOnly,"错误信息"EndSub'关于PrivateSubmnuAbout_Click()MSgBoX"超级记事本版权所有(C)2008yys3434",vbOKOnly,"关于"EndSub第四步：制作工具栏单击“工程”-“部件”，选中MicrosoftWindowsCommonControl并确定。要用到的控件就出现在左边的工具栏上。首先用ImageList控件来装载图像。在程序界面上添加它，然后右键单击此控件，左键单击“属性”，弹出“属性页”对话框的“图像”，再单击“插入图片”可以一次性装载图片。在插入图片时给每一张图片注明关键字。接下来在程序界面添加工具栏(ToolBar)。添加后工具栏就出现在菜单下面，右键单击，选择“属性”，在弹出的“属性页”对话框中的“通用”项作些设置如下两项：.“图像列表”：选择ImageLiStI.“样式”：选择1-trbStandard继续点击“属性页”的“按钮”选项，插入若干按钮。按钮有多种样式，每一个与用户操作有关的按钮都必须注明关键字、装载图片，在“图像”项键入ImageLiStI中的图片关键字。然后编写工具栏的代码：PrivateSubToolbar1_ButtonClick(ByValButtonAsOnErrorResumeNextSelectCaseCase"新建"mnuNew_ClickCase"打开"mnuOpe