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

1、VB课程设计报告记事本设计VB课程设计题目：记事本程序指导教师：姓名：2008-7-2.一、 预定功能-第3 页二、 设计界面-第3 页三、 运行界面及主要功能说明-第 4页四、 操作流程图-第 7页】五、 程序设计过程-第 12页！一、预定功能新建：新建立一个记事本文档。保存：重命名一个名字，保存文档。打开：将打开一个已经存储在计算机中的文件（*.txt或*.rtf文件）。退出：指退出这个记事本程序。|编辑：能对文本进行复制、剪切、粘贴，也可以改变文本字体、颜色、大小。查找：类似Word文档的查找功能，通过输入关键字，词进行查找。帮助：记事本简介以及功能的用法。二、设计界面记事本界面有以下几

2、部分组成：标题栏：自定义图标和记事本标题。菜单栏：包括文件、编辑、搜索和帮助主题。%工具栏：菜单栏中部分功能的快捷键。文本框：用于编辑、查看文本内容。状态栏：显示编辑状态、当前日期和具体时间。具体设计界面如下图：三、 运行界面及主要功能说明双击“记事本.exe”出现如图主界面：主要功能：（1）文本打开、新建、保存等基本操作：！（2）文本编辑功能：（3）文本查找功能：￥（4）记事本帮助主题：功能说明：（1）基本操作：能够打开计算机中存储的*.txt或*.rtf文件，进行读写操作，记事本拥有一个很好的优点：就是打开速度快，文件小。通过记事本可以很方便地打开比较小文本文档。（2）编辑操作：对文本匡中

3、的文档内容进行编辑。通过对文本进行复制、剪切、粘贴，方便了用户的操作。使得记事本能够像Word一样，不仅可以查看文本，还能对其进行修改。（3）搜索操作：如果一篇文章太长，使用搜索功能可以马上找到要寻找的内容，通过输入关键字进行查找。如果要查找多个相同文本内容，可以通过“查找下一个”来逐一查找。（4）￥（5）使用说明：一个简单的记事本使用指南。“关于”的内容一般都是作者的版权说明以及程序版本。（6）工具栏：对常用的几个功能进行了快捷键设置，方便用户操作。四、操作流程图1基本操作新建：通过文件-新建，来打开一个新文档，新建后的文档是以“未命名”为标题的。打开操作：文件-打开，选择要打开的文档打开后

4、的文档：?保存操作：文件-保存；另存为abc,txt保存在F盘。2编辑操作：复制：打开，选中第一段，复制到第二段中间。;剪切和粘贴：把复制的内容剪切掉，粘贴在最后一段后面。更改字体：选中第一段文字，把文字改为隶书、36号、绿色。 点击编辑-字体，出现字体编辑对话框，编辑字体属性。如图，修改后的文本。-3查找操作查找：搜索-查找，通过查找“程序”两个字为例。单击“确定”按钮。如果要查找下一个“程序”，通过“查找下一个”查找。五、.六、程序设计过程第一步：界面设计 新建一个标准EXE工程，将其Caption属性改为“记事本”，点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”，

5、在弹出的“部件”对话框里找到Microsoft RichText Box 和公共对话框Microsoft Common Dialog 并选中它们，单击“确定”按钮。这时左边的工具栏上出现了刚才新添的两个控件。在窗体上绘制RichText Box和Commn Dialog，其中RichText Box的大小和位置可不用理睬，可以在代码中处理它，要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。第二步：编辑菜单。 调出菜单编辑器，做如下几个菜单： 一.文件菜单： 文件（第一层） mnuFile 新建（第二层） mnuNew Ctrl+N打开（第二

6、层） mnuOpen Ctrl+O保存（第二层） mnuSave Ctrl+S- （第二层） mnuFileSep (分隔线） 退出（第二层） mnuExit Ctrl+X二.编辑菜单： 编辑（第一层） mnuEdit 复制（第二层） mnuCopy Ctrl+C?剪切（第二层） mnuCut Ctrl+T粘贴（第二层） mnuPaste Ctrl+V-（第二层） mnuEditSep （分隔线） 全选（第二层） mnuSelecAll Ctrl+A三.搜索菜单： 搜索（第一层） mnuSearch 查找（第二层） mnuFind Ctrl+F查找下一个（第二层） mnuFindOn Ctrl

7、+Z?四.帮助菜单： 帮助（第一层） mnuHelp 使用说明（第二层） mnuUsage 关于（第二层） mnuAbout 第三步：编写代码声明查找变量 Dim sFind As String 、声明文件类型 Dim FileType, FiType As String 初始化程序 Private Sub Form_Load() 设置程序启动时的大小 = 6000 = 9000 End Sub 设置编辑框的位置和大小 Private Sub Form_Resize() On Error Resume Next 出错处理 =380 =20 = ScaleHeight-400 ) = Scale

8、Width-40 End Sub 新建文件 Private Sub mnuNew_Click() = 清空文本框 FileName = 未命名 = FileName ,End Sub 打开文件 Private Sub mnuOpen_Click() = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.* = 清空文本框 FileName = 、 FileName = 记事本： & FileName End Sub 保存文件 Private Sub mnuSave_Click() = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|

9、*.rtf|所有文件(*.*)|*.* 】FileType = FiType = LCase(Right(FileType, 3) FileName = Select Case FiType Case txt FileName, rtfText Case rtf FileName, rtfRTF Case *.* FileName End Select = 记事本： & FileName End Sub 退出 Private Sub mnuExit_Click() ；End End Sub 复制 Private Sub mnuCopy_Click() End Sub 【剪切 Private S

10、ub mnuCut_Click() = End Sub 全选 ）Private Sub mnuSelectAll_Click() = 0 = Len End Sub 粘贴 Private Sub mnuPaste_Click() = End Sub 查找 Private Sub mnuFind_Click() sFind = InputBox(请输入要查找的段落：, 查找内容, sFind) sFind End Sub 继续查找 Private Sub mnuFindOn_Click() = + + 1 sFind, , Len(RichTextBox1) End Sub 使用说明 Priva

11、te Sub mnuReadme_Click() 、On Error GoTo handler , rtfText 请写好文件并存入程序所在文件夹中 = 记事本： & 使用说明 Exit Sub handler: MsgBox 使用说明文档可能已经被移除，请与作者联系。, vbOKOnly, 错误信息 End Sub 关于 Private Sub mnuAbout_Click() MsgBox 超级记事本 版权所有(C) 2008 yys3434,vbOKOnly,关于 End Sub第四步：制作工具栏 单击“工程”-“部件”，选中Microsoft Windows Common Contro

12、l 并确定。要用到的控件就出现在左边的工具栏上。 首先用ImageList控件来装载图像。在程序界面上添加它，然后右键单击此控件，左键单击“属性”，弹出“属性页”对话框的“图像”，再单击“插入图片”可以一次性装载图片。在插入图片时给每一张图片注明关键字。接下来在程序界面添加工具栏(ToolBar)。添加后工具栏就出现在菜单下面，右键单击，选择“属性”，在弹出的“属性页”对话框中的“通用”项作些设置如下两项： 1.“图像列表”：选择ImageList1 2.“样式”：选择1-trbStandard 继续点击“属性页”的“按钮”选项，插入若干按钮。按钮有多种样式，每一个与用户操作有关的按钮都必须注

13、明关键字、装载图片，在“图像”项键入ImageList1中的图片关键字。然后编写工具栏的代码：Private Sub Toolbar1_ButtonClick(ByVal Button As On Error Resume Next Select Case Case 新建 mnuNew_Click Case 打开 mnuOpen_Click Case 保存 mnuSave_Click Case 查找 mnuFind_Click Case 剪切 mnuCut_Click Case 复制 mnuCopy_Click Case 粘贴 mnuPaste_Click End SelectEnd Sub第五步：制作状态栏在窗体上添加StatusBar控件后会默认出现在窗体的最下方。右键点击调出“属性页”对话框，单击“窗格”项，插入窗格将各个窗格的“样式”进行设置。