VB程序設(shè)計(jì)報(bào)告

1、廣 西 大 學(xué)課程程序設(shè)計(jì)說(shuō)明書(shū)課題名稱簡(jiǎn)易記事本的模仿設(shè)計(jì)學(xué)院電氣工程學(xué)院專業(yè)自動(dòng)化班級(jí)093 班姓名謝金富（ 0902100513 ）指導(dǎo)教師: 陳蘇2011 年12 月22 日簡(jiǎn)易記事本的模仿設(shè)計(jì)richtextbox 控件是用于輸入和編輯文本的控件，但它比常規(guī)的textbox 控件具有更高級(jí)的格式特性。richtextbox 控件提供了一些屬性，通過(guò)這些屬性，可對(duì)該控件中任何部分的文本使用不同的格式。用這些屬性，可以將文本變?yōu)榇煮w或斜體、改變文本的顏色、創(chuàng)建上標(biāo)或下標(biāo)、 調(diào)整段落的左右縮進(jìn)值、使用懸掛式縮進(jìn)以及動(dòng)態(tài)地向該控件中充填嵌入位圖( bmp) 、圖標(biāo) ( ：lc ico)、mi

2、crosoft excel的電子表格和microsoft word文檔等對(duì)象。richtextbox 控件對(duì)于內(nèi)容的處理提供了多種手段。打開(kāi)時(shí)，可以用rtf 格式或 ascii 文本格式打開(kāi)或保存文件；可以使用該控件的方法(loadfile和 savefile)，直接讀寫(xiě)文件； 也可以用該控件的屬性，比如 selrtf和textrtf，結(jié)合文件輸入、 輸出語(yǔ)句讀寫(xiě)文件，將rtf文件的內(nèi)容裝入richtextbox 控件。編輯時(shí)，可將其它文件( 比如從“資源管理器”中) 的內(nèi)容直接拖人該控件；或者將其它應(yīng)用程序( 比如 microsoft word)中使用文件的突出顯示部分直接拖人該控件；還可以

3、通過(guò)設(shè)置filename屬性，將 rtf或 txt 文件的內(nèi)容裝入該控件。打印時(shí)， 可用 selprint方法打印 richtextbox 控件中的全部或部分文本。將richtextbox 控件綁定到 data控件，可以處理 microsoft access 數(shù)據(jù)庫(kù)的 memo 字段或者其它大型數(shù)據(jù)庫(kù)中的文字段 ( 例如 sybase數(shù)據(jù)庫(kù)、 microsoft sql server數(shù)據(jù)庫(kù)中的 text 數(shù)據(jù)類型 )。richtextbox 件的主要用途是其一作為“無(wú)底”的文本框，可用于編寫(xiě)閱讀較大的文本文件的應(yīng)用程序；其二在應(yīng)用程序中實(shí)現(xiàn)功能完備的文本編輯器。一、預(yù)定功能新建：新建立一個(gè)記事

4、本文檔。保存：重命名一個(gè)名字，保存文檔。打開(kāi)：將打開(kāi)一個(gè)已經(jīng)存儲(chǔ)在計(jì)算機(jī)中的文件（*.txt 或*.rtf 文件）。退出：指退出這個(gè)記事本程序。編輯：能對(duì)文本進(jìn)行復(fù)制、剪切、粘貼，也可以改變文本字體、顏色、大小。查找：類似word 文檔的查找功能，通過(guò)輸入關(guān)鍵字，詞進(jìn)行查找。二、設(shè)計(jì)界面記事本界面有以下幾部分組成：標(biāo)題欄：自定義圖標(biāo)和記事本標(biāo)題。菜單欄：包括文件、編輯、搜索和幫助主題。三、主要功能說(shuō)明主要功能：（1）文本打開(kāi)、新建、保存等基本操作：（2）文本編輯功能：（3）文本查找功能：（4）記事本幫助主題：功能說(shuō)明：（1）基本操作：能夠打開(kāi)計(jì)算機(jī)中存儲(chǔ)的*.txt 或*.rtf 文件，進(jìn)行讀

5、寫(xiě)操作，記事本擁有一個(gè)很好的優(yōu)點(diǎn)：就是打開(kāi)速度快，文件小。通過(guò)記事本可以很方便地打開(kāi)比較小文本文檔。（2）編輯操作：對(duì)文本匡中的文檔內(nèi)容進(jìn)行編輯。通過(guò)對(duì)文本進(jìn)行復(fù)制、剪切、粘貼，方便了用戶的操作。使得記事本能夠像word 一樣，不僅可以查看文本，還能對(duì)其進(jìn)行修改。（3）搜索操作：如果一篇文章太長(zhǎng)，使用搜索功能可以馬上找到要尋找的內(nèi)容，通過(guò)輸入關(guān)鍵字進(jìn)行查找。如果要查找多個(gè)相同文本內(nèi)容，可以通過(guò)“查找下一個(gè)”來(lái)逐一查找。（4）使用說(shuō)明： 一個(gè)簡(jiǎn)單的記事本使用指南?！瓣P(guān)于” 的內(nèi)容一般都是作者的版權(quán)說(shuō)明以及程序版本。四、 運(yùn)行效果新建：通過(guò)文件-新建，來(lái)打開(kāi)一個(gè)新文檔，新建后的文檔是以“未命名”為

6、標(biāo)題的打開(kāi)操作：文件- 打開(kāi)，選擇要打開(kāi)的文檔“新建文檔.txt”保存操作：文件- 保存；另存為xie,txt 保存在 f 盤(pán)。2編輯操作：復(fù)制：打開(kāi)123.txt，選中第一句，復(fù)制到第二句中間剪切和粘貼：把復(fù)制的內(nèi)容剪切掉，粘貼在最后一句后面。3查找操作查找：搜索 -查找，通過(guò)查找“二極管”兩個(gè)字為例程序不足之處：當(dāng)點(diǎn)擊右上角關(guān)閉按鈕時(shí)，不能彈出保存對(duì)話框給讀者進(jìn)行操作，容易丟失數(shù)據(jù)，其次是沒(méi)有對(duì)字體進(jìn)行設(shè)計(jì)，再者，沒(méi)有如同word 文檔一樣有快捷鍵設(shè)置，程序的運(yùn)行界面也沒(méi)有很好的進(jìn)行設(shè)置，這些都是需要改進(jìn)的地方。五、程序設(shè)計(jì)過(guò)程第一步：界面設(shè)計(jì)新建一個(gè)標(biāo)準(zhǔn)exe 工程，將其caption

7、屬性改為 “ 記事本 ” ，點(diǎn)擊 icon 屬性給它找個(gè)合適的 icon 圖標(biāo)。單擊菜單“ 工程 ” -“ 部件 ” ，在彈出的 “ 部件 ” 對(duì)話框里找到microsoft richtext box 6.0 和公共對(duì)話框microsoft common dialog 6.0并選中它們，單擊“ 確定 ” 按鈕。這時(shí)左邊的工具欄上出現(xiàn)了剛才新添的兩個(gè)控件。在窗體上繪制richtext box 和 commn dialog ，其中 richtext box 的大小和位置可不用理睬，可以在代碼中處理它，要把它的scrollbar 屬性設(shè)為 2-rtfvertical ，這樣在打開(kāi)和編輯文件時(shí)垂直滾動(dòng)

8、條才可用。第二步：編輯菜單。調(diào)出菜單編輯器，做如下幾個(gè)菜單：一. 文件菜單：文件（第一層）mnufile 新建（第二層）mnunew ctrl+n 打開(kāi)（第二層）mnuopen ctrl+o 保存（第二層）mnusave ctrl+s 退出（第二層）mnuexit f5 二. 編輯菜單：編輯（第一層）mnuedit 復(fù)制（第二層）mnucopy ctrl+c 剪切（第二層）mnucut ctrl+t 粘貼（第二層）mnupaste ctrl+v 刪除（第二層）delete del 全選（第二層）mnuselecall ctrl+a 三.搜索菜單：搜索（第一層）mnusearch 查找（第二層）

9、mnufind ctrl+f 查找下一個(gè)（第二層）mnufindon f3 四.幫助菜單：幫助（第一層）mnuhelp 使用說(shuō)明（第二層）mnuusage 關(guān)于（第二層）mnuabout 六、心得體會(huì)通過(guò)編這個(gè)簡(jiǎn)易記事本， 我覺(jué)得編程不是一項(xiàng)輕松的活， 尤其是一個(gè)人開(kāi)發(fā)制作軟件時(shí)， 那工作量就多了。 沒(méi)有一定的坐功、 細(xì)心程度及耐性那是絕對(duì)做不到的。有時(shí)，把程序做完了需要調(diào)試運(yùn)行，但是就是不能達(dá)到自已設(shè)計(jì)的效果和目的，也許就是因?yàn)橐粋€(gè)符號(hào)或一個(gè)字母，就得花上個(gè)幾個(gè)小時(shí)，半天，甚至更長(zhǎng)。越是這樣越不能灰心，應(yīng)該放松心態(tài)，一點(diǎn)一滴的去查。只要有一顆永不退縮的心，我們就一定能找到問(wèn)題所在，最后一定能

10、露出開(kāi)心的笑容，也一定能找到成功者的感覺(jué)。所以編程能很好的鍛煉人的意志。同時(shí)，我覺(jué)得良好的編程習(xí)慣是必不可少的。在很多人的編程語(yǔ)言中， 用 “+”來(lái)連接字符串， 這樣容易導(dǎo)致歧義。 良好的習(xí)慣是用 “&”來(lái)連接字符串。 此外，變量命名應(yīng)大小寫(xiě) ,語(yǔ)句錯(cuò)落有秩。還有，盡量使用debug.print 進(jìn)行調(diào)試，在很多人的調(diào)試中 ,習(xí)慣用 msgbox 來(lái)跟蹤變量值。其實(shí)用debug.print 不僅可以達(dá)到同樣的功效 ,而且在程序最后編譯過(guò)程中,會(huì)被忽略 .而 msgbox 必須手動(dòng)注釋或刪除。附錄：程序代碼dim sfind as string dim filetype, fitype

11、as string private sub delete_click() richtextbox1.seltext = end sub private sub form_load() me.height = 6000 me.width = 9000 end sub private sub form_resize() on error resume next richtextbox1.top = 20 richtextbox1.left = 20 richtextbox1.height = scaleheight - 40 richtextbox1.width = scalewidth - 40

12、 end sub private sub mnunew_click() dim i as integer i = msgbox( 是否保存 , 4, 警告 ) if i 7 then commondialog1.filter = 文本文檔 (*.txt)|*.txt|rtf文檔 (*.rtf)|*.rtf| 所有文件 (*.*)|*.* commondialog1.showsave filetype = commondialog1.filetitle fitype = lcase(right(filetype, 3) filename = commondialog1.filename else

13、 richtextbox1.text = filename = 未命名 me.caption = filename end if end sub private sub mnuopen_click() commondialog1.filter = 文本文檔 (*.txt)|*.txt|rtf文檔 (*.rtf)|*.rtf| 所有文件 (*.*)|*.* commondialog1.showopen richtextbox1.text = filename = commondialog1.filename richtextbox1.loadfile filename me.caption =

14、私人記事本： & filename end sub private sub mnusave_click() commondialog1.filter = 文本文檔 (*.txt)|*.txt|rtf文檔 (*.rtf)|*.rtf| 所有文件 (*.*)|*.* commondialog1.showsave filetype = commondialog1.filetitle fitype = lcase(right(filetype, 3) filename = commondialog1.filename select case fitype case txt richtextbo

15、x1.savefile filename, rtftext case rtf richtextbox1.savefile filename, rtfrtf case *.* richtextbox1.savefile filename end select me.caption = 私人記事本： & filename end sub private sub mnuexit_click() dim i as integer i = msgbox( 是否保存 , 4, 警告 ) if i 7 then commondialog1.filter = 文本文檔 (*.txt)|*.txt|rt

16、f文檔 (*.rtf)|*.rtf| 所有文件 (*.*)|*.* commondialog1.showsave filetype = commondialog1.filetitle fitype = lcase(right(filetype, 3) filename = commondialog1.filename select case fitype case txt richtextbox1.savefile filename, rtftext case rtf richtextbox1.savefile filename, rtfrtf case *.* richtextbox1.sa

17、vefile filename end select else end end if end sub private sub mnucopy_click() clipboard.clear clipboard.settext richtextbox1.seltext end sub private sub mnucut_click() clipboard.clear clipboard.settext richtextbox1.seltext richtextbox1.seltext = end sub private sub mnuselectall_click() richtextbox1

18、.selstart = 0 richtextbox1.sellength = len(richtextbox1.text) end sub private sub mnupaste_click() richtextbox1.seltext = clipboard.gettext end sub private sub mnufind_click() sfind = inputbox( 請(qǐng)輸入要查找的字、詞：, 查找內(nèi)容 , sfind) richtextbox1.find sfind end sub private sub mnufindon_click() richtextbox1.sels

19、tart = richtextbox1.selstart + richtextbox1.sellength + 1 richtextbox1.find sfind, , len(richtextbox1) end sub private sub mnuabout_click() msgbox 私人記事本. 版權(quán)所有 .翻版必究 , vbokonly, 關(guān)于 end sub private sub ole1_updated(code as integer) end sub private sub mnuusage_click() on error goto handler richtextbox

20、1.loadfile readme.txt, rtftext 注釋：請(qǐng)寫(xiě)好 readme.txt 文件并存入程序所在文件夾中me.caption = 私人記事本： & 使用說(shuō)明 exit sub handler: msgbox 使用說(shuō)明文檔可能已經(jīng)被移除，請(qǐng)與作者聯(lián)系。, vbokonly, 錯(cuò)誤信息 end sub private sub richtextbox1_mousedown(button as integer, shift as integer, x as single, y as single) if button = 2 then popupmenu mnuedit, vbpopupmenuleftalign else exit sub end if end sub private sub richtextbox1_keyup(keycode as integer, shift as integer) i