1、河北金融學院vb課程設計說明書 1 選題的背景與意義1.1 記事本創(chuàng)建的背景通過一學期的vb課程學習，理解并掌握了許多相關知識，知道了面向對象程序設計的基本概念和可視化程序設計的基本方法。為了更好地掌握與運用vb中最常用的有關窗體和各種控件的運用、菜單、工具欄、對話框、狀態(tài)欄、的設計以及文件操作等技術，因此在在學完該課程之后，設計了一個能夠編輯編輯文本文檔、richtext文檔，其文字處理能力類似于word的簡易記事本。1.2 記事本創(chuàng)建的意義該記事本具有操作簡單，易懂靈活，一目了然的特點，同時由于運用了richtext控件，因此能夠打開和編輯任意大的文檔，運用起來比windows自帶的記事本

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

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

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

5、*.rtf|所有文件(*.*)|*.* 設置過濾器屬性 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第四，在“新建”和“退出”事件中應用了msgbox函數(shù)，當用戶在退出或新建時忘記保存文時，彈出消息框詢問用戶是否保存文件，以防止文件的丟失。退出文件private sub mnuexit_click() if msgbox(你的文檔還沒有保存，是否對當前問價進行保存?, vbyesnocancel, 記事本) = vbyes then mnusave_click vbyesnocancel 顯示yes no 及cancel按鈕 elseif

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

9、。保存文件private sub mnusave_click() cancelerror = true on error goto error commondialog1.filter = 文本文檔(*.txt)|*.txt|rtf文檔(*|.rtf)*.rtf|所有文件(*.*)|*.* 設置過濾器屬性 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最后，應用了鼠標事件，是用戶在單擊鼠標右鍵時，彈出編輯菜單。鼠標右擊事件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 設計中遇到的問題及解決方法 2.31 問題 （一）單擊字體按鈕時，顯示出錯誤提示“沒有安裝字體，請從控制面板打開字體文件夾以便安裝字體。 （二）單擊保存和打開按鈕時，無法實相關功能。 （三）在編寫保存、打開、打印、字體等能夠顯示通用對話框的程序時，運行后在對話框中按取消按鈕時，出現(xiàn)錯誤。2.32 解決方案 （一）使用commondialog控件選擇字體之前必須設置flags屬性。flags=cdlcefbboth or cdlcfeffects 表示顯示屏幕字體和打印字體，并且出現(xiàn)刪除線、下劃線、顏色等元素。（二）保存和打開中相關的對象名稱沒有正確輸入，將英語中的大寫字母寫

13、成了小寫，導致錯誤出現(xiàn)。（三）沒有編寫取消按鈕的相關程序，在出現(xiàn)標準對話框的對象程序代碼中加入on error goto errorerror：語句，使得按取消按鈕后返回文檔編輯頁面。2.4 軟件的使用方法 記事本使用方法特別簡單，打開記事本后在編輯文檔處編輯相關的文檔，當進行文件的保存、打開、新建、打印和退出時直接單擊文件下拉菜單單擊對應的命令選項即可實現(xiàn)上述操作。當進行復制、粘貼，剪切和查找功能時鼠標右擊或是選擇編輯下拉菜單中相關選項。設置字體是需要先選中字體，然后進行相關操作。課程設計心的記事本程序的編寫，使我得到深刻的認識和體會，同時也學到了許多相關的專業(yè)知識。使我感觸最深的當屬查閱大

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