簡(jiǎn)單的VB程序設(shè)計(jì)

1、第二章 簡(jiǎn)單的vb程序設(shè)計(jì)2.1 面向?qū)ο笾械母拍钜?、?duì)象和類在面向?qū)ο蟮某绦蛟O(shè)計(jì)思想中，自然界中所有事物（包括計(jì)算機(jī)中的事物）都可以被看作一個(gè)個(gè)的對(duì)象（object）。這些對(duì)象可能屬于同一個(gè)類（class），也可能屬于不同的類。類：類：是同一事物的統(tǒng)稱。對(duì)象對(duì)象：是類的實(shí)例化。如：下圖有三個(gè)類：人、紙片、桌子有9個(gè)對(duì)象：windows中的對(duì)象中的對(duì)象當(dāng)今的應(yīng)用程序都是基于windows的。即其界面都應(yīng)當(dāng)和windows具有一致性。而windows界面中的幾乎所有元素都可以看成對(duì)象。二、對(duì)象的建立和編輯有以下幾個(gè)操作：建立、選定、刪除、命名我們以建立如下窗口為例來(lái)介紹類型名類型名前綴對(duì)象名舉例

2、checkbox復(fù)選框復(fù)選框chkchkreadonlycombobox組合框組合框cbocbohobbycommandbutton命令按鈕命令按鈕cmdcmdexitcommondialog公共對(duì)話框公共對(duì)話框dlgdlgfileopencontrol控件控件ctrctrcurrentdagta數(shù)據(jù)數(shù)據(jù)datdatbookdirlistbox目錄列表框目錄列表框dirdirsourcedrvlistbox驅(qū)動(dòng)器列表框驅(qū)動(dòng)器列表框drvdrvtargetfilelistbox文件列表框文件列表框filfilsourceform窗體窗體frmfrmpasswordframe框架框架frafral

3、anguagehscrollbar水平滾動(dòng)條水平滾動(dòng)條hsbhsbvolumeimage圖象圖象imgimgiconlabel標(biāo)簽標(biāo)簽lbllblhelpmessageline直線直線linlinverticallistbox列表框列表框lstlstpolicycodesmenu菜單菜單mnumnufileopenoptionbutton單選框單選框(選項(xiàng)鈕選項(xiàng)鈕)optoptmalepicturebox圖片框圖片框picpicphotoshape形狀形狀shpshpcircletextbox文本框文本框txttxtnametimer定時(shí)器定時(shí)器tmrtmralarmvscrollbar垂直滾

4、動(dòng)條垂直滾動(dòng)條vsbvsbage三、對(duì)象的屬性、事件和方法-對(duì)象的三要素1、屬性：用來(lái)描述和反映對(duì)象特征的多個(gè)參數(shù)，而各個(gè)參數(shù)值就是該對(duì)象的屬性值。如：命令按鈕的屬性可以有：name、caption、color、font 等設(shè)置對(duì)象屬性的方法：（1）在設(shè)計(jì)界面階段利用屬性窗口直接設(shè)置；（2）在程序代碼中利用賦值實(shí)現(xiàn)。 格式為：對(duì)象.屬性=屬性值 如：command1.caption=“確定” label1.fontname=“黑體” label1.fontsize=24對(duì)象的通用屬性對(duì)象的通用屬性對(duì)象的位置和尺寸屬性（見(jiàn)對(duì)象的位置和尺寸屬性（見(jiàn)p23圖圖1.2.8）（1）left：控件相對(duì)于容

5、器的x坐標(biāo)；（2）top：控件相對(duì)于容器的y坐標(biāo)；（3）width：控件的寬度；（4）height：控件的高度。注意：能包含其它控件的控件稱為容器（控件）。對(duì)象的顏色和字體屬性對(duì)象的顏色和字體屬性（1）backcolor：設(shè)置控件的背景顏色；（2）forecolor：設(shè)置控件里顯示圖片和文本的前景顏色；（3） font：設(shè)置控件的文字字體名稱屬性name該屬性是所有對(duì)象都具有的屬性，是唯一的，在創(chuàng)建時(shí)，系統(tǒng)會(huì)給一個(gè)默認(rèn)的名稱，可根據(jù)需要進(jìn)行修改。注意：在程序代碼中可以通過(guò)以下方法來(lái)設(shè)置顏色使用rgb函數(shù)： 如：form1.backcolor=rgb(255,0,0)此處，rgb函數(shù)的三個(gè)參數(shù)分

6、別對(duì)應(yīng)紅、綠、藍(lán)三種顏色，取值在0-255之間，0為亮度最低，255為亮度最高。使用vb內(nèi)部提供的顏色常量 vb內(nèi)部可以直接使用的顏色常量有8種：vbblack、vbred、vbgreen、vbyellow、vbblue、vbmagenta(紫紅色)、vbcyan(青色)、vbwhite如：form1.backcolor=vbmagenta另外：font有以下系列屬性fontname：字體類型。如：黑體、宋體、楷體等f(wàn)ontsize：字體大?。ò酰?。如：8、12、16等還有：fontbold(粗體)、fontitalic(斜體)、fontstrikethru(刪除線)、fontunderlin

7、e(下劃線)，這些屬性值為邏輯型。對(duì)象的默認(rèn)屬性對(duì)象的默認(rèn)屬性 是指在運(yùn)行時(shí)可以直接用某個(gè)對(duì)象的對(duì)象名來(lái)改變對(duì)象某個(gè)屬性值。一般情況下：（1）caption：form、frame、label、commandbutton等控件使用。（2）text：text、listbox、combobox等控件使用（3）value：checkbox、optionbutton、hscrellbar、vscrollbar等控件使用。這樣，text1.text=“計(jì)算機(jī)” 等價(jià)與 text1=“計(jì)算機(jī)”控件的可見(jiàn)和可用控件的可見(jiàn)和可用（1）enabled：設(shè)置一個(gè)控件是否可以使用。默認(rèn)值為true。（2）visibl

8、e：設(shè)置一個(gè)控件是否可以看見(jiàn)。默認(rèn)值為true。2、事件、事件過(guò)程和事件驅(qū)動(dòng)（1）事件 對(duì)于對(duì)象而言，事件就是發(fā)生在該對(duì)象上的事情（或消息）。在vb中，系統(tǒng)為每種對(duì)象預(yù)先定義好了一系列事件。以下是一些通用事件：click事件：當(dāng)一個(gè)控件上按下并放開(kāi)鼠標(biāo)時(shí)發(fā)生的事件。dblclick：當(dāng)鼠標(biāo)被迅速按下并放開(kāi)兩次時(shí)發(fā)生的事件。keypress事件：按下一個(gè)對(duì)應(yīng)某ascii字符的鍵時(shí)觸發(fā)該事件。keydown事件：按下鍵盤(pán)的任意鍵觸發(fā)該事件。keyup事件：放開(kāi)鍵盤(pán)的任意鍵觸發(fā)該事件。mousemove事件：移動(dòng)鼠標(biāo)指針時(shí)觸發(fā)該事件。mousedown事件：按下鼠標(biāo)的任意鍵觸發(fā)該事件。mouseup

9、事件：放開(kāi)鼠標(biāo)的任意鍵觸發(fā)該事件。gotfocus事件：當(dāng)對(duì)象獲得焦點(diǎn)（光標(biāo)處于此對(duì)象上或該對(duì)象為當(dāng)前活動(dòng)狀態(tài)）時(shí)觸發(fā)該事件。lostfocus事件：當(dāng)對(duì)象失去焦點(diǎn)時(shí)觸發(fā)該事件。change事件：當(dāng)一個(gè)控件的內(nèi)容發(fā)生改變時(shí)觸發(fā)該事件。（2）事件過(guò)程 當(dāng)在對(duì)象上發(fā)生事件后，應(yīng)用程序就要處理這個(gè)事件，而處理的步驟就是事件過(guò)程。它是針對(duì)某一個(gè)對(duì)象的過(guò)程，并與該對(duì)象的一個(gè)事件相聯(lián)系。vb應(yīng)用程序設(shè)計(jì)的主要工作就是為對(duì)象編寫(xiě)事件過(guò)程中的程序代碼。事件過(guò)程的形式如下：private sub 對(duì)象名_事件（參數(shù)列表） .事件過(guò)程代碼end sub說(shuō)明：這是vb中所有對(duì)象事件過(guò)程的語(yǔ)法結(jié)構(gòu)。編程者只需把該對(duì)象

10、的事件代碼填寫(xiě)在事件過(guò)程代碼區(qū)即可。其它的由系統(tǒng)自己給出。如：?jiǎn)螕鬰ommand1命令按鈕，使命令按鈕的字體大小改變?yōu)?0磅，則對(duì)應(yīng)的事件過(guò)程如下：private sub command1_click( ) command1.fontsize=20end sub注意注意：當(dāng)用戶對(duì)一個(gè)對(duì)象發(fā)出一個(gè)動(dòng)作時(shí)可能同時(shí)在該對(duì)象上發(fā)生多個(gè)事件。例如，單擊鼠標(biāo)，同時(shí)發(fā)生了click、mousedown和mouseup事件。但我們寫(xiě)程序時(shí)，并不要求對(duì)這些事件都進(jìn)行編寫(xiě)代碼，而只對(duì)感興趣的事件過(guò)程編碼。沒(méi)有編碼的是為空事件，系統(tǒng)也不會(huì)處理這些事件過(guò)程（3）事件驅(qū)動(dòng) 在傳統(tǒng)的面向過(guò)程的應(yīng)用程序中，應(yīng)用程序自身控制

11、了執(zhí)行哪一部分代碼和按何種順序執(zhí)行代碼，即代碼的執(zhí)行是從第一行開(kāi)始，隨著程序流執(zhí)行代碼的不同部分。程序執(zhí)行的先后次序有設(shè)計(jì)人員編寫(xiě)的代碼決定，用戶無(wú)法改變程序的執(zhí)行流程。 但在vb中，程序的執(zhí)行發(fā)生了根本的變化。程序執(zhí)行后系統(tǒng)等待某個(gè)事件的發(fā)生，事件發(fā)生后，系統(tǒng)再去執(zhí)行處理該事件的事件過(guò)程，待該事件過(guò)程執(zhí)行完后，系統(tǒng)又處于等待事件發(fā)生的狀態(tài)，這就是事件驅(qū)動(dòng)事件驅(qū)動(dòng)。而面向?qū)ο蟮某绦蛟O(shè)計(jì)方法也就事件驅(qū)動(dòng)程序設(shè)計(jì)方法事件驅(qū)動(dòng)程序設(shè)計(jì)方法。vb程序的執(zhí)行步驟如下：?jiǎn)?dòng)應(yīng)用程序，裝載和顯示窗體；窗體（或窗體上的控件）等待事件的發(fā)生；事件發(fā)生時(shí)，執(zhí)行對(duì)應(yīng)的事件過(guò)程；重復(fù)執(zhí)行步驟2、3。如此周而復(fù)始地執(zhí)行

12、，直到遇到end結(jié)束語(yǔ)句結(jié)束程序的運(yùn)行或單擊“結(jié)束”按鈕強(qiáng)行停止程序的執(zhí)行。3、方法 vb中為程序設(shè)計(jì)人員提供了一種特殊的過(guò)程和函數(shù)（此處稱為方法）。這些方法已經(jīng)寫(xiě)好并封裝起來(lái)，作為方法供用戶直接調(diào)用。調(diào)用格式為： 對(duì)象.方法名 參數(shù)名表若省略其中的對(duì)象，則表示為當(dāng)前對(duì)象，一般指窗體。如：form1.print”歡迎您使用vb6.0”通用方法通用方法move方法：移動(dòng)控件或改變控件的大小 如：form1.move 0,0,600,300 注：move后面的四個(gè)參數(shù)分別是對(duì)象的四個(gè)屬性left、top、width和heightsetfocus方法：使控件獲取焦點(diǎn)。如：form1.text1.se

13、tfocus2.2建立簡(jiǎn)單的應(yīng)用程序建立簡(jiǎn)單的應(yīng)用程序建立一個(gè)應(yīng)用程序的步驟為：新建一個(gè)工程在該工程中添加窗體，設(shè)計(jì)界面編寫(xiě)事件代碼運(yùn)行程序，反復(fù)進(jìn)行測(cè)試，使之達(dá)到預(yù)期效果編譯程序，產(chǎn)生exe執(zhí)行文件制作安裝包例：設(shè)計(jì)一個(gè)程序，窗口中顯示歡迎詞并提供一個(gè)進(jìn)入按鈕和退出按鈕，如果選退出則關(guān)閉程序，如果選進(jìn)入則打開(kāi)另外一個(gè)窗口，此窗口中有四個(gè)圖標(biāo)。（結(jié)果見(jiàn)下頁(yè)）注意：此題有一個(gè)如何設(shè)置多窗體的問(wèn)題2.3 窗體和基本控件一、窗體1、主要屬性1）、caption：標(biāo)題。決定窗體標(biāo)題欄顯示的內(nèi)容2）、borderstyle：邊框樣式。決定窗體的外觀特征。共6種。含義見(jiàn)p283）、controlbox、m

14、axbutton和minbutton：控制菜單框、最大化按鈕和最小化按鈕。其值為布爾型注意：當(dāng)controlbox為false時(shí)， maxbutton和minbutton自動(dòng)設(shè)置為false4）、moveeable：可否移動(dòng)。缺省為true5）、picture：背景圖片?？稍趯傩源翱谥兄苯釉O(shè)置，也可在程序代碼中設(shè)置。如：form1.picture=loadpicture(“c:windowswebwallpaperwind.jpg”)6）、windowsstate：初始大小。指定窗口運(yùn)行時(shí)的可視狀態(tài)。共3種狀態(tài)。見(jiàn)p287）、scaleheight、scalewidth：窗體內(nèi)部尺寸（除去標(biāo)題

15、欄、菜單欄、工具欄）。其值分別表示當(dāng)前窗體的高度和寬度。2、主要事件 窗體從開(kāi)始顯示到最后關(guān)閉可以稱為一個(gè)生命周期，而在這一個(gè)周期的每一個(gè)階段都會(huì)有一個(gè)特征事件來(lái)反映窗體當(dāng)前的狀態(tài)?？聪聢D。 創(chuàng)建 發(fā)生initialize事件加載 發(fā)生load事件獲得焦點(diǎn)發(fā)生activate和gotfocus事件失去焦點(diǎn)發(fā)生deactivate和lostfocus事件卸載發(fā)生queryunload、unload和terminate事件 可見(jiàn)1）initialize事件 它是一個(gè)窗體創(chuàng)建時(shí)最先執(zhí)行的事件，此時(shí)窗體對(duì)象仍然處在外存中，執(zhí)行的只是窗體的代碼部分，如：設(shè)置全局變量等初始化工作。2）load事件 此事件

16、使窗體及所有控件都進(jìn)入內(nèi)存，但界面仍未顯示。此階段也可放置一些初始化代碼。如果在程序中要加載窗體，可使用load語(yǔ)句。格式為：load 窗體名3）activate和deactivate事件 當(dāng)窗體執(zhí)行一個(gè)activate事件后，窗體被激活，窗體被顯示，同時(shí)窗體自動(dòng)發(fā)生gotfocus事件，反之，當(dāng)窗體發(fā)生lostfucus事件時(shí)，同時(shí)也就自動(dòng)發(fā)生deactivate事件，此時(shí)，另外一個(gè)窗體被激活。注意注意：activate事件常和setfocus方法聯(lián)用。如： private sub form_activate( ) form1.text1.setcocus end sub此事件代碼的含義是：

17、當(dāng)窗體被激活時(shí)使焦點(diǎn)處在文本框text1上。4）unload事件此事件和load事件相反，它使窗體從內(nèi)存中卸載（刪除）。若在程序中刪除窗體，可使用語(yǔ)句：unload 窗體名窗體名。unload的一種常見(jiàn)的用法是：unload me此處me代表當(dāng)前正在運(yùn)行的窗體。也可以這樣用： me.caption=“歡迎使用vb”3、主要方法1）print 方法：在對(duì)象上輸出信息格式：對(duì)象. print表達(dá)式列表此處：對(duì)象對(duì)象可為窗體（form）、圖形框（picturebox）或打印機(jī) （printer）。缺省時(shí)為窗體。 表達(dá)式列表表達(dá)式列表可為一個(gè)數(shù)值表達(dá)式或一字符串 例例：設(shè)計(jì)一窗體，在窗體激活時(shí)，在窗體

18、的標(biāo)題欄及窗體上顯示“裝入窗體”，并設(shè)置一幅圖片為窗體背景。當(dāng)單擊窗體時(shí)，在標(biāo)題欄上顯示“鼠標(biāo)單擊”，在窗體上顯示“歡迎使用vb”。當(dāng)雙擊窗體時(shí)，在標(biāo)題欄上顯示“鼠標(biāo)雙擊”，去初窗體的背景，并顯示“結(jié)束使用vb”。程序代碼如下： private sub form_activate()me.caption = 裝入窗體me.picture = loadpicture(c:windowsclouds.bmp)me.fontsize = 48me.fontname = 黑體me.print 裝入窗體end subprivate sub form_click()caption = 鼠標(biāo)單擊clspri

19、nt 歡迎使用vbend subprivate sub form_dblclick()caption = 鼠標(biāo)雙擊picture = loadpicture()print 結(jié)束使用vbend sub2）cls方法：清除運(yùn)行時(shí)在窗體或圖形框中顯示的文本或圖形。格式：對(duì)象. cls其中：“對(duì)象”為窗體或圖形框。缺省時(shí)為窗體如：picture1.cls cls3）move方法：用于移動(dòng)窗體或控件，并可改變其大小格式：對(duì)象. move 左邊距離，上邊距離，寬度，高度其中：“對(duì)象”可以是除時(shí)鐘菜單外的所有控件。缺省時(shí)為窗體。例例：程序在運(yùn)行時(shí)在圖像框裝入一圖象，單擊圖像框使圖像框移動(dòng)到窗體中心。程序代碼

20、為：private sub form_load()image1.top = 0image1.left = 0image1.picture = loadpicture(c:windowsred blocks.bmp)end subprivate sub image1_click()image1.move (form1.scalewidth - image1.width) / 2, (form1.scaleheight - image1.height) / 2，120，600end sub注意：長(zhǎng)度單位為twip。1twip=1/567(cm)4）show方法該方法用來(lái)顯示一個(gè)窗體，它兼有加載(l

21、oad)和顯示(activate)窗體兩種功能。即在執(zhí)行show時(shí)，如果窗體不在內(nèi)存中，則自動(dòng)裝入，然后顯示出來(lái)。格式：窗體名.show省略窗體名為當(dāng)前窗體。如：form2.show5）hide方法：用來(lái)將窗體暫時(shí)隱藏起來(lái)，但沒(méi)有從內(nèi)存中刪除格式： 窗體名.hide省略窗體名為當(dāng)前窗體例例：在窗體中單擊鼠標(biāo)，使另一個(gè)能顯示日期的窗體能顯示和隱藏。程序如下：對(duì)于窗體form1private sub form_click ( )if form2.visible = true thenform2.hideelseform2.showend ifend sub對(duì)于窗體form2private sub

22、form_load ( )me.left=0me.top=0me.height=100me.caption = nowend sub二、標(biāo)簽（label）1、主要屬性alignment：設(shè)置標(biāo)簽的對(duì)齊方式。0左對(duì)齊，1居中，2右對(duì)齊autosize：設(shè)置標(biāo)簽自動(dòng)改變大小以顯示全部?jī)?nèi)容。wordwrap：設(shè)置文本內(nèi)容在autosize屬性為true時(shí)能自動(dòng)卷饒。borderstyle：設(shè)置標(biāo)簽是否有邊框。0無(wú)，1有。backstyle：設(shè)置背景樣式，有兩種0-transparent 透明顯示1-opaque 不透明顯示三、三、 文本框文本框 文本框是一個(gè)文本編輯區(qū)，用戶可以在該區(qū)輸入、編輯、修改

23、和顯示正文內(nèi)容。1、主要屬性text：文本框無(wú)caption屬性，顯示的正文內(nèi)容存放在text屬性中。當(dāng)程序執(zhí)行時(shí)用戶通過(guò)鍵盤(pán)輸入、編輯正文。maxlength：指明文本框中能夠輸入的正文內(nèi)容的最大長(zhǎng)度。0：任意長(zhǎng)字符串；非零值：字符個(gè)數(shù)的最大值；注意：在vb中字符長(zhǎng)度以字為單位，也就是一個(gè)西文字符和一個(gè)漢字都是一個(gè)字，長(zhǎng)度為1，占2個(gè)字節(jié)。multiline：當(dāng)其值為true時(shí)，文本框可輸入或顯示多行文字，同時(shí)具有文字處理器的自動(dòng)換行功能。scrollbars：當(dāng)multiline屬性為true時(shí)，此屬性才有效。其值為：0-none：無(wú)滾動(dòng)條；1-horezontal：有水平滾動(dòng)條；2-ve

24、rtical：有垂直滾動(dòng)條；3-both：同時(shí)有水平和垂直滾動(dòng)條注意：當(dāng)加了水平滾動(dòng)條后，文本框內(nèi)的自動(dòng)換行功能回自動(dòng)消失，只有按enter鍵后才能回車(chē)換行。selstart、sellength、seltext： 在程序中，對(duì)文本內(nèi)容進(jìn)行選擇操作時(shí)，這三個(gè)屬性用來(lái)標(biāo)識(shí)用戶選中的正文。selstart：選定的正文的開(kāi)始位置，第一個(gè)字符的位置為0，依次 類推。sellength：選定的正文長(zhǎng)度。seltext：選定的正文內(nèi)容。例：建立如下的兩個(gè)文本框。在第一個(gè)文本框中輸入一段文字，選取任意一段后，單擊窗體，在第二個(gè)文本框中出現(xiàn)剛選中的文字。程序代碼如下：private sub form_click

25、()text2.text = text1.seltextend sublocked：指定文本內(nèi)容是否可被編輯。默認(rèn)為false，表示可編輯；當(dāng)設(shè)置為true時(shí)，文本內(nèi)容相當(dāng)于標(biāo)簽的作用。如： private sub form_click( ) text1.locked=true text1. text=“abcdefghijklmnopqrst” end subpasswordchar：指定顯示在文本框中的字符。如：text1.passwordchar=“*”例：做出下面界面2、主要事件change事件 當(dāng)用戶輸入新內(nèi)容或當(dāng)程序?qū)ext屬性設(shè)置新值，從而改變文本框的text屬性時(shí)會(huì)引發(fā)該事件。當(dāng)用戶輸入一個(gè)字符時(shí)，就會(huì)引發(fā)一次change事件。如，用戶輸入“hello”一詞，會(huì)引發(fā)5次change事件。keypress事件 當(dāng)用戶按下并釋放鍵盤(pán)上的一個(gè)鍵時(shí)，就會(huì)引發(fā)焦點(diǎn)所在控件的keypress事件，此事件會(huì)返回一個(gè)keyascii參數(shù)到該事件過(guò)程中。如：當(dāng)輸入字符“a”，返回keyascii的值為96，通過(guò)chr(keyascii)可以將ascii碼轉(zhuǎn)換為所對(duì)應(yīng)字符“a”。 同change事件一樣，每輸入一個(gè)字符就會(huì)引發(fā)一次keypress事件。該事件最常用的是對(duì)輸入的是否為回車(chē)符（keyascii的值為13）進(jìn)行判斷，表示文本輸入結(jié)束。lostfocu