常用控件及多窗體

常用控件及多窗體第1頁(yè)，共54頁(yè)，2023年，2月20日，星期四6.1圖片框與圖像框1、功能：

用于在窗體的指定位置顯示圖形信息。2、VB6.0支持的圖形文件格式有：

.BMP、.ICO、.WMF、.EMF、.JPG、.GIF等（PictureBox）（ImageBox）第2頁(yè)，共54頁(yè)，2023年，2月20日，星期四（1）Picture屬性:

設(shè)置圖片框或圖像框中要顯示的圖形文件名。

裝入圖形文件的兩種設(shè)置方式：1）在設(shè)計(jì)階段，可以用屬性窗口中的“Picture屬性”裝入。2）在運(yùn)行期間，可以用“LoadPicture函數(shù)”裝入。

LoadPicture函數(shù)的一般格式如下：

對(duì)象名.Picture=LoadPicture([filename])

3、圖片框、圖像框的常用屬性（參考P726.1.1）filename：字符串表達(dá)式，指定一個(gè)被顯示的圖形的文件名，可以包括文件的盤(pán)符和路徑。如果圖片框中已有圖形，則被新裝入的圖形覆蓋。第3頁(yè)，共54頁(yè)，2023年，2月20日，星期四例如：Picture1.picture=LoadPicture("c:\windows\bubbles.bmp")【注意】：圖片框中的圖形也可以用“LoadPicture函數(shù)”刪除。如：

Picture1.Picture=LoadPicture()第4頁(yè)，共54頁(yè)，2023年，2月20日，星期四圖片框（Picturebox）（2）AutoSize屬性:決定是否自動(dòng)改變大小以顯示圖形。

False:圖片框大小不變。（圖形超出區(qū)域被剪）

True:圖片框根據(jù)圖形大小自動(dòng)調(diào)整。（3）Stretch屬性:確定圖像框如何與圖形相適應(yīng)。

False:圖像框適應(yīng)圖形的大小。（圖像框拉伸）

True：圖形適應(yīng)圖像框的大小。（圖形拉伸）圖像框（Imagebox）第5頁(yè)，共54頁(yè)，2023年，2月20日，星期四

（1）圖片框控件可以作為其他控件的容器。（2）圖片框可以通過(guò)Print方法接收文本，而圖像框則不能接收用Print方法輸入的信息。（3）圖像框比圖片框占用的內(nèi)存少，顯示速度快。例6.1：圖片框、圖像框的應(yīng)用4、圖片框、圖像框的區(qū)別第6頁(yè)，共54頁(yè)，2023年，2月20日，星期四6.2定時(shí)器1、功能：

定時(shí)器（Timer）控件每隔一定的時(shí)間間隔就產(chǎn)生一次Timer事件（可理解為報(bào)時(shí)）。

用戶(hù)可以根據(jù)這個(gè)特性設(shè)置時(shí)間間隔控制某些操作或用于計(jì)時(shí)。（Timer）第7頁(yè)，共54頁(yè)，2023年，2月20日，星期四

(1)Interval屬性(設(shè)置時(shí)間間隔)

觸發(fā)Timer事件的時(shí)間間隔。以毫秒為單位，取值范圍為0～65535

缺省值為0（定時(shí)器控件不起作用）。若每秒產(chǎn)生n個(gè)事件，則應(yīng)設(shè)置屬性Interval的值為1000/n。

(2)Enable屬性(開(kāi)啟定時(shí)器)

確定定時(shí)器的工作狀況。設(shè)置為T(mén)rue，定時(shí)器工作設(shè)置為False，定時(shí)器暫停工作3、定時(shí)器的常用屬性（參考P74）第8頁(yè)，共54頁(yè)，2023年，2月20日，星期四

定時(shí)器只支持Timer事件。對(duì)于一個(gè)“含有定時(shí)器控件的窗體”，每經(jīng)過(guò)一段由屬性Interval指定的時(shí)間間隔，就產(chǎn)生一個(gè)該定時(shí)器的Timer事件。

即：Timer事件是周期性事件，它按照由Interval屬性所確定的時(shí)間間隔定期地產(chǎn)生。3、定時(shí)器的常用的事件（參考P74）第9頁(yè)，共54頁(yè)，2023年，2月20日，星期四

例6.2建立數(shù)字計(jì)時(shí)器，要求每秒鐘時(shí)間變化一次。

第10頁(yè)，共54頁(yè)，2023年，2月20日，星期四例6.3實(shí)現(xiàn)會(huì)變顏色的文字，要求每秒鐘實(shí)現(xiàn)紅、藍(lán)顏色交替變化。

第11頁(yè)，共54頁(yè)，2023年，2月20日，星期四

6.3單選鈕與復(fù)選框6.3.1單選鈕（OptionButton）

1、功能：供用戶(hù)必須從且只能從多個(gè)可選項(xiàng)中選擇一項(xiàng)?！菊f(shuō)明】：當(dāng)某一項(xiàng)被選定后，其左邊的圓圈中出現(xiàn)一個(gè)黑點(diǎn)。第12頁(yè)，共54頁(yè)，2023年，2月20日，星期四

2、屬性：（1）Value屬性（單選按鈕的選中狀態(tài)）

True為選中；

False為不被選中。（2）Caption屬性（單選鈕旁邊的文本）（3）Style屬性（設(shè)置控件的外觀(guān)）值為0時(shí)，控件顯示標(biāo)準(zhǔn)樣式；值為1時(shí)，控件外觀(guān)類(lèi)似命令按鈕。3、事件：

Click事件第13頁(yè)，共54頁(yè)，2023年，2月20日，星期四例6.4程序運(yùn)行后，單擊某個(gè)單選鈕，在標(biāo)簽中顯示相應(yīng)的字體。運(yùn)行結(jié)果如下圖。第14頁(yè)，共54頁(yè)，2023年，2月20日，星期四

（1）設(shè)置缺省單選鈕：在設(shè)計(jì)時(shí)將其Value屬性值設(shè)置成True。（2）一個(gè)單選鈕可以用下面這些方法選中：在運(yùn)行期間用鼠標(biāo)單擊單選鈕。用Tab鍵定位到單選鈕組，然后用方向鍵定位單選鈕。用代碼將它的Value屬性值設(shè)置為T(mén)rue；即:Option1.value=true（3）要禁用單選鈕：可將其Enabled屬性值設(shè)置為False。4、說(shuō)明第15頁(yè)，共54頁(yè)，2023年，2月20日，星期四

6.3.2復(fù)選框（CheckBox）也稱(chēng)檢查框

1、功能：供用戶(hù)從多個(gè)可選項(xiàng)中選擇零到多項(xiàng)。

【說(shuō)明】：?jiǎn)螕魪?fù)選框一次時(shí)被選中，左邊出現(xiàn)“√”，再次單擊則取消選中，清除“√”?？赏瑫r(shí)使多個(gè)復(fù)選框處于選中狀態(tài)。第16頁(yè)，共54頁(yè)，2023年，2月20日，星期四

1．屬性（1）Value屬性（決定復(fù)選框的狀態(tài)）

0—未選中，1—已選中，2—變灰暗。（2）Picture屬性用來(lái)指定當(dāng)復(fù)選框被設(shè)計(jì)成圖形按鈕時(shí)的圖像。用此屬性前要先設(shè)置Style屬性。

2．事件

Click事件復(fù)選框的屬性及事件第17頁(yè)，共54頁(yè)，2023年，2月20日，星期四

例6.5用復(fù)選框控制文本是否加下劃線(xiàn)和斜體顯示。第18頁(yè)，共54頁(yè)，2023年，2月20日，星期四6.4容器與框架1、功能：可以在其上放置其它控件對(duì)象。

即：能夠把其他的控件組織在一起形成控件組。

Frame控件是一個(gè)容器:

若要在同一窗體上建立幾組相互獨(dú)立的單選按鈕，通常用框架控件（Frame）將每一組單選鈕框起來(lái)。

【框架使用的注意事項(xiàng)】：>>>（Frame）

【說(shuō)明】：窗體、圖片框和框架都是容器。容器內(nèi)所有控件成為一個(gè)組合，隨容器一起移動(dòng)、顯示、消失和屏蔽。第19頁(yè)，共54頁(yè)，2023年，2月20日，星期四

2．屬性（1）Caption屬性（框架的標(biāo)題）位于框架的左上角，用于注明框架的用途。（2）Enabled屬性（決定框架中的對(duì)象是否可用）值為：True，框架內(nèi)的控件為可操作的。3．事件

Click和DblClick。

【說(shuō)明】：一般不需要編寫(xiě)框架的事件過(guò)程。第20頁(yè)，共54頁(yè)，2023年，2月20日，星期四

例6.6使用兩個(gè)單選鈕組來(lái)改變文本框中文字的顏色和大小，運(yùn)行結(jié)果如圖所示。第21頁(yè)，共54頁(yè)，2023年，2月20日，星期四1、功能:

由若干個(gè)項(xiàng)目組成的列表，用戶(hù)可從中選擇一個(gè)或多個(gè)項(xiàng)目。列表框組合框6.5列表框和組合框

（ListBox）(ComboBox)第22頁(yè)，共54頁(yè)，2023年，2月20日，星期四列表框2、特點(diǎn)：只能選擇，不能寫(xiě)入或修改。列表框各主要屬性的值：

List1.List(3)的值為“cox”List1.ListCount=5List1.ListIndex=3(下標(biāo)從0開(kāi)始的)List1.Selected(3)=True，其余為False。

List1.Sorted=False，沒(méi)有排序。

List1.Text為“cox”， 與List1.List(List1.ListIndex)相等List1第23頁(yè)，共54頁(yè)，2023年，2月20日，星期四組合框2、特點(diǎn)：不同的模式下，可以進(jìn)行的操作也有區(qū)別。組合框各主要屬性的值：

Combo3.ListIndex=0Combo3.ListCount=7Combo3.Sorted=FalseCombo3.Text為“李強(qiáng)”下拉式組合框簡(jiǎn)單組合框下拉式列表框第24頁(yè)，共54頁(yè)，2023年，2月20日，星期四3、共有屬性（1）ListCount：P

項(xiàng)目的數(shù)量，ListCount－1是最后一項(xiàng)的下標(biāo)（2）List：P/D

存放列表框或組合框中各個(gè)數(shù)據(jù)項(xiàng)的內(nèi)容。下標(biāo)從0開(kāi)始。如：list1.List(3)=cox（第三項(xiàng)內(nèi)容為“cox”）（3）Text：P

列表框或組合框中最后被選中的內(nèi)容（4）ListIndex：P

選中的項(xiàng)目的下標(biāo)（序號(hào)）沒(méi)有項(xiàng)目選中時(shí)，取值為-1（5）Sorted：DTrue：按字母順序排列

False：按加入先后順序排列P：表示在程序代碼中設(shè)置；D：表示在界面設(shè)計(jì)階段的“屬性窗口”設(shè)置。List1第25頁(yè)，共54頁(yè)，2023年，2月20日，星期四3、特有屬性列表框的特有屬性：

（1）Selected：

P

存放列表框中項(xiàng)目是否選中。下標(biāo)從0開(kāi)始。如：List1.selected(3)=true（第三項(xiàng)被選中）

（2）MultiSelect：D0—None：禁止多項(xiàng)選擇

1—Simple：簡(jiǎn)單多項(xiàng)選擇

2—Extended：擴(kuò)展多項(xiàng)選擇組合框的特有屬性：

Style：

D0—DropdownCombo：下拉式組合框，可以輸入

1—SimpleCombo：簡(jiǎn)單組合框，可以輸入

2—DropdownList：下拉式列表框，不能輸入，只能選擇第26頁(yè)，共54頁(yè)，2023年，2月20日，星期四4、方法和事件方法：

AddItem

在列表框或組合框?qū)?yīng)的索引值處添加項(xiàng)目格式：對(duì)象.AddItem項(xiàng)目[,索引值]

（說(shuō)明：索引值為0、1）

RemoveItem

刪除列表框或組合框?qū)?yīng)的索引值的項(xiàng)目格式：對(duì)象.RemoveItem索引值

Clear

刪除列表框或組合框內(nèi)所有的項(xiàng)目格式：對(duì)象.Clear事件：列表框：Click、DblClick

組合框：Click（所有模式）、DblClick（Style=1時(shí)）、

Change事件（Style=0或1時(shí)，文本區(qū)輸入文本時(shí)，用于接收數(shù)據(jù)） 第27頁(yè)，共54頁(yè)，2023年，2月20日，星期四

例6.7利用列表框和命令按鈕編程，要求程序能夠?qū)崿F(xiàn)添加項(xiàng)目、刪除項(xiàng)目、刪除全部項(xiàng)目的功能。List1第28頁(yè)，共54頁(yè)，2023年，2月20日，星期四

PrivateSubCommand1_Click()‘添加項(xiàng)目按鈕Dimentryentry=InputBox("輸入添加內(nèi)容","添加")List1.AddItementry‘在末尾添加項(xiàng)目EndSubPrivateSubCommand2_Click()‘刪除項(xiàng)目按鈕Dimi%Fori=

List1.ListCount-1To0Step-1

If

List1.Selected(i)=true

Then

List1.RemoveItemiNextiEndSubPrivateSubCommand3_Click()‘全部刪除按鈕List1.ClearEndSub第29頁(yè)，共54頁(yè)，2023年，2月20日，星期四

例6.8設(shè)計(jì)一個(gè)簡(jiǎn)單的報(bào)名窗口，要求從文本框中輸入學(xué)生姓名，在“班級(jí)”旁邊的組合框中選擇其所屬班級(jí)（已提供四個(gè)默認(rèn)班級(jí)，用戶(hù)可以輸入其他班級(jí)名）。然后將學(xué)生姓名和班級(jí)添加到列表框中。用戶(hù)可以刪除列表框中所選擇的項(xiàng)目，也可以把整個(gè)列表框清空。第30頁(yè)，共54頁(yè)，2023年，2月20日，星期四6.6滾動(dòng)條1、功能：附在窗體上，協(xié)助觀(guān)察數(shù)據(jù)，確定位置或作為輸入數(shù)據(jù)的工具。水平滾動(dòng)條垂直滾動(dòng)條SmallChangeMinValueMaxSmallChangeLargeChangeLargeChange滾動(dòng)箭頭滾動(dòng)塊（HScro11Bar）(VScro11Bar)第31頁(yè)，共54頁(yè)，2023年，2月20日，星期四2、屬性（1）Max：最大值屬性（-32768-32767）表示當(dāng)滑塊處于最大位置時(shí)所代表的值（2）Min：最小值屬性（-32768-32767）表示當(dāng)滑塊處于最小位置時(shí)所代表的值（3）SmallChange

表示用戶(hù)單擊滾動(dòng)條兩端箭頭時(shí)，滑塊移動(dòng)的增量值（4）LargeChange

表示用戶(hù)單擊滾動(dòng)條的空白處時(shí)，滑塊移動(dòng)的增量值（5）Value

表示滑塊所處位置所代表的值第32頁(yè)，共54頁(yè)，2023年，2月20日，星期四3、事件Change事件：當(dāng)用戶(hù)改變滾動(dòng)塊的位置后發(fā)生。Scroll事件：在用戶(hù)改變滾動(dòng)塊的位置時(shí)發(fā)生。第33頁(yè)，共54頁(yè)，2023年，2月20日，星期四

例6.9利用滾動(dòng)條改變文本框中所顯示文本的字號(hào)大小。各控件屬性設(shè)置如下：文本框：text屬性設(shè)置為“同學(xué)們好”。標(biāo)簽：Caption屬性設(shè)置為空。滾動(dòng)條：Max屬性為100，Min屬性為5。第34頁(yè)，共54頁(yè)，2023年，2月20日，星期四程序代碼如下：

PrivateSubHScroll1_Change()Label1.Caption=HScroll1.ValueText1.FontSize=HScroll1.Value

EndSub第35頁(yè)，共54頁(yè)，2023年，2月20日，星期四

6.8多窗體在實(shí)際應(yīng)用中，特別是對(duì)于較復(fù)雜的應(yīng)用程序，單一窗體往往不能滿(mǎn)足需要。VB允許對(duì)多個(gè)窗體進(jìn)行處理，多重窗體（MultiForm）程序中的每個(gè)窗體都可以有自己的界面和代碼，完成各自的功能。第36頁(yè)，共54頁(yè)，2023年，2月20日，星期四

6.8.1多窗體有關(guān)的操作

1．添加窗體添加窗體是指在當(dāng)前工程中添加一個(gè)新的窗體或者把一個(gè)屬于其它工程的窗體添加到當(dāng)前工程中。添加一個(gè)新窗體的方法有“菜單法”、“工具欄法”等。

2．當(dāng)前窗體的切換

雙擊工程資源管理器窗口中的窗體名，該窗體便成為當(dāng)前窗體（被激活）。

3．刪除窗體

不再需要的窗體可把它刪除。方法是：在工程窗口中右鍵單擊想要?jiǎng)h除的窗體名，在彈出上下文菜單中選擇“移除”。第37頁(yè)，共54頁(yè)，2023年，2月20日，星期四

4．多窗體程序的保存將應(yīng)用程序存盤(pán)保存時(shí)，多窗體程序中的每個(gè)窗體都作為一個(gè)文件單獨(dú)保存，并保存其工程文件。

5．啟動(dòng)窗體的設(shè)置擁有多個(gè)窗體的應(yīng)用程序，默認(rèn)情況下，在設(shè)計(jì)階段建立的第一個(gè)窗體為啟動(dòng)窗體。即應(yīng)用程序開(kāi)始運(yùn)行時(shí)，先運(yùn)行這個(gè)窗體。如果要改變系統(tǒng)默認(rèn)的啟動(dòng)窗體，需要另外設(shè)置。第38頁(yè)，共54頁(yè)，2023年，2月20日，星期四6.8.2多窗體有關(guān)的語(yǔ)句和方法

在多窗體程序設(shè)計(jì)中，經(jīng)常需要打開(kāi)、關(guān)閉、隱藏或顯示指定的窗體。這可以通過(guò)相應(yīng)的語(yǔ)句和方法來(lái)實(shí)現(xiàn)。第39頁(yè)，共54頁(yè)，2023年，2月20日，星期四

（1）Load語(yǔ)句

格式：Load窗體名稱(chēng)

Load語(yǔ)句把一個(gè)窗體裝入內(nèi)存。執(zhí)行Load語(yǔ)句后，可以引用窗體中的控件及各種屬性，但此時(shí)窗體沒(méi)有顯示出來(lái)。要顯示窗體，可以使用Show方法。（2）Show方法

格式：［窗體名稱(chēng).］Show［模式］

Show方法用來(lái)顯示一個(gè)窗體。如果省略“窗體名稱(chēng)”，則顯示當(dāng)前窗體。

Show方法兼有裝入內(nèi)存和顯示窗體兩種功能。第40頁(yè)，共54頁(yè)，2023年，2月20日，星期四參數(shù)“模式”用來(lái)確定窗體的狀態(tài)，可以取值0和1。當(dāng)“模式”值為0（缺省值）時(shí)，表示窗體為“非模式型”窗口。不用關(guān)閉該窗體就可以對(duì)其他窗口進(jìn)行操作。當(dāng)“模式”值為1時(shí)，表示窗體是“模式型”窗體。鼠標(biāo)只有在此窗體內(nèi)起作用，不能移動(dòng)到其他窗體內(nèi)進(jìn)行操作。第41頁(yè)，共54頁(yè)，2023年，2月20日，星期四

（3）Unload語(yǔ)句

格式：Unload窗體名稱(chēng)清除內(nèi)存中指定的窗體（與Load語(yǔ)句的功能相反）。（4）Hide方法

格式：[窗體名稱(chēng).]HideHide方法使窗體隱藏起來(lái)，但窗體仍在內(nèi)存中。

常用方法：Show、Hide第42頁(yè)，共54頁(yè)，2023年，2月20日，星期四

在多窗體程序中，經(jīng)常要用到關(guān)鍵字Me，它代表的是程序代碼所在的窗體。例如，假如建立了一個(gè)窗體Forml，則可通過(guò)下面的代碼使該窗體隱藏：

Form1.Hide（與Me.Hide等價(jià)）【注意】：“Me.Hide”必須是Form1窗體或其控件的事件過(guò)程中的代碼。第43頁(yè)，共54頁(yè)，2023年，2月20日，星期四

6.8.3多窗體程序設(shè)計(jì)舉例例6.10利用多窗體編程，實(shí)現(xiàn)華氏溫度C和攝氏溫度F的互相轉(zhuǎn)換。分析：我們共使用三個(gè)窗體，窗體Form1作為主窗體，窗體Form2完成攝氏溫度轉(zhuǎn)為華氏溫度，窗體Form3完成華氏溫度轉(zhuǎn)為攝氏溫度。第44頁(yè)，共54頁(yè)，2023年，2月20日，星期四

對(duì)象屬性設(shè)置Command1Caption攝轉(zhuǎn)華Command2Caption華轉(zhuǎn)攝Command3Caption退出Form1Caption主窗體表6-8屬性設(shè)置（1）主窗體Form1：在其上建立三個(gè)命令按鈕，并按表6-8設(shè)置對(duì)象屬性。第45頁(yè)，共54頁(yè)，2023年，2月20日，星期四

PrivateSubCommand1_Click()

Form1.Hide

'隱藏主窗體

Form2.Show

'顯示攝轉(zhuǎn)華窗體EndSubPrivateSubCommand2_Click()Form1.Hide

'隱藏主窗體

Form3.Show

'顯示華轉(zhuǎn)攝窗體EndSub

主窗體的程序代碼：第46頁(yè)，共54頁(yè)，2023年，2月20日，星期四

（2）Form2窗體是單擊了主窗體上的“攝轉(zhuǎn)華”命令按鈕后彈出的窗體，用于輸入攝氏溫度，求其對(duì)應(yīng)的華氏溫度。

Form2的界面設(shè)置：在其上建立兩個(gè)命令按鈕，一個(gè)標(biāo)簽、兩個(gè)文本框控件，并按表6-9設(shè)置對(duì)象屬性。第47頁(yè)，共54頁(yè)，2023年，2月20日，星期四

對(duì)象屬性設(shè)置Command1Caption求華氏溫度Command2Caption返回Label1Caption請(qǐng)輸入一個(gè)攝氏溫度Text1Text空Text2