用VB写记事本的程序.docx

可视化程序课程—记事本程序实验报告

1、新建工程

启动VB程序后，建立一个新的工程。出现“窗体设计器”。

2、创建记事本的菜单栏

打开工具选项条 单击菜单编辑器

在标题栏里面分别添加“文件（F）”“编辑（E）”“格式（A）”“帮助（H）”并分别设置名称和快捷键。

分别在“文件”“编辑”“格式”“帮助”选项下编辑如图所示的的子菜单，设置标题，名称，快捷键。

3、代码的编写

文件 file

①新建new

注解： Form1.Caption=无标题-记事本 把新建记事本的名字定义为“无标题-记事本”

②打开 open

注解：“OnErrorGoToa ” a在代码倒数第二行有定义，如果在打

开的过程中出现错误就到“a”退出程序；DimindexAsInteger定义变量

③保存save

④另存为as

注解：定义一个变量ss作为字符串如果正确执行操作错误就执行a退出

⑤打印 print

⑥退出exit

编辑editing

①剪切cut

②复制copy

③粘贴past

④删除delete

⑤查找 find

注释：sFind=InputBox 查找输入框

MsgBox找不到所要查询的内容,,查询无果报告

⑥查找下一个 findnext

⑦全选seleall

Privai.leSub三el钰ll_Click0T仑xH.S心lStart二O

T@xt.1.S疤lL盯ngth；；；比 n(T@:xtl.T釭X:t)

EILdSlJ.b

格式

①自动换行autonewline

I复ll.ton包肾Ii直e

Frivt仑Subantonew1lne_Cliek(］If autonewlin贮CheckedThen

aulonewline.Checked F斗迁

Te}[t1.ScrollBSJ屯；二3

ICii:c

卫1迁

auto丁1:!Wlirtt!.Cht!kl::!d二 Tru.l::!Te以1.ScrollB屯泛;=1

卫ndIf

End.Sub

②字体fond

(font ｀＇

Prir:t=ilt@Sub fon t_Click()

|

Comrnonili吐ogl.Font1f如IE!= F(Irml.FontNComrnonDialog1.FontBold二氏 rm1.FontB

}Dirna肛

, Commo心i斗ogl.ShoI,?Fl)n七

}a＂面打函 斗o斗．5hoIt丘inter

F!nd u飞

帮助help关于about

|al,Qut 习 lCl.ick

“江PrivaleSubabou七Cli_ck0

“江

Box“我的记奉本1/1.0，心Inforn::I,ti on,＂记奉京”

EndSub