欢迎来到天天文库
浏览记录
ID:21705084
大小:59.00 KB
页数:8页
时间:2018-10-24
《用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、撤销(第二层)cancel、-(
3、第二层)spar3、剪切(第二层)qie、复制(第二层)copy、粘贴(第二层)tie、删除(第二层)delete、-(第二层)spar4、查找(第二层)find、查找下一个(第二层)findnext、替换(第二层)instead、转到(第二层)zhuan、-(第二层)spar5、全选(第二层)selectall、时间/日期(第二层)date(3)格式菜单格式(第一层)style、自动换行(第二层)autozhuan、字体(第二层)font(4)查看菜单查看(第一层)cha、状态栏(第二层)state(5)帮助菜单帮助(第一层)help、帮助主题(第二层)topic、关于记事本(第二层)
4、about3.编辑代码(1)新建PrivateSubnew_Click()DimmAsNewForm1IfdThenIfForm1.Caption="无标题-记事本"Thenyy=MsgBox("文件无标题-记事本文字已经改变,"+Chr(13)+Chr(10)+"是否保存文件?",51,"记事本")Elseyy=MsgBox("文件"+rr+"文字已经改变,"+Chr(13)+Chr(10)+"是否保存文件?",51,"记事本")EndIfEndIfIfyy=6ThenCalllingsave_ClickElseIfyy=2ThenExitSubEndIfForm1.Hidem.Sho
5、wEndSub(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$whole$=whole$+a$+Chr(13)+Chr(10)LoopText1.Text=whole$Clo
9、se#1ss=Split(cd.FileTitle,".")dd=ss(0)Form1.Caption=dd+"-记事本"ElseIfForm1.Caption="无标题-记事本"Thenyy=MsgBox("文件无标题-记事本文字已经改变,是否保存文件?",51,"记事本")Elseyy=MsgBox("文件"+rr+"文字已经改变,是否保存文件?",51,"记事本")EndIfIfyy=6ThenCalllingsave_ClickGoTostartElseIfyy=7ThenGoTostartElseExitSubEndIfEndIfee:ExitSubEndSub(3)保存Pri
10、vateSubsave_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.In
此文档下载收益归作者所有