常用控件及多窗體

常用控件及多窗體第1頁，課件共54頁，創(chuàng)作于2023年2月6.1圖片框與圖像框1、功能：

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

.BMP、.ICO、.WMF、.EMF、.JPG、.GIF等（PictureBox）（ImageBox）第2頁，課件共54頁，創(chuàng)作于2023年2月（1）Picture屬性:

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

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

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

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

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

Picture1.Picture=LoadPicture()第4頁，課件共54頁，創(chuàng)作于2023年2月圖片框（Picturebox）（2）AutoSize屬性:決定是否自動改變大小以顯示圖形。

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

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

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

True：圖形適應(yīng)圖像框的大小。（圖形拉伸）圖像框（Imagebox）第5頁，課件共54頁，創(chuàng)作于2023年2月

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

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

用戶可以根據(jù)這個特性設(shè)置時間間隔控制某些操作或用于計時。（Timer）第7頁，課件共54頁，創(chuàng)作于2023年2月

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

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

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

(2)Enable屬性(開啟定時器)

確定定時器的工作狀況。設(shè)置為True，定時器工作設(shè)置為False，定時器暫停工作3、定時器的常用屬性（參考P74）第8頁，課件共54頁，創(chuàng)作于2023年2月

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

即：Timer事件是周期性事件，它按照由Interval屬性所確定的時間間隔定期地產(chǎn)生。3、定時器的常用的事件（參考P74）第9頁，課件共54頁，創(chuàng)作于2023年2月

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

第10頁，課件共54頁，創(chuàng)作于2023年2月例6.3實現(xiàn)會變顏色的文字，要求每秒鐘實現(xiàn)紅、藍顏色交替變化。

第11頁，課件共54頁，創(chuàng)作于2023年2月

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

1、功能：供用戶必須從且只能從多個可選項中選擇一項?！菊f明】：當某一項被選定后，其左邊的圓圈中出現(xiàn)一個黑點。第12頁，課件共54頁，創(chuàng)作于2023年2月

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

True為選中；

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

Click事件第13頁，課件共54頁，創(chuàng)作于2023年2月例6.4程序運行后，單擊某個單選鈕，在標簽中顯示相應(yīng)的字體。運行結(jié)果如下圖。第14頁，課件共54頁，創(chuàng)作于2023年2月

（1）設(shè)置缺省單選鈕：在設(shè)計時將其Value屬性值設(shè)置成True。（2）一個單選鈕可以用下面這些方法選中：在運行期間用鼠標單擊單選鈕。用Tab鍵定位到單選鈕組，然后用方向鍵定位單選鈕。用代碼將它的Value屬性值設(shè)置為True；即:Option1.value=true（3）要禁用單選鈕：可將其Enabled屬性值設(shè)置為False。4、說明第15頁，課件共54頁，創(chuàng)作于2023年2月

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

1、功能：供用戶從多個可選項中選擇零到多項。

【說明】：單擊復(fù)選框一次時被選中，左邊出現(xiàn)“√”，再次單擊則取消選中，清除“√”?？赏瑫r使多個復(fù)選框處于選中狀態(tài)。第16頁，課件共54頁，創(chuàng)作于2023年2月

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

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

2．事件

Click事件復(fù)選框的屬性及事件第17頁，課件共54頁，創(chuàng)作于2023年2月

例6.5用復(fù)選框控制文本是否加下劃線和斜體顯示。第18頁，課件共54頁，創(chuàng)作于2023年2月6.4容器與框架1、功能：可以在其上放置其它控件對象。

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

Frame控件是一個容器:

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

【框架使用的注意事項】：>>>（Frame）

【說明】：窗體、圖片框和框架都是容器。容器內(nèi)所有控件成為一個組合，隨容器一起移動、顯示、消失和屏蔽。第19頁，課件共54頁，創(chuàng)作于2023年2月

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

Click和DblClick。

【說明】：一般不需要編寫框架的事件過程。第20頁，課件共54頁，創(chuàng)作于2023年2月

例6.6使用兩個單選鈕組來改變文本框中文字的顏色和大小，運行結(jié)果如圖所示。第21頁，課件共54頁，創(chuàng)作于2023年2月1、功能:

由若干個項目組成的列表，用戶可從中選擇一個或多個項目。列表框組合框6.5列表框和組合框

（ListBox）(ComboBox)第22頁，課件共54頁，創(chuàng)作于2023年2月列表框2、特點：只能選擇，不能寫入或修改。列表框各主要屬性的值：

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

List1.Sorted=False，沒有排序。

List1.Text為“cox”， 與List1.List(List1.ListIndex)相等List1第23頁，課件共54頁，創(chuàng)作于2023年2月組合框2、特點：不同的模式下，可以進行的操作也有區(qū)別。組合框各主要屬性的值：

Combo3.ListIndex=0Combo3.ListCount=7Combo3.Sorted=FalseCombo3.Text為“李強”下拉式組合框簡單組合框下拉式列表框第24頁，課件共54頁，創(chuàng)作于2023年2月3、共有屬性（1）ListCount：P

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

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

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

選中的項目的下標（序號）沒有項目選中時，取值為-1（5）Sorted：DTrue：按字母順序排列

False：按加入先后順序排列P：表示在程序代碼中設(shè)置；D：表示在界面設(shè)計階段的“屬性窗口”設(shè)置。List1第25頁，課件共54頁，創(chuàng)作于2023年2月3、特有屬性列表框的特有屬性：

（1）Selected：

P

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

（2）MultiSelect：D0—None：禁止多項選擇

1—Simple：簡單多項選擇

2—Extended：擴展多項選擇組合框的特有屬性：

Style：

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

1—SimpleCombo：簡單組合框，可以輸入

2—DropdownList：下拉式列表框，不能輸入，只能選擇第26頁，課件共54頁，創(chuàng)作于2023年2月4、方法和事件方法：

AddItem

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

（說明：索引值為0、1）

RemoveItem

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

Clear

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

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

Change事件（Style=0或1時，文本區(qū)輸入文本時，用于接收數(shù)據(jù)） 第27頁，課件共54頁，創(chuàng)作于2023年2月

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

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

List1.ListCount-1To0Step-1

If

List1.Selected(i)=true

Then

List1.RemoveItemiNextiEndSubPrivateSubCommand3_Click()‘全部刪除按鈕List1.ClearEndSub第29頁，課件共54頁，創(chuàng)作于2023年2月

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

表示用戶單擊滾動條兩端箭頭時，滑塊移動的增量值（4）LargeChange

表示用戶單擊滾動條的空白處時，滑塊移動的增量值（5）Value

表示滑塊所處位置所代表的值第32頁，課件共54頁，創(chuàng)作于2023年2月3、事件Change事件：當用戶改變滾動塊的位置后發(fā)生。Scroll事件：在用戶改變滾動塊的位置時發(fā)生。第33頁，課件共54頁，創(chuàng)作于2023年2月

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

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

EndSub第35頁，課件共54頁，創(chuàng)作于2023年2月

6.8多窗體在實際應(yīng)用中，特別是對于較復(fù)雜的應(yīng)用程序，單一窗體往往不能滿足需要。VB允許對多個窗體進行處理，多重窗體（MultiForm）程序中的每個窗體都可以有自己的界面和代碼，完成各自的功能。第36頁，課件共54頁，創(chuàng)作于2023年2月

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

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

2．當前窗體的切換

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

3．刪除窗體

不再需要的窗體可把它刪除。方法是：在工程窗口中右鍵單擊想要刪除的窗體名，在彈出上下文菜單中選擇“移除”。第37頁，課件共54頁，創(chuàng)作于2023年2月

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

5．啟動窗體的設(shè)置擁有多個窗體的應(yīng)用程序，默認情況下，在設(shè)計階段建立的第一個窗體為啟動窗體。即應(yīng)用程序開始運行時，先運行這個窗體。如果要改變系統(tǒng)默認的啟動窗體，需要另外設(shè)置。第38頁，課件共54頁，創(chuàng)作于2023年2月6.8.2多窗體有關(guān)的語句和方法

在多窗體程序設(shè)計中，經(jīng)常需要打開、關(guān)閉、隱藏或顯示指定的窗體。這可以通過相應(yīng)的語句和方法來實現(xiàn)。第39頁，課件共54頁，創(chuàng)作于2023年2月

（1）Load語句

格式：Load窗體名稱

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

格式：［窗體名稱.］Show［模式］

Show方法用來顯示一個窗體。如果省略“窗體名稱”，則顯示當前窗體。

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

（3）Unload語句

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

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

常用方法：Show、Hide第42頁，課件共54頁，創(chuàng)作于2023年2月

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

Form1.Hide（與Me.Hide等價）【注意】：“Me.Hide”必須是Form1窗體或其控件的事件過程中的代碼。第43頁，課件共54頁，創(chuàng)作于2023年2月

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

對象屬性設(shè)置Command1Caption攝轉(zhuǎn)華Command2Caption華轉(zhuǎn)攝Command3Caption退出Form1Caption主窗體表6-8屬性設(shè)置（1）主窗體Form1：在其上建立三個命令按鈕，并按表6-8設(shè)置對象屬性。第45頁，課件共54頁，創(chuàng)作于2023年2月

PrivateSubCommand1_Click()

Form1.Hide

'隱藏主窗體

Form2.Show

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

'隱藏主窗體

Form3.Show

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

主窗體的程序代碼：第46頁，課件共54頁，創(chuàng)作于2023年2月

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

Form2的界面設(shè)置：在其上建立兩個命令按鈕，一個標簽、兩個文本框控件，并按表6-9設(shè)置對象屬性。第47頁，課件共54頁，創(chuàng)作于2023年2月

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