用VB编写的记事本源码教程

一．实验要求 用所学的VB 语言编写一个自己的记事本，其功能与计算机中记事本的功能基本一致，程序结构清晰。 二．实验目的 通过编写记事本，熟悉并掌握所学VB 的程序语言，锻炼编程思想，从而触类旁通发挥自己的创造力编辑自己的作品。 三．设计软件所实现的功能 窗体界面包括：文件、编辑、格式、查看、帮助五个主菜单。每个主菜单都有自己的子菜单，其主菜单的功能如下： 1. 文件：包括新建、打开、保存、另存为、页面设置、打印、退出的功能。 2. 编辑：包括撤销、剪切、复制、粘贴、删除、查找、查找下一个、替换、转到、全选、时间/日期的功能。 3. 格式：包括自动换行、字体的功能。 4. 查看：包括状态栏的功能 5. 帮助：包括帮助主题，关于记事本。 四．设计介绍 .1.绘制界面 新建一个标准的.exe 工程，将其caption 属性改为”无标题-记事本”，点击 icon 属性给它找一个合适的图标，其编辑的界面图如下： 2.编辑菜单 按 ctrl+E 调出菜单编辑器，来做如下几个菜单： （1）文件菜单: 文件（第一层）file、新建（第二层）new、打开（第二层）open、保存（第二层）save、 另存为（第二层）lingsave、-（第二层）spar1(分隔线)、 页面设置（第二层）design、 打印（第二层）print、-（第二层）spar2（分隔线）、退出（第二层）exit （2）编辑菜单 编辑(第一层)edit、撤销（第二层）cancel、-（第二层）spar3、剪切（第二层）qie、 复制（第二层）copy、粘贴（第二层）tie、删除（第二层）delete、-（第二层）spar4、 2 查找（第二层）find、查找下一个（第二层）findnext、替换（第二层）instead、转到（第二层）zhuan、-（第二层）spar5、全选（第二层）selectall、时间/日期（第二层）date (3)格式菜单 格式（第一层）style、自动换行（第二层）autozhuan、字体（第二层）font (4)查看菜单 查看（第一层）cha、状态栏（第二层）state (5)帮助菜单 帮助（第一层）help、帮助主题（第二层）topic、关于记事本（第二层）about 3.编辑代码 (1)新建 Private Sub new_Click() Dim m As New Form1 If d Then If Form1.Caption = "无标题-记事本" Then yy = MsgBox("文件 无标题-记事本 文字已经改变，" + Chr(13) + Chr(10) + "是否保存文件?", 51, "记事本") Else yy = MsgBox("文件 " + rr + " 文字已经改变，" + Chr(13) + Chr(10) + "是否保存文件...