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

《用vb编写的记事本源码教程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、一．实验要求用所学的VB语言编写一个自己的记事本，其功能与计算机中记事本的功能基本一致，程序结构清晰。二．实验目的通过编写记事本，熟悉并掌握所学VB的程序语言，锻炼编程思想，从而触类旁通发挥自己的创造力编辑自己的作品。三．设计软件所实现的功能窗体界面包括：文件、编辑、格式、查看、帮助五个主菜单。每个主菜单都有自己的子菜单，其主菜单的功能如下：1.文件：包括新建、打开、保存、另存为、页面设置、打印、退出的功能。2.编辑：包括撤销、剪切、复制、粘贴、删除、查找、查找下一个、替换、转到、全选、时间/日期的功能。3.格式：包括自动换行、字体的功能。4.查看：包括状态栏的功能5.帮

2、助：包括帮助主题，关于记事本。四．设计介绍.1.绘制界面新建一个标准的.exe工程，将其caption属性改为”无标题-记事本”，点击icon属性给它找一个合适的图标，其编辑的界面图如下：2.编辑菜单按ctrl+E调出菜单编辑器，来做如下几个菜单：（1）文件菜单:文件（第一层）file、新建（第二层）new、打开（第二层）open、保存（第二层）save、另存为（第二层）lingsave、-（第二层）spar1(分隔线)、页面设置（第二层）design、打印（第二层）print、-（第二层）spar2（分隔线）、退出（第二层）exit（2）编辑菜单编辑(第一层)edit、

3、撤销（第二层）cancel、-（第二层）spar3、剪切（第二层）qie、8复制（第二层）copy、粘贴（第二层）tie、删除（第二层）delete、-（第二层）spar4、查找（第二层）find、查找下一个（第二层）findnext、替换（第二层）instead、转到（第二层）zhuan、-（第二层）spar5、全选（第二层）selectall、时间/日期（第二层）date(3)格式菜单格式（第一层）style、自动换行（第二层）autozhuan、字体（第二层）font(4)查看菜单查看（第一层）cha、状态栏（第二层）state(5)帮助菜单帮助（第一层）help、

4、帮助主题（第二层）topic、关于记事本（第二层）about3.编辑代码(1)新建PrivateSubnew_Click()DimmAsNewForm1IfdThenIfForm1.Caption="无标题-记事本"Thenyy=MsgBox("文件无标题-记事本文字已经改变，"+Chr(13)+Chr(10)+"是否保存文件?",51,"记事本")Elseyy=MsgBox("文件"+rr+"文字已经改变，"+Chr(13)+Chr(10)+"是否保存文件?",51,"记事本")EndIfEndIfIfyy=6ThenCalllingsave_ClickElseIfyy

5、=2ThenExitSubEndIfForm1.Hidem.ShowEndSub(2)打开PrivateSubopen_Click()cd.InitDir="D:"cd.CancelError=Truecd.Filter="全部文挡(*.*)

6、*.*

7、文本文挡(*.txt)

8、*.txt"cd.FilterIndex=2Ifd<>TrueThenstart:OnErrorGoToeecd.ShowOpenOpencd.FileNameForInputAs#1rr=cd.FileNameDoWhileNotEOF(1)LineInput#1,a$8whole$=whole$+

9、a$+Chr(13)+Chr(10)LoopText1.Text=whole$Close#1ss=Split(cd.FileTitle,".")dd=ss(0)Form1.Caption=dd+"-记事本"ElseIfForm1.Caption="无标题-记事本"Thenyy=MsgBox("文件无标题-记事本文字已经改变，是否保存文件?",51,"记事本")Elseyy=MsgBox("文件"+rr+"文字已经改变，是否保存文件?",51,"记事本")EndIfIfyy=6ThenCalllingsave_ClickGoTostartElseIfyy=7ThenGoTo

10、startElseExitSubEndIfEndIfee:ExitSubEndSub(3)保存PrivateSubsave_Click()IfForm1.Caption="无标题-记事本"ThenCalllingsave_Clickd=FalseElsecc=Split(Form1.Caption,"-")ff=cc(0)Openff+".txt"ForOutputAs#1Print#1,Text1.TextClose#1d=FalseEndIfEndSub(4)另存为PrivateSublingsave_Click()cd.