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

1、精选优质文档-倾情为你奉上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） 工具栏：对常用的几个功能进行了快捷键设置，方便用户操作。四、 操作流程图1基本操作新建：通过文件-新建，来打开一个新文档，新建后的文档是以“未命名”为标题的。打开操作：文件-打开，选择要打开的文档Re

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

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

6、第二层） mnuNew Ctrl+N打开（第二层） 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查找

7、下一个（第二层） mnuFindOn Ctrl+Z四.帮助菜单： 帮助（第一层） mnuHelp 使用说明（第二层） mnuUsage 关于（第二层） mnuAbout 第三步：编写代码'声明查找变量 Dim sFind As String '声明文件类型 Dim FileType, FiType As String '初始化程序 Private Sub Form_Load() '设置程序启动时的大小 Me.Height = 6000 Me.Width = 9000 End Sub '设置编辑框的位置和大小 Private Sub Form_Resize

8、() On Error Resume Next '出错处理 RichTextBox1.Top=380 RichTextBox1.Left=20 RichTextBox1.Height = ScaleHeight-400 RichTextBox1.Width = ScaleWidth-40 End Sub '新建文件 Private Sub mnuNew_Click() RichTextBox1.Text = "" '清空文本框 FileName = "未命名" Me.Caption = FileName End Sub '

9、打开文件 Private Sub mnuOpen_Click() CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*" CommonDialog1.ShowOpen RichTextBox1.Text = "" '清空文本框 FileName = CommonDialog1.FileName RichTextBox1.LoadFile FileName Me.Caption = "记事本：" & FileName End

10、Sub '保存文件 Private Sub mnuSave_Click() CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*" CommonDialog1.ShowSave FileType = CommonDialog1.FileTitle FiType = LCase(Right(FileType, 3) FileName = CommonDialog1.FileName Select Case FiType Case "txt" RichTe

11、xtBox1.SaveFile FileName, rtfText Case "rtf" RichTextBox1.SaveFile FileName, rtfRTF Case "*.*" RichTextBox1.SaveFile FileName End Select Me.Caption = "记事本：" & FileName End Sub '退出 Private Sub mnuExit_Click() End End Sub '复制 Private Sub mnuCopy_Click() Clipbo

12、ard.Clear Clipboard.SetText RichTextBox1.SelText End Sub '剪切 Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText RichTextBox1.SelText RichTextBox1.SelText = "" End Sub '全选 Private Sub mnuSelectAll_Click() RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.T

13、ext) End Sub '粘贴 Private Sub mnuPaste_Click() RichTextBox1.SelText = Clipboard.GetText End Sub '查找 Private Sub mnuFind_Click() sFind = InputBox("请输入要查找的段落：", "查找内容", sFind) RichTextBox1.Find sFind End Sub '继续查找 Private Sub mnuFindOn_Click() RichTextBox1.SelStart = Ric

14、hTextBox1.SelStart + RichTextBox1.SelLength + 1 RichTextBox1.Find sFind, , Len(RichTextBox1) End Sub '使用说明 Private Sub mnuReadme_Click() On Error GoTo handler RichTextBox1.LoadFile "Readme.txt", rtfText '请写好Readme.txt文件并存入程序所在文件夹中 Me.Caption = "记事本：" & "使用说明"

15、; Exit Sub handler: MsgBox "使用说明文档可能已经被移除，请与作者联系。", vbOKOnly, " 错误信息" End Sub '关于 Private Sub mnuAbout_Click() MsgBox "超级记事本 Ver1.0 版权所有(C) 2008 yys3434",vbOKOnly,"关于" End Sub第四步：制作工具栏 单击“工程”-“部件”，选中Microsoft Windows Common Control 6.0并确定。要用到的控件就出现在左边的工具栏上

16、。 首先用ImageList控件来装载图像。在程序界面上添加它，然后右键单击此控件，左键单击“属性”，弹出“属性页”对话框的“图像”，再单击“插入图片”可以一次性装载图片。在插入图片时给每一张图片注明关键字。接下来在程序界面添加工具栏(ToolBar)。添加后工具栏就出现在菜单下面，右键单击，选择“属性”，在弹出的“属性页”对话框中的“通用”项作些设置如下两项： 1.“图像列表”：选择ImageList1 2.“样式”：选择1-trbStandard 继续点击“属性页”的“按钮”选项，插入若干按钮。按钮有多种样式，每一个与用户操作有关的按钮都必须注明关键字、装载图片，在“图像”项键入ImageList1中的图片关键字。然后编写工具栏的代码：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)On Error Resume Next Select Case Button.Key Case "新建" mnuNew_Click Case "打开" mnuOpen_Click Case "保存