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

1、河北金融學(xué)院vb課程設(shè)計(jì)說明書 1 選題的背景與意義1.1 記事本創(chuàng)建的背景通過一學(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控件，因此能夠打開和編輯任意大的文檔，運(yùn)用起來比windows自帶的記事本

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

3、n.height - 4000 me.width = screen.width - 5000 commondialog1.fontname = 宋體 程序運(yùn)行時(shí)字體是宋體end sub設(shè)置編輯框的大小和位置private sub form_resize() richtextbox1.top = 60 richtextbox1.left = 20 richtextbox1.height = me.height - 100 richtextbox1.width = me.width - 100end sub如左圖所示。commondialog控件的應(yīng)用使得它提供了如打開和保存文件，設(shè)置打印選項(xiàng)，選

4、擇顏色和字體等操作的一組標(biāo)準(zhǔn)對(duì)話框，使我們通過對(duì)話框填寫的方式來實(shí)現(xiàn)上述操作。richtext控件的使用是編輯和打開的文件大小不受限制。有利于文件的編輯。第二，程序設(shè)計(jì)過程中必須先在窗體中添加commondialog和richtext控件。 第三，程序的編寫過程中大部分對(duì)象的實(shí)現(xiàn)都是通過它們的單擊事件進(jìn)行的。如打開、保存、新建、復(fù)制、粘貼、字體顏色和大?。ㄈ缟蠄D打開和字體的通用對(duì)話框）打開文件private sub mnuopen_click() on error goto error commondialog1.filter = 文本文檔(*.txt)|*.txt|rtf文檔(*|.rtf)

5、*.rtf|所有文件(*.*)|*.* 設(shè)置過濾器屬性 commondialog1.filterindex = 1 commondialog1.showopen richtextbox1.text = 清空文本 filename = commondialog1.filename richtextbox1.loadfile filename loadfile將磁盤文件裝入空間之中 me.caption = 記事本error:end sub字體private sub mnufont_click() on error goto error commondialog1.flags = cdlcfbot

6、h or cdlcfeffects commondialog1.showfont richtextbox1.selfontname = commondialog1.fontname richtextbox1.selfontsize = commondialog1.fontsize richtextbox1.selbold = commondialog1.fontbold 粗體 richtextbox1.selitalic = commondialog1.fontitalic 斜體 richtextbox1.selunderline = commondialog1.fontunderline 下

7、劃線 richtextbox1.selstrikethru = commondialog1.fontstrikethru 刪除線error:end sub第四，在“新建”和“退出”事件中應(yīng)用了msgbox函數(shù)，當(dāng)用戶在退出或新建時(shí)忘記保存文時(shí)，彈出消息框詢問用戶是否保存文件，以防止文件的丟失。退出文件private sub mnuexit_click() if msgbox(你的文檔還沒有保存，是否對(duì)當(dāng)前問價(jià)進(jìn)行保存?, vbyesnocancel, 記事本) = vbyes then mnusave_click vbyesnocancel 顯示yes no 及cancel按鈕 elseif

8、msgbox(你還沒有保存文檔，是否對(duì)當(dāng)前操作文檔進(jìn)行保存?, vbyesnocancel, 記事本) = vbno then endelse end ifend sub第五，在“查找”實(shí)踐中應(yīng)用了輸入語(yǔ)句中的iputbox函數(shù)，用于用戶在查找過程中輸入所需要查找的字符串。 查找private sub mnufind_click() sfind = inputbox(請(qǐng)輸入要查找的字,詞:, 查找內(nèi)容, sfind) richtextbox1.find sfindend sub第六，在文件保存中使用了selectcase語(yǔ)句，在打印中使用了for循環(huán)語(yǔ)句，同時(shí)在新建和退出事件中調(diào)用了保存的代碼

9、。保存文件private sub mnusave_click() cancelerror = true on error goto error commondialog1.filter = 文本文檔(*.txt)|*.txt|rtf文檔(*|.rtf)*.rtf|所有文件(*.*)|*.* 設(shè)置過濾器屬性 commondialog1.filterindex = 1 commondialog1.showsave filetype = commondialog1.filetitle fitype = lcase(right(filetype, 3) filename = commondialog1

10、.filename select case fitype case txt richtextbox1.savefile filename, rtftext case rtf richtextbox1.savefile filename, rtfrtf case *.* richtextbox1.savefile filename end select me.caption = 記事本: & filenameerror:end subprivate sub mnuprint_click()on error goto errorcommondialog1.showprinterfor i = 1

11、to commondialog1.copies printer.print richtextbox1.textnext ierror:end sub最后，應(yīng)用了鼠標(biāo)事件，是用戶在單擊鼠標(biāo)右鍵時(shí)，彈出編輯菜單。鼠標(biāo)右擊事件private sub richtextbox1_mousedown(button as integer, shift as integer, x as single, y as single) if button = vbrightbutton then popupmenu mnuedit, vbpopupmenuleftalign else exit sub end ife

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

13、成了小寫，導(dǎo)致錯(cuò)誤出現(xiàn)。（三）沒有編寫取消按鈕的相關(guān)程序，在出現(xiàn)標(biāo)準(zhǔn)對(duì)話框的對(duì)象程序代碼中加入on error goto errorerror：語(yǔ)句，使得按取消按鈕后返回文檔編輯頁(yè)面。2.4 軟件的使用方法 記事本使用方法特別簡(jiǎn)單，打開記事本后在編輯文檔處編輯相關(guān)的文檔，當(dāng)進(jìn)行文件的保存、打開、新建、打印和退出時(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)屬查閱大

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