原创力文档- 1、本文档共6页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
文件编码（GHTU-UITID-GGBKT-POIU-WUUI-8968）
文件编码（GHTU-UITID-GGBKT-POIU-WUUI-8968）
用VB写记事本的程序
可视化程序课程—记事本程序实验报告
1、新建工程
启动VB程序后，建立一个新的工程。出现“窗体设计器”。
2、创建记事本的菜单栏
打开工具选项条 单击菜单编辑器
（1）在标题栏里面分别添加“文件（&F）”“编辑（&E）”“格式（&A）”“帮助（&H）”并分别设置名称和快捷键。
（2）分别在“文件”“编辑”“格式”“帮助”选项下编辑如图所示的的子菜单，设置标题，名称，快捷键。
3、代码的编写
（1）文件 file
①新建 new
注解： = "无标题-记事本" 把新建记事本的名字定义为“无标题-记事本”
②打开 open
注解：“On Error GoTo a ” a在代码倒数第二行有定义，如果在打开的过程中出现错误就到“a” 退出程序；Dim index As Integer定义变量
③保存 save
④另存为 as
注解：定义一个变量ss作为字符串 如果正确执行操作 错误就执行a退出
⑤打印 print
⑥退出 exit
（2）编辑 editing
①剪切 cut
②复制 copy
③粘贴 past
④删除 delete
⑤查找 find
注释：sFind = InputBox 查找输入框
MsgBox "找不到所要查询的内容", , "查询无果报告"
⑥ 查找下一个 findnext
⑦全选 seleall
（3）格式
①自动换行 autonewline
②字体 fond
（4）帮助 help
关于 about
文档评论（0）