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

一．实验要求 用所学的VB语言编写一个自己的记事本，其功能与计算机中记事本的功能基本一致，程序结构清晰。 二．实验目的 通过编写记事本，熟悉并掌握所学VB的程序语言，锻炼编程思想，从而触类旁通发挥自己的创造力编辑自己的作品。 三．设计软件所实现的功能 窗体界面包括：文件、编辑、格式、查看、帮助五个主菜单。每个主菜单都有自己的子菜单，其主菜单的功能如下： 文件：包括新建、打开、保存、另存为、页面设置、打印、退出的功能。 编辑：包括撤销、剪切、复制、粘贴、删除、查找、查找下一个、替换、转到、全选、时间/日期的功能。 格式：包括自动换行、字体的功能。 查看：包括状态栏的功能 帮助：包括帮助主题，关于记事本。 四．设计介绍 .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、查找（第二层）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) + 是否保存文件?, 51, 记事本) End If End If If yy = 6 Then Call lingsave_Click ElseIf yy = 2 Then Exit Sub End If Form1.Hide m.Show End Sub (2)打开 Private Sub open_Click() cd.InitDir = D: cd.CancelError = True cd.Filter = 全部文挡(*.*)|*.*|文本文挡(*.txt)|*.txt cd.FilterIndex = 2 If d True Then start: On Error GoTo ee cd.ShowOpen Open cd.FileName For Input As #1 rr = cd.FileName Do While Not EOF(1) Line Input #1, a$ whole$ = whole$ + a$ + Chr(13) + Chr(10) Loop Text1.Text = whole$ Close #1 ss = Split(cd.FileTitle, .) dd = ss(0) Form1.Caption = dd + -记事本 Else If Form1.Caption = 无标题-记事本 Then yy = MsgBox(文件 无标题-记事本 文字已经改变，是否保存文件?, 51, 记事本) Else yy = MsgBox(文件 + rr + 文字已经改变，是否保存文件?, 51, 记事本) End If If yy = 6 Then Call lingsave_Click GoTo star