用VB写记事本的程序

1、用VB写记事本的程序Jenny was compiled in January 2021可视化 程序课 程记事本程序实验报告1、新建工程启动VB程序后，建立一个新的工程。出现“窗体设计器”。2、创建记事本的菜单栏打开工具选项条单击菜单编辑器也工曜 1 Mfcrosoft Viwal 8atc :X抄013QX殓P啊! II 文故B SWKE)18®W»(Q)运行 WiSJUJ) BMW) TM(D 外樓够A) SQMDC3 IS1 Form (Form)囱电过砂I性(A)“6015x6495BAL F0无标童-记事本交性(E) »»E)曙式g) |r&#

2、171;ti13 SWMWtHK理)Ctrl+E3®(O).(1) 在标题栏里面分别添加“文件(&F) ” “编辑(&E) ” “格式(&A) 帮助(&H) ”并分别设置名称和快捷键。(2) 分别在“文件”“编辑”“格式” “帮助”选项下编辑如图所示的的子菜单，设置标题，名称，快捷键。文件(F)| 錚ft(臼 «Kt(O)砲N)JW)_另荐为(A)打印(叽iSS(X)Q无彌记事本SWWT)CtrltX«w(a3UCMhUDdCtrUFCtrlNWHR)CUltH±S(A)0无目2；文件(F)»(E)榕式(0)、年

3、KH用 丽B2»fT(W)孚依asm-,，1=B5C(O)芜于记环(A)T( H )3、代码的编写(1)文件 file 新建newnewPr ivaie Su.b new Cli ck 0sfile =CMTextl.Tixt =Forml. Capti on ="无标题-记事本"End Sub注解：二无标题-记事本把新建记事本的名字定义为“无标题-记事本” 打开open|open|ClickPrivate Sub open_Click 0Oit Error GoTo aC omiTioiLDi alogl. ShowOpen'分离路径和鬟件名Dim in

4、dex As Integerindex = InStrRev CCornmonDi alogl. FileName?s£ile = Right (CommonDilogl. Filellaine Len(CorrimonDi alog：l. FileNani) - index) sdir = Left (CommonDialogl. Fileliajrie. index - 1)'打开文件Open CommonDi alogl. FileName For Input As #1Textl.Text 二"Do ffhile Not EOF(1)Line Input 轧

5、 ssTextl.Text = Txtl.Text &. ss & vbCrLELoopClose #1Forml.Caption. = sfile 十"-记事本"a： Exit SubEnd Sub注解："On Error GoTo a在代码倒数第二行有定义，如果在打开的过程中出现错误就到"a”退出程序；Dim index As Integer定义变 保存savePrivate Sub sa.ve_Click0If sfil = g TheaCall as.ClickElseOpen sdir && sfile For

6、Output As #1Print #1, Textl.TextClose #1End IfEnd Sub 另存为as亍 | |di clcPrivate Sub as_Cli ck 0Dim ss As StringCommordDialogl. CaneelError = TrueCommonDialogl. Flags = cdlOFWFileHustEx i st Or cdlOFNOverwri t ePromptOn Errr GoTo aCommorJDi&logl. ShowSave'分离路径和文件名Dim index As Integerindex = InS

7、trRev(ComrriOTLDi alogl. Filellanisfile = Right (CommonDi alogl. FilQHam©, LenCConmonDi alogl. FileName) - index) sdir = Le£t (CofnmoiLDialogi. FilelTairie, iitdex 1)'打开文件Open CcmmonDi alogl. FileName For Output As #1Frint #1, Textl. TextClose #1Forml.Caption = sfile + " - 记事本&quo

8、t;a.： Exit SubEnd Sub注解：定义一个变量ss作为字符串如果正确执行操作错误就执行a退出 打印print 退出exit(2)编辑 editing剪切cut|cut |Pri vate Sub cutClick 0 Clipboard. SetText CTextl. SelText) TeKtl. SelText = “End. Sub）复制copy| copyPrivate Sub copyClick()Clipboard. SetText (Textl. SelText) End Sub 粘贴pastPrivate Sub pasckQI Textl. SelText =

9、 Clipboard. GfitText End. Sub 删除deletePrivate Sub delete Click0Textl.SeLText ="“End Sut. 查找findI findjrJ |Cli ckPrivate Sub find_Click0kfind = InputB输入要査拚词；"，“查钱內容-沁皿)查找输入框 BichTextBoxl.find sfind '查技If RichTextBoxl.SelText <> sfind ThenrkgBz "携不到所要查询的内咨，“查询无果根告End IfEnd Sii

10、b注释：sFind二InputBox查找输入框MsgBox 找不到所要查询的内容S , 查询无果报告 查找下一个 findnext| findnextPrivate Sub findnext_Click0jRichTex tBoxl. SelStart = BichTextBoxl. SelStar t + BichTextBoxl. SelLength + 1 RichTextBosd £ird. sFind , Len(RichTextB1)End. Sub 全选seleallPrivate Sub seieall_Cli ck()Textl.SeLStart 二 0Textl.

11、 SeLLength = LenCTextl. Text)End Sub（3）格式自动换行autonewline | |Clic：|aut onewlineFri vate Sub autoMwl ineClick 0If an t on e wl i ne. C he eke d Then auton«wline. CLeeked = False Textl.ScrollBars = 3Elseautonewline. Checked 二 True Textl.ScrollBars = 1End I£End Sub字体fondI fontPrivate Sub font_Click0CommonlliQlogl. Fontffame 二 Forml. FontMCommonDialogi. FoxitBold = Ferrol. FoxitBDim a As Comm