vb課程設(shè)計(jì)記事本程序的編寫

1、文檔從網(wǎng)絡(luò)中收集，已重新整理排版.word版本可編輯.歡迎下載支持.1選題的背景與意義1.1 記事本創(chuàng)建的背景通過(guò)一學(xué)期的vb課程學(xué)習(xí)，理解并掌握了許多相關(guān)知識(shí)，知道了面向?qū)ο蟪绦蛟O(shè)計(jì)的基本概念和可視化程序設(shè)計(jì)的基本方法。為了更好地掌握與運(yùn)用vb中最常用的有關(guān)窗體和各種控件的運(yùn)用、菜單、工具欄、對(duì)話框、狀態(tài)欄、的設(shè)計(jì)以及文件操作等技術(shù)，因此在在學(xué)完該課程之后，設(shè)計(jì)了一個(gè)能夠編輯編輯文本文檔、RichText文檔，其文字處理能力類似于Word的簡(jiǎn)易記事本。1.2 記事本創(chuàng)建的意義該記事本具有操作簡(jiǎn)單，易懂靈活，一目了然的特點(diǎn)，同時(shí)由于運(yùn)用了RichText控件，因此能夠打開(kāi)和編輯任意大的文檔，運(yùn)

2、用起來(lái)比windows自帶的記事本方便的多。從而為那些計(jì)算機(jī)技術(shù)應(yīng)用并不熟練但需要使用計(jì)算機(jī)快速編輯和修改文檔的用戶提供了便利。同時(shí)該程序的編寫也使得自己的知識(shí)掌握的更見(jiàn)牢固。2系統(tǒng)詳細(xì)設(shè)計(jì)2.1 主要功能能夠編輯文本文檔，其文字處理功能類似于Word。具有打開(kāi)、保存、新建和退出文件功能。具有剪切、復(fù)制、粘貼、設(shè)置文字的字體以及大小、顏色、對(duì)齊等文字編功能。以及字符串的查找功能。打印功能。2.2 要點(diǎn)的實(shí)現(xiàn)既使用技術(shù)首先，在創(chuàng)建程序是應(yīng)先設(shè)置窗體大小和編輯框的大小。'窗體的加載事件PrivateSubForm_Load()Forml.Top=0Forml.Left=0Me.Height

3、=Screen.Height-4000Me.Width=Screen.Width-5000CommonDialogl.FontName=宋體"'程序運(yùn)行時(shí)字體是宋體EndSub'設(shè)置編輯框的大小和位置PrivateSubForm_Resize()RichTextBoxl.Top=60RichTextBoxl.Left=20RichTextBoxl.Height=Me.Height-100RichTextBoxl.Width=Me.Width-100EndSub笫二,程序設(shè)計(jì)過(guò)程中必須先在窗體中添加CommonDialog和RichText控件。如左圖所示。Common

4、Dialog控件的應(yīng)用使得它提供了如打開(kāi)和保存文件，設(shè)置打印選項(xiàng)，選擇顏色和字體等操作的一組標(biāo)準(zhǔn)對(duì)話框，使我們通過(guò)對(duì)話框填寫的方式來(lái)實(shí)現(xiàn)上述操作。RichText控件的使用是編輯和打開(kāi)的文件大小不受限制。有利于文件的編輯。笫三，程序的編寫過(guò)程中大部分對(duì)象的實(shí)現(xiàn)都是通過(guò)它們的單擊事件進(jìn)行的。如打開(kāi)、保存、新建、復(fù)制、粘貼、字體顏色和大小(如上圖打開(kāi)和字體的通用對(duì)話框)'打開(kāi)文件PrivateSubmnuOpen_Click()OnErrorGoToerrorCommonDialogl.Filter="文本文檔(*.txt)*.txtRTF文檔(*I.rtf)*.rtfI所有文件

5、(*.*)I*.*'設(shè)置過(guò)濾器屬性CommonDialogl.Filterindex=1CommonDialogl.ShowOpenRichTextBoxl.Text='清空文本FileName=CommonDialogl.FileNameRichTextBoxl.LoadFileFileName1loadfile將磁盤文件裝入空間之中Me.Caption=記事本”error:EndSub'字體PrivateSubmnuFont_Click()OnErrorGoToerrorConimonDialogl.Flags=cdlCFBothOrcdlCFEffectsComm

6、onDialogl.ShowFontRichTextBoxl.SelFontName=CommonDialogl.FontNameRichTextBoxl.SelFontSize=CommonDialogl.FontSizeRichTextBoxl.SelBold=CommonDialogl.FontBold'粗體RichTextBoxl.Selltalic=CommonDialogl.Fontltalic'斜體RichTextBoxl.SelUnderline=CommonDialogl.FontUnderline'下戈U線RichTextBoxl.SelStrike

7、Thru=CommonDialogl.FontStrikethru'刪除線error:EndSub第四，在“新建”和“退出”事件中應(yīng)用了MsgBox函數(shù)，當(dāng)用戶在退出或新建時(shí)忘記保存文時(shí)，彈出消息框詢問(wèn)用戶是否保存文件，以防止文件的丟失。記事本你的文檔還沒(méi)有保存，是否對(duì)當(dāng)前問(wèn)價(jià)進(jìn)行保存7者® 取消 '退出文件PrivateSubmnuExit_Click()IfMsgBox你的文檔還沒(méi)有保存，是否對(duì)當(dāng)前問(wèn)價(jià)進(jìn)行保存？,vbYesNoCancel,”記事本)=vbYesThenmnuSave_ClickJvbyesnocancel顯示yesno及cancel按鈕Else

8、lfMsgBox(你還沒(méi)有保存文檔，是否對(duì)當(dāng)前操作文檔進(jìn)行保存？vbYesNoCancel,記事本)=vbNoThenEndElseEndIfEndSub第五，在“查找”實(shí)踐中應(yīng)用了輸入語(yǔ)句中的IputBox函數(shù)，用于用戶在查找過(guò)程中輸入所需要查找的字符串。'查找PrivateSubmnuFind_Click()sFind=InputBox("請(qǐng)輸入要查找的字，詞：，查找內(nèi)容，sFind)RichTextBoxl.FindsFindEndSub第六，在文件保存中使用了SelectCase語(yǔ)句，在打印中使用了for循環(huán)語(yǔ)句，同時(shí)在新建和退出事件中調(diào)用了保存的代碼。'保存

9、文件PrivateSubmnuSave_Click()CancelError=TrueOnErrorGoToerrorCommonDialogl.Filter=文本文檔(*.txt)*.txtRTF文檔(*I.rtf)*.rtf|所有文件(*.*)|*.'設(shè)置過(guò)濾器屬性CommonDialogl.Filterindex=1CommonDialogl.ShowSaveFileType=CommonDialogl.FileTitleFiType=LCase(Right(FileType,3)FileName=CommonDialogl.FileNameSelectCaseFiTypeCas

10、etxt”RichTextBoxl.SaveFileFileName,rtfTextCase"rtf”RichTextBoxl.SaveFileFileName,rtfRTFCase*.*“RichTextBoxl.SaveFileFileNameEndSelectMe.Caption="記事本:"&FileNameerror:EndSubPrivateSubmnuPrint_C1ick()OnErrorGoToerrorCommonDialogl.ShowPrinterFori=1ToCommonDialogl.CopiesPrinter.PrintRi

11、chTextBoxl.TextNextierror:EndSub最后，應(yīng)用了鼠標(biāo)事件，是用戶在單擊鼠標(biāo)右鍵時(shí)，彈出編輯菜單。'鼠標(biāo)右擊事件PrivateSubRichTextBoxl_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)IfButton=vbRightButtonThenPopupMenumnuEdit,vbPopupMenuLeftAlignElseExitSubEndIfEndSub瞽記事上LT(Hfx)文件編招格式幫助制切P1G除找Ctrl+CCtrl+PCtrUDCtrl+F2. 3設(shè)計(jì)中遇到

12、的問(wèn)題及解決方法2.31問(wèn)題（一）單擊字體按鈕時(shí)，顯示出錯(cuò)誤提示“沒(méi)有安裝字體，請(qǐng)從控制面板打開(kāi)字體文件夾以便安裝字體。（二）單擊保存和打開(kāi)按鈕時(shí)，無(wú)法實(shí)相關(guān)功能。（三）在編寫保存、打開(kāi)、打印、字體等能夠顯示通用對(duì)話框的程序時(shí)，運(yùn)行后在對(duì)話框中按取消按鈕時(shí)，出現(xiàn)錯(cuò)誤。2. 32解決方案（一）使用CommonDialog控件選擇字體之前必須設(shè)置Flags屬性。Flags=cdlCEFBbothorcdlCFEffects表示顯示屏幕字體和打印字體，并且出現(xiàn)刪除線、下劃線、顏色等元素。（二）保存和打開(kāi)中相關(guān)的對(duì)象名稱沒(méi)有正確輸入，將英語(yǔ)中的大寫字母寫成了小寫，導(dǎo)致錯(cuò)誤出現(xiàn)。（三）沒(méi)有編寫取消按鈕的

13、相關(guān)程序，在出現(xiàn)標(biāo)準(zhǔn)對(duì)話框的對(duì)象程序代碼中加入OnErrorGoToErrorError：語(yǔ)句，使得按取消按鈕后返回文檔編輯頁(yè)面。2.4軟件的使用方法記事本使用方法特別簡(jiǎn)單，打開(kāi)記事本后在編輯文檔處編輯相關(guān)的文檔，當(dāng)進(jìn)行文件的保存、打開(kāi)、新建、打印和退出時(shí)直接單擊文件下拉菜單單擊對(duì)應(yīng)的命令選項(xiàng)即可實(shí)現(xiàn)上述操作。當(dāng)進(jìn)行復(fù)制、粘貼，剪切和查找功能時(shí)鼠標(biāo)右擊或是選擇編輯下拉菜單中相關(guān)選項(xiàng)。設(shè)置字體是需要先選中字體，然后進(jìn)行相關(guān)操作。課程設(shè)計(jì)心的記事本程序的編寫，使我得到深刻的認(rèn)識(shí)和體會(huì)，同時(shí)也學(xué)到了許多相關(guān)的專業(yè)知識(shí)。使我感觸最深的當(dāng)屬查閱大量的關(guān)于vb課程中記事本設(shè)計(jì)的資料了，為了解決相關(guān)的問(wèn)題并

14、且是自己的設(shè)計(jì)更加完善，查閱這方面的資料是十分必要的，同時(shí)也是必不可少的。因此對(duì)于這方面的知識(shí)掌握更加牢固題解更加深刻。其次，通過(guò)此次課程設(shè)計(jì)，使我更加扎實(shí)地掌握了有關(guān)方面的知識(shí)，再設(shè)計(jì)過(guò)程中遇到了一些問(wèn)題，但經(jīng)過(guò)一次一次的思考，一遍一遍的檢查終于找除了原因所在，也曝露出了我在這方面知識(shí)的欠缺與不足。實(shí)踐出真知，通過(guò)親自動(dòng)手制作，是我們掌握知識(shí)不再是紙上談兵。同時(shí)也使我深深體會(huì)到在學(xué)習(xí)中一定要不懈努力，不能遇到問(wèn)題就退縮，只有這樣才能成功地做成想做的事，才能在今后的道路上披荊斬棘收獲成功和喜悅，才能得到社會(huì)和他人的認(rèn)可。同時(shí)我也認(rèn)識(shí)到做任何一件事情認(rèn)真仔細(xì)也是必不可少的。有時(shí)一個(gè)小小的錯(cuò)誤看起來(lái)是無(wú)可厚非的，但它可能會(huì)影響整個(gè)過(guò)程的發(fā)展，同時(shí)也會(huì)浪費(fèi)我們的精力與