第6章常用控件

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

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

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

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

5、elShow.Caption = 今天是星期 + Str(W - 1) End IfEnd SubWeekDay是一個函數(shù)，WeekDay(Now)的值是一個數(shù)字字符，表示當天是星期幾，如是星期三則此函數(shù)值為“4”，在標簽框中顯示出“今天是星期3”的信息。Private Sub OptDay_Click()D$ = Day(Now)Label1.Caption = 今天是今天是 + D$ + 號號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ù)，加入參數(shù)都是日期型函數(shù)，加入參數(shù)Now，表示當前星期、日期、月份、年份。表示當前星期、日期、月份、年份。單擊單擊“結束結束”按鈕時執(zhí)行以下程序段：按鈕時執(zhí)行

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

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

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

10、、三個檢查框組成。程序開始運行后，用戶在文本中輸入一段文字，然后按需要單擊各檢查框，用以改變文本的字體、字形及大小。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 控件為控件提供可標識的分組。當需要在同一控件為控件提供可標識的分組。當需要在同一窗體內建立幾組互獨立的單選鈕時，就需要用框架將每一組窗體內建立幾組互獨立的單選鈕時，就需要用框架將每一組單選鈕框框起來，把單選鈕框框起來，把 OptionButton 控件分成幾組，如下形控件分成幾組，如下形式。式。 框架設Caption

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

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

14、lse：框架及其控件被隱含起來。：框架及其控件被隱含起來。事件：事件：框架可以響應的事件框架可以響應的事件ClickClick、DblClickDblClick一般不需要有關框架的事件過程。一般不需要有關框架的事件過程。例例8.2 單選鈕、檢查框及框架用法示例。單選鈕、檢查框及框架用法示例。 Pg.187程序代碼如下：Private Sub OptFont1_Click()Label1.FontName = 宋體End Sub如果單擊“字體框架”中的“宋體”單選鈕，則使標簽框中的FontName屬性值被設置為宋體，標簽框中的文字立即變成宋體字。以下各過程的思路與此類似。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）是藍色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 滾動條

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

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

19、向或垂直方向滾動時，時，Scroll事件發(fā)生。拖動滑塊時會觸發(fā)事件發(fā)生。拖動滑塊時會觸發(fā)Scroll事件事件 Scroll事件與事件與Change事件的事件的區(qū)別區(qū)別在于：當滾動條控件在于：當滾動條控件滾動時滾動時Scroll事件一直發(fā)生，而事件一直發(fā)生，而Change事件只是在滾動結事件只是在滾動結束之后才發(fā)生一次。束之后才發(fā)生一次。滾動條示例。設計一個用于設置字體顏色的程序滾動條示例。設計一個用于設置字體顏色的程序. 編寫代碼如下：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 顯示人口的變化。人口的年增長率和年份分別用水平滾動條和垂直滾動條表示。當用戶先后移動兩個滾動條以改變年增長率和年份時，應顯示出此時的人口數(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）用于顯示項目列表，用戶可從用于顯示項目列表，用戶可從中選擇一個或多個項目。如果項目總數(shù)超過了可顯示的項中選擇一個或多個項目。如果項目總數(shù)超過了可顯示的項目數(shù)，目數(shù)， VB會自動加上滾動條。會自動加上滾動條。 列表框有兩種風格：標準和復選列表框。通過它的列表框有兩種風格：標準和復選列表框。通過它的Style屬性來設置。屬性來設置。 組合框控件（組

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

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

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