【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“VB课程设计--记事本程序 - 课程设计”一文，供大家参考学习

VB 课程设计题目：记事本程序 指导教师： 2 目 录一、 预定功能------------------------------------------第 3 页二、 设计界面------------------------------------------第 3 页三、 运行界面及主要功能说明---------------------第 4 页四、 操作流程图---------------------------------------第 7 页五、 程序设计过程------------------------------------第 12 页 2一、 预定功能新建：新建立一个记事本文档。

    保存：重命名一个名字，保存文档。

     。

    打开：将打开一个已经存储在计算机中的文件（.txt 或.rtf 文件）退出：指退出这个记事本程序。

    编辑：能对文本进行复制、剪切、粘贴，也可以改变文本字体、颜色、大小。

    查找：类似 Word 文档的查找功能，通过输入关键字，词进行查找。

    帮助：记事本简介以及功能的用法。

    二、 设计界面记事本界面有以下几部分组成：标题栏：自定义图标和记事本标题。

    菜单栏：包括文件、编辑、搜索和帮助主题。

    工具栏：菜单栏中部分功能的快捷键。

    文本框：用于编辑、查看文本内容。

    状态栏：显示编辑状态、当前日期和具体时间。

    具体设计界面如下图：三、 运行界面及主要功能说明 3双击“记事本.exe”出现如图主界面：主要功能：（1） 文本打开、新建、保存等基本操作： 4（2）文本编辑功能：（3）文本查找功能： 5（4）记事本帮助主题：功能说明：（1） 基本操作：能够打开计算机中存储的.txt 或.rtf 文件，进行读写操作，记事本拥有 一个很好的优点：就是打开速度快，文件小。

    通过记事本可以很方便地打开比较小 文本文档。

    （2） 编辑操作：对文本匡中的文档内容进行编辑。

    通过对文本进行复制、剪切、粘贴， 方便了用户的操作。

    使得记事本能够像 Word 一样，不仅可以查看文本，还能对其 进行修改。

    （3） 搜索操作：如果一篇文章太长，使用搜索功能可以马上找到要寻找的内容，通过输 入关键字进行查找。

    如果要查找多个相同文本内容，可以通过“查找下一个”来逐 一查找。

     “关于”的内容一般都是作者的版权说明以（4） 使用说明：一个简单的记事本使用指南。

     及程序版本。

    （5） 工具栏：对常用的几个功能进行了快捷键设置，方便用户操作。

    四、 操作流程图 61．基本操作新建：通过文件---新建，来打开一个新文档，新建后的文档是以“未命名”为标题的。

    打开操作：文件----打开，选择要打开的文档 Readme.txt打开后的文档： 7保存操作：文件----保存；另存为 abctxt 保存在 F 盘。

    2．编辑操作： 8复制：打开 Readme.txt，选中第一段，复制到第二段中间。

    剪切和粘贴：把复制的内容剪切掉，粘贴在最后一段后面。

    更改字体：选中第一段文字，把文字改为隶书、36 号、绿色。

     9 点击编辑----字体，出现字体编辑对话框，编辑字体属性。

    如图，修改后的文本。

    3．查找操作 10查找：搜索---查找，通过查找“程序”两个字为例。

    单击“确定”按钮。

     ，通过“查找下一个”查找。

    如果要查找下一个“程序” 11五、 程序设计过程第一步：界面设计 新建一个标准 EXE 工程，将其 Caption 属性改为“记事本”，点击 Icon 属性给它找个合适的 Icon 图标。

    单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到 Microsoft RichTextBox 6.0 和公共对话框 Microsoft Common Dialog 6.0 并选中它们，单击“确定”按钮。

    这时左边的工具栏上出现了刚才新添的两个控件。

    在窗体上绘制 RichText Box 和 Commn Dialog，其中 RichText Box 的大小和位置可不用理睬，可以在代码中处理它，要把它的 ScrollBar 属性设为 2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。

    第二步：编辑菜单。

    调出菜单编辑器，做如下几个菜单：一. 文件菜单：文件（第一层） mnuFile新建（第二层） mnuNew CtrlN打开（第二层） mnuOpen CtrlO保存（第二层） mnuSave CtrlS- （第二层） mnuFileSep 分隔线）退出（第二层） mnuExit CtrlX二. 编辑菜单：编辑（第一层） mnuEdit复制（第二层） mnuCopy CtrlC剪切（第二层） mnuCut CtrlT 12粘贴（第二层） mnuPaste CtrlV-（第二层） mnuEditSep （分隔线）全选（第二层） mnuSelecAll CtrlA三.搜索菜单：搜索（第一层） mnuSearch查找（第二层） mnuFind CtrlF查找下一个（第二层） mnuFindOn CtrlZ四.帮助菜单：帮助（第一层） mnuHelp使用说明（第二层） mnuUsage关于（第二层） mnuAbout第三步：编写代码声明查找变量Dim sFind As String声明文件类型Dim FileType FiType As String初始化程序Private Sub Form_Load设置程序启动时的大小Me.Height 6000Me.Width 9000End Sub设置编辑框的位置和大小Private Sub Form_ResizeOn Error Resume Next 出错处理RichTextBox1.Top380RichTextBox1.Left20RichTextBox1.Height ScaleHeight-400RichTextBox1.Width ScaleWidth-40End Sub新建文件Private Sub mnuNew_ClickRichTextBox1.Text 清空文本框FileName 未命名Me.Caption FileNameEnd Sub打开文件Private Sub mnuOpen_ClickCommonDialog1.Filter 文本文档.txt.txtRTF 文档.rtf.rtf所有文件.. 13CommonDialog1.ShowOpenRichTextBox1.Text 清空文本框FileName CommonDialog1.FileNameRichTextBox1.LoadFile FileNameMe.Caption 记事本： FileNameEnd Sub保存文件Private Sub mnuSave_ClickCommonDialog1.Filter 文本文档.txt.txtRTF 文档.rtf.rtf所有文件..CommonDialog1.ShowSaveFileType CommonDialog1.FileTitleFiType LCaseRightFileType 3FileName CommonDialog1.FileNameSelect Case FiTypeCase txtRichTextBox1.SaveFile FileName rtfTextCase rtfRichTextBox1.SaveFile FileName rtfRTFCase .RichTextBox1.SaveFile FileNameEnd SelectMe.Caption 记事本： FileNameEnd Sub退出Private Sub mnuExit_ClickEndEnd Sub复制Private Sub mnuCopy_ClickClipboard.ClearClipboard.SetText RichTextBox1.SelText End Sub剪切Private Sub mnuCut_ClickClipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText End Sub全选Private Sub mnuSelectAll_Click 14RichTextBox1.SelStart 0RichTextBox1.SelLength LenRichTextBox1.TextEnd Sub粘贴Private Sub mnuPaste_ClickRichTextBox1.SelText Clipboard.GetTextEnd Sub查找Private Sub mnuFind_ClicksFind InputBox请输入要查找的段落： 查找内容 sFindRichTextBox1.Find sFindEnd Sub继续查找Private Sub mnuFindOn_ClickRichTextBox1.SelStart RichTextBox1.SelStart RichTextBox1.SelLength 1RichTextBox1.Find sFind LenRichTextBox1End Sub使用说明Private Sub mnuReadme_ClickOn Error GoTo handlerRichTextBox1.LoadFile Readme.txt rtfText 请写好 Readme.txt 文件并存入程序所在文件夹中Me.Caption 记事本： 使用说明Exit Subhandler:MsgBox 使用说明文档可能已经被移除，请与作者联系。

     vbOKOnly 错误信息End Sub关于Private Sub mnuAbout_ClickMsgBox 超级记事本 Ver1.0 版权所有C 2008 yys3434vbOKOnly关于End Sub第四步：制作工具栏 单击“工程”-“部件”，选中 Microsoft Windows Common Control 6.0 并确定。

    要用到的控件就出现在左边的工具栏上。

     首先用 ImageList 控件来装载图像。

    在程序界面上添加它，然后右键单击此控件，左键单击“属性”，弹出“属性页”对话框的“图像”，再单击“插入图片”可以一次性装载图片。

    在插入图片时给每一张图片注明关键字。

     接下来在程序界面添加工具栏ToolBar。

    添加后工具栏就出现在菜单下面，右键单击， 15选择“属性”，在弹出的“属性页”对话框中的“通用”项作些设置如下两项： 1.“图像列表”：选择 ImageList1 2.“样式”：选择 1-trbStandard 继续点击“属性页”的“按钮”选项，插入若干按钮。

    按钮有多种样式，每一个与用户操作有关的按钮都必须注明关键字、装载图片，在“图像”项键入 ImageList1 中的图片关键字。

    然后编写工具栏的代码：Private Sub Toolbar1_ButtonClickByVal Button As MSComctlLib.ButtonOn Error Resume Next Select Case Button.Key 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 控件后会默认出现在窗体的最下方。

    右键点击调出“属性页”对话框，单击“窗格”项，插入窗格将各个窗格的“样式”进行设置。

     16