第6章常用控件

1、第第6 6章章 常用控件常用控件本章內(nèi)容及要求：本章內(nèi)容及要求： 掌握常用控件單選鈕掌握常用控件單選鈕(OptionButton)、檢查框、檢查框(CheckBox)、 框架框架(Frame)、滾動(dòng)條、滾動(dòng)條(ScrollBar)、 列表框列表框(ListBox)、組合框（、組合框（ComboBox)、時(shí)鐘、時(shí)鐘(Timer)等的常用、等的常用、 屬性、重要事件和方法的使用；屬性、重要事件和方法的使用；6.1 單選鈕、檢查框及框架單選鈕、檢查框及框架6.1.1單選鈕單選鈕 1. 用途用途 單選鈕（單選鈕（OptionButton）也稱作選擇按鈕。一組單選也稱作選擇按鈕。一組單選鈕控件可以提供一

2、組彼此相鈕控件可以提供一組彼此相互排斥的選項(xiàng)，任何時(shí)刻用互排斥的選項(xiàng)，任何時(shí)刻用戶戶只能從中選擇一個(gè)選項(xiàng)只能從中選擇一個(gè)選項(xiàng)，實(shí)現(xiàn)一種實(shí)現(xiàn)一種“單項(xiàng)選擇單項(xiàng)選擇”的功的功能，被選中項(xiàng)目左側(cè)圓圈中能，被選中項(xiàng)目左側(cè)圓圈中會(huì)出現(xiàn)一黑點(diǎn)。會(huì)出現(xiàn)一黑點(diǎn)。單選按鈕2. 重要屬性重要屬性（1） Caption：文本標(biāo)題。設(shè)置單選鈕的文文本標(biāo)題。設(shè)置單選鈕的文本注釋內(nèi)容。本注釋內(nèi)容。（2） Alignment屬性屬性： 0：Left Justify(缺省缺省)控件鈕在左邊，控件鈕在左邊，標(biāo)題顯示在右邊。標(biāo)題顯示在右邊。 1：Right Justify 控件鈕在右邊，標(biāo)題顯控件鈕在右邊，標(biāo)題顯示在左邊。示在左

3、邊。（3）Value 屬性屬性True: 單選鈕被選定單選鈕被選定False: 單選鈕未被選定（單選鈕未被選定（缺省設(shè)置）缺省設(shè)置） 3. 方法方法 SetFocus方法方法是單選鈕控件最常用的方法，可以在代是單選鈕控件最常用的方法，可以在代碼中通過該方法將碼中通過該方法將Value屬性設(shè)置為屬性設(shè)置為True。 與命令按鈕相同，使用該方法之前，必須要保證單選與命令按鈕相同，使用該方法之前，必須要保證單選鈕處于可見和可用狀態(tài)（即鈕處于可見和可用狀態(tài)（即Visible與與Enabled屬性值均為屬性值均為True）。）。4. 事件事件 Click事件是單選鈕控件最基本的事件，一般情況用戶事件是單

4、選鈕控件最基本的事件，一般情況用戶無需為單選鈕編寫無需為單選鈕編寫Click事件過程，因?yàn)楫?dāng)用戶單擊單選鈕事件過程，因?yàn)楫?dāng)用戶單擊單選鈕時(shí)，它會(huì)自動(dòng)改變狀態(tài)。時(shí)，它會(huì)自動(dòng)改變狀態(tài)。 例例8.1 單選鈕示例（單選鈕示例（Pg.90）。）。 例6.3.1 設(shè)計(jì)一個(gè)程序，用戶界面由四個(gè)單選按鈕、一個(gè)標(biāo)簽和一個(gè)命令按鈕組成，程序運(yùn)行后，用戶單擊某個(gè)單選按鈕，就可將它對(duì)應(yīng)的內(nèi)容（星期、日期、月份或年份）顯示在標(biāo)簽框中。Private Sub OptWeek_Click() W = Weekday(Now) If W = 1 Then LabelShow.Caption = 今天是星期日 Else Lab

5、elShow.Caption = 今天是星期 + Str(W - 1) End IfEnd SubWeekDay是一個(gè)函數(shù)，WeekDay(Now)的值是一個(gè)數(shù)字字符，表示當(dāng)天是星期幾，如是星期三則此函數(shù)值為“4”，在標(biāo)簽框中顯示出“今天是星期3”的信息。Private Sub OptDay_Click()D$ = Day(Now)Label1.Caption = 今天是今天是 + D$ + 號(hào)號(hào)End Sub單擊單擊“月份月份”單選鈕，則執(zhí)行下面的過程，其中單選鈕，則執(zhí)行下面的過程，其中Month是月份函數(shù)。是月份函數(shù)。Private Sub OptMonth_Click()M$ = Mon

6、th(Now)Label1.Caption = 這月是這月是 + M$ + 月份月份End Sub單擊單擊“年份年份”單選鈕，則執(zhí)行下面的過程，其中單選鈕，則執(zhí)行下面的過程，其中Year是年份函數(shù)。是年份函數(shù)。Private Sub OptYear_Click()Y$ = Year(Now)Label1.Caption = 今年是今年是 + Y$ + 年年End Sub這里，這里，WeekDay、Day、Month、Year都是日期型函數(shù)，加入?yún)?shù)都是日期型函數(shù)，加入?yún)?shù)Now，表示當(dāng)前星期、日期、月份、年份。表示當(dāng)前星期、日期、月份、年份。單擊單擊“結(jié)束結(jié)束”按鈕時(shí)執(zhí)行以下程序段：按鈕時(shí)執(zhí)行

7、以下程序段：Private Sub CmdEnd_Click()EndEnd Sub6.1.2 檢查框檢查框1. 用途用途 檢查框（檢查框（CheckBox）也稱）也稱作復(fù)選框、選擇框。一組檢查框作復(fù)選框、選擇框。一組檢查框控件可以提供多個(gè)選項(xiàng)，它們彼控件可以提供多個(gè)選項(xiàng)，它們彼此獨(dú)立工作，所以用戶可以同時(shí)此獨(dú)立工作，所以用戶可以同時(shí)選擇任意多個(gè)選項(xiàng)，實(shí)現(xiàn)一種選擇任意多個(gè)選項(xiàng)，實(shí)現(xiàn)一種“不定項(xiàng)選擇不定項(xiàng)選擇”的功能。選擇的功能。選擇某一某一選項(xiàng)后，該控件將顯示選項(xiàng)后，該控件將顯示，而清，而清除此選項(xiàng)后，除此選項(xiàng)后，消失。消失。2. 重要屬性重要屬性 Caption、Alignment與單選鈕相

8、同與單選鈕相同檢查框 檢查框的檢查框的Value 屬性與單選按鈕不同，其值為數(shù)值型數(shù)屬性與單選按鈕不同，其值為數(shù)值型數(shù)據(jù)，可取據(jù)，可取 0 , 1 , 2 檢查框檢查框0-Unchecked：未被未被選定選定1-Checked：選定：選定2-Grayed：灰色，禁止選擇灰色，禁止選擇 單選鈕單選鈕True: True: 單選鈕被單選鈕被選定選定False: False: 單選鈕未被單選鈕未被選定，選定， 缺省設(shè)置缺省設(shè)置 檢查框與單選按鈕檢查框與單選按鈕Value 屬性的比較屬性的比較方法方法每調(diào)用一次每調(diào)用一次SetFocus方法就會(huì)觸發(fā)一次方法就會(huì)觸發(fā)一次Click事件事件(錯(cuò)錯(cuò))。val

9、ue每改變一次就會(huì)觸發(fā)一次每改變一次就會(huì)觸發(fā)一次Click事件。事件。4. 事件事件 Click事件是檢查框控件最基本的事件。用戶一般無事件是檢查框控件最基本的事件。用戶一般無需為檢查框編寫需為檢查框編寫Click事件過程，但其對(duì)事件過程，但其對(duì)Value屬性值的改屬性值的改變遵循以下規(guī)則：變遵循以下規(guī)則：單擊未選中的檢查框時(shí)，單擊未選中的檢查框時(shí)，Value屬性值變?yōu)閷傩灾底優(yōu)?；單擊已選中的檢查框時(shí)，單擊已選中的檢查框時(shí)，Value屬性值變?yōu)閷傩灾底優(yōu)?；單擊變灰的檢查框時(shí)，單擊變灰的檢查框時(shí)，Value屬性值變?yōu)閷傩灾底優(yōu)?。 例6.3.2 設(shè)計(jì)一個(gè)程序，用戶界面由一個(gè)標(biāo)簽框、一個(gè)文本框

10、、三個(gè)檢查框組成。程序開始運(yùn)行后，用戶在文本中輸入一段文字，然后按需要單擊各檢查框，用以改變文本的字體、字形及大小。Private Sub ChkFont_Click() If ChkFont.Value = 1 Then TxtPassage.FontName = 楷體_GB2312 Else TxtPassage.FontName = 宋體 End IfEnd SubPrivate Sub ChkItalic_Click()If ChkItalic.Value=1 ThenTxtPassage.FontItalic=-1ElseTxtPassage.FontItalic=0End IfEn

11、d SubPrivate Sub ChkSize_Click()If ChkSize.Value=1 ThenTxtPassage .FontSize=16ElseTxtPassage.FontSize=8End IfEnd Sub6.1.3 框架框架 (Frame) Frame 控件為控件提供可標(biāo)識(shí)的分組。當(dāng)需要在同一控件為控件提供可標(biāo)識(shí)的分組。當(dāng)需要在同一窗體內(nèi)建立幾組互獨(dú)立的單選鈕時(shí)，就需要用框架將每一組窗體內(nèi)建立幾組互獨(dú)立的單選鈕時(shí)，就需要用框架將每一組單選鈕框框起來，把單選鈕框框起來，把 OptionButton 控件分成幾組，如下形控件分成幾組，如下形式。式。 框架設(shè)Caption

12、為 字體框架內(nèi)控件的創(chuàng)建方法：框架內(nèi)控件的創(chuàng)建方法： 為了將控件分組，首先需要繪制為了將控件分組，首先需要繪制 Frame 控件，然后控件，然后繪制繪制 Frame 里面的控件。這樣就可以把框架和里面的控里面的控件。這樣就可以把框架和里面的控件同時(shí)移動(dòng)。如果在件同時(shí)移動(dòng)。如果在 Frame 外部繪制了一個(gè)控件并試圖外部繪制了一個(gè)控件并試圖把它移到框架內(nèi)部，那么控件將在把它移到框架內(nèi)部，那么控件將在 Frame 的上部，這時(shí)的上部，這時(shí)需分別移動(dòng)需分別移動(dòng) Frame 和控件和控件方法方法1：單擊工具箱上的工具，然后用出現(xiàn)的單擊工具箱上的工具，然后用出現(xiàn)的“+”指指針，在框架中適當(dāng)位置拖拉出適當(dāng)

13、大小的控件。針，在框架中適當(dāng)位置拖拉出適當(dāng)大小的控件。不能使用雙擊工具箱上工具的自動(dòng)方式。不能使用雙擊工具箱上工具的自動(dòng)方式。 方法方法2：將控件將控件“剪切剪切”(Ctrl+X)到剪貼板，然后選中到剪貼板，然后選中框架，使用框架，使用 (Ctrl+V)命令粘貼到框架內(nèi)。命令粘貼到框架內(nèi)。重要屬性重要屬性1. Caption屬性：框架標(biāo)題屬性：框架標(biāo)題2 Enabled屬性：屬性：缺省為缺省為True False：標(biāo)題呈灰色，：標(biāo)題呈灰色，不允許對(duì)框架內(nèi)的所有對(duì)象不允許對(duì)框架內(nèi)的所有對(duì)象 進(jìn)行操作進(jìn)行操作。3. Visible屬性：屬性： True：框架及其控件可見。：框架及其控件可見。 Fa

14、lse：框架及其控件被隱含起來。：框架及其控件被隱含起來。事件：事件：框架可以響應(yīng)的事件框架可以響應(yīng)的事件ClickClick、DblClickDblClick一般不需要有關(guān)框架的事件過程。一般不需要有關(guān)框架的事件過程。例例8.2 單選鈕、檢查框及框架用法示例。單選鈕、檢查框及框架用法示例。 Pg.187程序代碼如下：Private Sub OptFont1_Click()Label1.FontName = 宋體End Sub如果單擊“字體框架”中的“宋體”單選鈕，則使標(biāo)簽框中的FontName屬性值被設(shè)置為宋體，標(biāo)簽框中的文字立即變成宋體字。以下各過程的思路與此類似。Private Sub

15、OptFont2_Click()Label1.FontName = 隸書End SubPrivate Sub OptFont3_Click()Label1.FontName = 幼圓End SubPrivate Sub OptCol1_Click()Label1.ForeColor = QbColor(9) QbColor（9）是藍(lán)色End SubPrivate Sub OptCol2_Click()Label1.ForeColor = QbColor(13) QbColor（13）是紫色End SubPrivate Sub OptCol3_Click()Label1.ForeColor =

16、QbColor(10) QbColor（10）是綠色End SubPrivate Sub OptSize1_Click()Label1.FontSize = 14End SubPrivate Sub OptSize2_Click()Label1.FontSize = 18End SubPrivate Sub OptSize3_Click()Label1.FontSize = 22End SubPrivate Sub Command1_Click()Label1.Caption = 歡迎你使用End SubPrivate Sub Command2_Click()EndEnd Sub6.2 滾動(dòng)條

17、滾動(dòng)條 (ScrollBar)1. 用用 途途 滾動(dòng)條控件（滾動(dòng)條控件（ScrollBar）分為水平滾動(dòng)條（）分為水平滾動(dòng)條（HScrollbar）和垂直滾動(dòng)條（和垂直滾動(dòng)條（VscrollBar）二種，通常附在窗體上協(xié)助觀）二種，通常附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置，也可用作數(shù)據(jù)輸入工具，用來提供某察數(shù)據(jù)或確定位置，也可用作數(shù)據(jù)輸入工具，用來提供某一范圍內(nèi)的數(shù)值供用戶選擇。一范圍內(nèi)的數(shù)值供用戶選擇。 2. 屬性屬性(1) Value 滑塊所處位置所代表的值。滑塊所處位置所代表的值。(2) Max：最大值：最大值 -32,76832,767(3) Min：最小值：最小值 -32,76832,7

18、67(4) SmallChange 最小變動(dòng)值，最小變動(dòng)值， 單擊箭頭時(shí)移動(dòng)的增量值。單擊箭頭時(shí)移動(dòng)的增量值。(5) LargeChange 最大變動(dòng)值，單擊空白處時(shí)移動(dòng)的增量值。最大變動(dòng)值，單擊空白處時(shí)移動(dòng)的增量值。3. 方法方法4. 事件事件（1）Change事件事件 滾動(dòng)條的滾動(dòng)條的Change事件在移動(dòng)滾動(dòng)框或通過代碼改變其事件在移動(dòng)滾動(dòng)框或通過代碼改變其Value屬性值時(shí)發(fā)生。單擊滾動(dòng)條兩端的箭頭或空白處將引屬性值時(shí)發(fā)生。單擊滾動(dòng)條兩端的箭頭或空白處將引發(fā)發(fā)Change事件。事件。（2）Scroll事件事件 當(dāng)滾動(dòng)框被重新定位，或按水平方向或垂直方向滾動(dòng)當(dāng)滾動(dòng)框被重新定位，或按水平方

19、向或垂直方向滾動(dòng)時(shí)，時(shí)，Scroll事件發(fā)生。拖動(dòng)滑塊時(shí)會(huì)觸發(fā)事件發(fā)生。拖動(dòng)滑塊時(shí)會(huì)觸發(fā)Scroll事件事件 Scroll事件與事件與Change事件的事件的區(qū)別區(qū)別在于：當(dāng)滾動(dòng)條控件在于：當(dāng)滾動(dòng)條控件滾動(dòng)時(shí)滾動(dòng)時(shí)Scroll事件一直發(fā)生，而事件一直發(fā)生，而Change事件只是在滾動(dòng)結(jié)事件只是在滾動(dòng)結(jié)束之后才發(fā)生一次。束之后才發(fā)生一次。滾動(dòng)條示例。設(shè)計(jì)一個(gè)用于設(shè)置字體顏色的程序滾動(dòng)條示例。設(shè)計(jì)一個(gè)用于設(shè)置字體顏色的程序. 編寫代碼如下：Private Sub Form_Load()Picture1.BackColor = RGB(HScroll1, HScroll2, HScroll3)End

20、 SubPrivate Sub HScroll1_Change() Picture1.BackColor = RGB(HScroll1, HScroll2, HScroll3) r = LTrim(Str(HScroll1) g = LTrim(Str(HScroll2) b = LTrim(Str(HScroll3) Text1.Text = Color=RGB( & r & , & g & , & b & )End SubPrivate Sub HScroll2_Change()Picture1.BackColor = RGB(HScroll1, HScroll2, HScroll3) r

21、 = LTrim(Str(HScroll1) g = LTrim(Str(HScroll2) b = LTrim(Str(HScroll3) Text1.Text = Color=RGB( & r & , & g & , & b & )End SubPrivate Sub HScroll3_Change()Picture1.BackColor = RGB(HScroll1, HScroll2, HScroll3) r = LTrim(Str(HScroll1) g = LTrim(Str(HScroll2) b = LTrim(Str(HScroll3) Text1.Text = Color=

22、RGB( & r & , & g & , & b & )End Sub例6.4.1 顯示人口的變化。人口的年增長率和年份分別用水平滾動(dòng)條和垂直滾動(dòng)條表示。當(dāng)用戶先后移動(dòng)兩個(gè)滾動(dòng)條以改變年增長率和年份時(shí)，應(yīng)顯示出此時(shí)的人口數(shù)。其屬性設(shè)置如表6.4.1所示。Private Sub Form_Load() LabelYear.Caption = 2000年 LabelRate.Caption = 年增長率： 0 LabelInfo.Caption = 人口為： 12.3億End SubPrivate Sub RateBar_Change() pnow = 12.3 n = YearBar.Value

23、 - 2000 r = RateBar.Value / 1000 pthen = pnow * (1 + r) n LabelRate.Caption = 年增長率： + Str$(r) LabelInfo.Caption = 人口為： + Str$(pthen) + 億End SubPrivate Sub YearBar_Change() LabelYear.Caption = Str$(YearBar.Value) + 年 pnow = 12.3 n = YearBar.Value - 2000 r = RateBar.Value / 1000 pthen = pnow * (1 + r)

24、 n LabelRate.Caption = 年增長率： + Str$(r) LabelInfo.Caption = 人口為： + Str$(pthen) + 億End Sub6.3 列表框與組合框列表框與組合框 列表框控件（列表框控件（ListBox）用于顯示項(xiàng)目列表，用戶可從用于顯示項(xiàng)目列表，用戶可從中選擇一個(gè)或多個(gè)項(xiàng)目。如果項(xiàng)目總數(shù)超過了可顯示的項(xiàng)中選擇一個(gè)或多個(gè)項(xiàng)目。如果項(xiàng)目總數(shù)超過了可顯示的項(xiàng)目數(shù)，目數(shù)， VB會(huì)自動(dòng)加上滾動(dòng)條。會(huì)自動(dòng)加上滾動(dòng)條。 列表框有兩種風(fēng)格：標(biāo)準(zhǔn)和復(fù)選列表框。通過它的列表框有兩種風(fēng)格：標(biāo)準(zhǔn)和復(fù)選列表框。通過它的Style屬性來設(shè)置。屬性來設(shè)置。 組合框控件（組

25、合框控件（ComboBox）將文本框和列表框的將文本框和列表框的功能結(jié)合在一起，用戶可以在列表中選擇某項(xiàng)功能結(jié)合在一起，用戶可以在列表中選擇某項(xiàng)（只能選取（只能選取一項(xiàng)）一項(xiàng)）?；蛟诰庉媴^(qū)域中直接輸入文本內(nèi)容來選定項(xiàng)目?；蛟诰庉媴^(qū)域中直接輸入文本內(nèi)容來選定項(xiàng)目。組合框共組合框共三種風(fēng)格三種風(fēng)格：下拉式組合框、簡單組合框和下拉式：下拉式組合框、簡單組合框和下拉式列表框。列表框。二、主要屬性二、主要屬性1List、ListCount和和ListIndex屬性屬性這這3個(gè)屬性只能在程序代碼中設(shè)置：個(gè)屬性只能在程序代碼中設(shè)置：List： 字符型數(shù)組字符型數(shù)組 存放列表框的項(xiàng)目數(shù)據(jù)，下標(biāo)是從存放列表框的

26、項(xiàng)目數(shù)據(jù)，下標(biāo)是從0開始的。開始的。 例如：例如： List(0)表示第一項(xiàng)（表示第一項(xiàng)（Listindex=0)的內(nèi)容的內(nèi)容 ListIndex： 整型值整型值 選中的項(xiàng)目的序號(hào)，選中的項(xiàng)目的序號(hào)， 沒有項(xiàng)目選中時(shí)為沒有項(xiàng)目選中時(shí)為-1。 ListCount：整型值整型值 表示項(xiàng)目的數(shù)量，表示項(xiàng)目的數(shù)量，ListCount-1是最后一項(xiàng)的下標(biāo)。是最后一項(xiàng)的下標(biāo)。2Style屬性屬性 該值用來指示控件的顯示類型和行為。該值用來指示控件的顯示類型和行為。在運(yùn)行時(shí)是只讀在運(yùn)行時(shí)是只讀的的。列表框控件或組合框控件的。列表框控件或組合框控件的Style屬性含義是不同的。屬性含義是不同的。 方法方法1A

27、ddItem方法方法 用于將項(xiàng)目添加到列表框控件或組合框控件。用于將項(xiàng)目添加到列表框控件或組合框控件。 語法格式：語法格式： 對(duì)象名對(duì)象名.AddItem item , index 其中：其中：item: 為字符串表達(dá)式，表示要加入的項(xiàng)目。為字符串表達(dá)式，表示要加入的項(xiàng)目。 Index:決定新增項(xiàng)目的位置，決定新增項(xiàng)目的位置，缺省，則添加在最后。缺省，則添加在最后。 2RemoveItem方法方法用于從列表框控件或組合框控件中刪除一項(xiàng)。用于從列表框控件或組合框控件中刪除一項(xiàng)。語法格式：語法格式： 對(duì)象名對(duì)象名. RemoveItem index 對(duì)對(duì)index參數(shù)的規(guī)定同參數(shù)的規(guī)定同AddItem方法。方法。3Clear方法方法 用于清除列表框控件或組合框控件中的所有項(xiàng)目。用于清除列表框控件或組合框控件中的所有項(xiàng)目。 對(duì)象名對(duì)象名. Clear例如，要?jiǎng)h除列表框（例如，要?jiǎng)h除列表框（List1）中所有項(xiàng)目，可使用：）中所有項(xiàng)目，可使用： List1. Clear 例如，要?jiǎng)h除列表框（例如，要?jiǎng)h除列表框（List1）中所有選中的項(xiàng)目，可）中所有選中的項(xiàng)目，可使用下面的程序段：使用下面的程序段： i = 0Do While i 5000 Then ShapeTarget.Left = 100 End If If ShapeTarget.Top 500 Then ShapeTa