掌握常用控件單選鈕、檢查框、框架、滾動條、列表框、組合框、時鐘等的常用、屬性、重要事件和方法的使用；了解一些常用的ActiveX控件（高級控件）的使用。了解一些常用系統對象的使用。本章要求：第八章常用控件與系統對象本章重點：本章難點：

單選鈕、檢查框、框架、滾動條、列表框、組合框、時鐘等的常用、屬性、重要事件和方法的使用。列表框、組合框、ActiveX控件的使用。8.1單選鈕、檢查框及框架8.1.1單選鈕

1用途單選鈕（OptionButton）也稱作選擇按鈕。一組單選鈕控件可以提供一組彼此相互排斥的選項，任何時刻用戶只能從中選擇一個選項，實現一種“單項選擇”的功能，被選中項目左側圓圈中會出現一黑點。單選按鈕2.重要屬性（1）

Caption：文本標題。設置單選鈕的文本注釋內容。（2）

Alignment屬性：

0：—LeftJustify(缺省設置)控件鈕在左邊，標題顯示在右邊。

1：—RightJustify控件鈕在右邊，標題顯示在左邊。（3）Value屬性

True:單選鈕被選定False:單選鈕未被選定（缺省設置）

（4）

Style屬性

0--Standard：標準方式 1--Graphical：圖形方式

說明：

在Style屬性設置為1時，可使用Picture屬性（未選定時的圖標或位圖）8.1單選鈕、檢查框及框架3方法

SetFocus方法是單選鈕控件最常用的方法，可以在代碼中通過該方法將Value屬性設置為True。與命令按鈕相同，使用該方法之前，必須要保證單選鈕處于可見和可用狀態（即Visible與Enabled屬性值均為True）。4事件

Click事件是單選鈕控件最基本的事件，一般情況用戶無需為單選鈕編寫Click事件過程，因為當用戶單擊單選鈕時，它會自動改變狀態。例8.1單選鈕示例（Pg.185）。8.1單選鈕、檢查框及框架8.1.2檢查框1用途檢查框（CheckBox）也稱作復選框、選擇框。一組檢查框控件可以提供多個選項，它們彼此獨立工作，所以用戶可以同時選擇任意多個選項，實現一種“不定項選擇”的功能。選擇某一選項后，該控件將顯示√，而清除此選項后，√消失。檢查框被選中8.1單選鈕、檢查框及框架2.重要屬性

Caption、Alignment、Style與單選鈕相同

檢查框的Value屬性與單選按鈕不同，其值為數值型數據，可取0,1,2

檢查框0--Unchecked：未被選定1--Checked：選定2--Grayed：灰色，禁止選擇

單選鈕True:單選鈕被選定False:單選鈕未被選定，

缺省設置

檢查框與單選按鈕Value屬性的比較8.1單選鈕、檢查框及框架4事件

Click事件是檢查框控件最基本的事件。用戶一般無需為檢查框編寫Click事件過程，但其對Value屬性值的改變遵循以下規則：單擊未選中的檢查框時，Value屬性值變為1；單擊已選中的檢查框時，Value屬性值變為0；單擊變灰的檢查框時，Value屬性值變為0。

8.1單選鈕、檢查框及框架8.1.3框架(Frame)

Frame控件為控件提供可標識的分組。它是一個容器控件。當需要在同一窗體內建立幾組互獨立的單選鈕時，就需要用框架將每一組單選鈕框框起來，把OptionButton控件分成幾組，如下形式。

框架設Caption為"字體"框架內控件的創建方法：

為了將控件分組，首先需要繪制Frame控件，然后繪制Frame里面的控件。這樣就可以把框架和里面的控件同時移動。如果在Frame外部繪制了一個控件并試圖把它移到框架內部，那么控件將在Frame的上部，這時需分別移動Frame和控件。

方法1：單擊工具箱上的工具，然后用出現的“+”指針，在框架中適當位置拖拉出適當大小的控件。不能使用雙擊工具箱上工具的自動方式。

方法2：將控件“剪切”(Ctrl+X)到剪貼板，然后選中框架，使用(Ctrl+V)命令粘貼到框架內。8.1.3框架(Frame)重要屬性1. Caption屬性：框架標題2 Enabled屬性：缺省為True False：標題呈灰色，不允許對框架內的所有對象進行操作。3. Visible屬性：

True：框架及其控件可見。

False：框架及其控件被隱含起來。事件：

框架可以響應的事件Click、DblClick

一般不需要有關框架的事件過程。

例8.2單選鈕、檢查框及框架用法示例。Pg.1878.1.3框架(Frame)8.2滾動條

(ScrollBar)1用途

滾動條控件（ScrollBar）分為水平滾動條（HScrollbar）和垂直滾動條（VscrollBar）二種，通常附在窗體上協助觀察數據或確定位置，也可用作數據輸入工具，用來提供某一范圍內的數值供用戶選擇。

2.屬性(1)Value

滑塊所處位置所代表的值。(2)Max：最大值

-32,768~32,767(3)Min：最小值

-32,768~32,767(4)SmallChange

最小變動值，單擊箭頭時移動的增量值。(5)LargeChange

最大變動值，單擊空白處時移動的增量值。8.2滾動條

(ScrollBar)4事件（1）Change事件滾動條的Change事件在移動滾動框或通過代碼改變其Value屬性值時發生。單擊滾動條兩端的箭頭或空白處將引發Change事件。（2）Scroll事件當滾動框被重新定位，或按水平方向或垂直方向滾動時，Scroll事件發生。拖動滑塊時會觸發Scroll事件。

Scroll事件與Change事件的區別在于：當滾動條控件滾動時Scroll事件一直發生，而Change事件只是在滾動結束之后才發生一次。8.2滾動條

(ScrollBar)

例8.3滾動條示例。設計一個程序進行坐標設置教材Pg.190

例8.4滾動條示例。設計一個用于設置字體顏色的程序.8.2滾動條

(ScrollBar)8.3列表框與組合框一、用途

列表框控件（ListBox）用于顯示項目列表，用戶可從中選擇一個或多個項目。如果項目總數超過了可顯示的項目數，VB會自動加上滾動條。列表框有兩種風格：標準和復選列表框。通過它的Style屬性來設置。如下圖：組合框控件（ComboBox）將文本框和列表框的功能結合在一起，用戶可以在列表中選擇某項（只能選取一項）?；蛟诰庉媴^域中直接輸入文本內容來選定項目。組合框共三種風格：下拉式組合框、簡單組合框和下拉式列表框（見下圖）。8.3列表框與組合框1．Style屬性

該值用來指示控件的顯示類型和行為。在運行時是只讀的。對于列表框控件或組合框控件都有Style屬性，但它們的含義是不同的，見表8.5和表8.6。Pg194

例如：在窗體上放置2個列表框，將其Style屬性分別設置為0和1；放置3個組合框，將它們Style屬性分別設置為0、1和2。

二、主要屬性8.3列表框與組合框2．List、ListCount和ListIndex屬性List：字符型數組，存放列表框的項目數據，下標是從0開始的。例如：List(0)表示第一項（Listindex=0）的內容列表框項目可在設計模式下一項一項輸入。

ListIndex：為整型值，選中的項目的序號，如果列表框可多選，則為最后一次選中項目的序號，沒有項目選中時為-1。

ListCount：為整型值，表示項目的數量，ListCount-1是最后一項的下標。8.3列表框與組合框3．MultiSelect屬性用于指示是否能夠在列表框控件中進行復選以及如何進行復選，在運行時是只讀的。注意，組合框控件無此屬性。

設置值含義0（缺省值）不允許復選1簡單復選。鼠標單擊或按下空格鍵在列表中選中或取消選中項。箭頭鍵移動焦點2擴展復選。按下SHIFT并單擊鼠標將在以前選中項的基礎上擴展選擇到當前選中項。按下CTRL并單擊鼠標來在列表中選中或取消選中項表8.7MultiSelect屬性設置值及含義8.3列表框與組合框4．Selected屬性

該屬性返回或設置列表框控件中的一個項目的選擇狀態。該屬性是一個邏輯類型的數組，數組元素個數與列表框中的項目數相同，其下標的變化范圍與List屬性相同。例如：List1.Selected（0）=True表示列表框List1的第一個項目被選中，此時ListIndex的值設置為0。Selected屬性在設計時是不可用的，即無法在屬性窗口中設置屬性值。5．Sorted屬性返回一個邏輯值，當Sorted屬性為True時列表框控件或組合框控件的項目自動按字母表順序（升序）排序，為False時項目按加入的先后順序排列顯示。該屬性只能在設計時設置，不能在程序代碼中設置。8.3列表框與組合框6．Text屬性對于組合框：（Combo1）下拉式組合框與簡單組合框（Style=0和1）：

Text屬性返回編輯區域中的文本。下拉列表框，Text屬性的返回當前被選中的項，值總與combo1.List（combo1.ListIndex）的值相同。

對于列表框：（List1）

Text屬性選中的文本，如果列表框可多選，則為最后一次選中項目。Text屬性值總與List1.List（List1.ListIndex）的值相同。8.3列表框與組合框

ListCount=6ListIndex=3(下標從0開始的)Selected(3)=True，其余為False。

Sorted=False，沒有排序。

Text=“abc”，

List1.List(List1.ListIndex)=“abc”Combo1.List(Combo1.ListIndex)=“abc”列表框、組合框各主要屬性的值：8.3列表框與組合框方法1．AddItem方法用于將項目添加到列表框控件或組合框控件。語法格式：〈對象名〉.AddItemitem[,index]

其中：item:為字符串表達式，表示要加入的項目。

Index:決定新增項目的位置，缺省，則添加在最后。

2．RemoveItem方法用于從列表框控件或組合框控件中刪除一項。語法格式：〈對象名〉.RemoveItemindex

對index參數的規定同AddItem方法。8.3列表框與組合框

例如，要刪除列表框（List1）中所有選中的項目，可使用下面的程序段：i=0DoWhilei<=List1.ListCount-1IfList1.Selected(i)=TrueThenList1.RemoveItemIelsei=i+1EndIfloop8.3列表框與組合框i=List1.ListCount-1DoWhilei>=0IfList1.Selected(i)ThenList1.RemoveItemIEndIfi=i-1loop也可這樣寫

3．Clear方法用于清除列表框控件或組合框控件中的所有項目。語法格式：

〈對象名〉.Clear例如，刪除列表框（List1）中所有項目，可使用：

List1.Clear8.3列表框與組合框4、事件（1）Click事件當單擊某一列表項目時，將觸發列表框與組合框控件的Click事件。該事件發生時系統會自動改變列表框與組合框控件的ListIndex、Selected、Text等屬性，無需另行編寫代碼。（2）DblClick事件當雙擊某一列表項目時，將觸發列表框與簡單組合框控件的DblClick事件。（3）Change事件（列表框沒有此事件）當用戶通過鍵盤輸入改變下拉式組合框或簡單組合框控件的文本框部分的正文，或者通過代碼改變了Text屬性的設置時，將觸發其Change事件。8.3列表框與組合框例8.5列表框示例。設計一個暢銷書排行榜程序。用戶界面如右圖。例8.6組合框示例。設計一個用于設置字體屬性的程序，界面如右圖所示。8.3列表框與組合框1.用途

時鐘控件（Timer）又稱計時器、定時器控件，用于有規律地定時執行指定的工作，常常用于編寫不需要與用戶進行交互就可直接執行的代碼，如計時、倒計時、動畫等。

在程序運行階段，時鐘控件不可見。8.4時鐘

2屬性（1）Interval屬性取值范圍在0~64767，單位：為毫秒（0.001秒），表示計時間隔。若將Interval屬性設置為0或負數，則計時器停止工作。缺省設置為0（2）Enabled屬性

設置為True，而且Interval屬性值大于0，則計時器開始工作（以Interval屬性值為間隔，觸發Timer事件）。設置為False可使時鐘控件無效，即計時器停止工作。缺省設置為True8.4時鐘3方法

Timer控件沒有方法。4事件

時鐘控件只有Timer事件

當Enabled屬性值為True且Interval屬性值大于0時，該事件以Interval屬性指定的時間間隔發生常常將需要定時執行的操作放在Timer事件過程中8.4時鐘例1、時鐘示例。

(設計一個計時、倒計時程序）例3設計一個霓虹燈程序例2：動例畫：滾動字幕

常常用于編寫不需要與用戶進行交互就可直接執行的代碼，如：計時器、倒計時、動畫等。時鐘控件的應用舉例8.4時鐘*8.5ActiveX控件概念：在VB中可以使用微軟以及一些第三方廠商開發了許多擴展的高級控件，這些控件被稱為ActiveX控件。使用ActiveX控件，首先應把需要使用的ActiveX控件添加到工具箱中。ActiveX控件文件的類型名為.ocx，一般情況下ActiveX控件被安裝和注冊在

\Windows\System或

System32目錄下。

執行“工程”菜單中的“部件”命令，打開“部件”對話框，該對話框中列出當前系統中所有注冊過的ActiveX控件、可插入對象和ActiveX設計器。8.5.1UpDown控件UpDown控件位于MicrosoftWindowsCommonControls-26.0部件中，其添加到工具箱后的圖標為。UpDown控件一般與其它控件配套使用，與之配套的控件稱為伙伴控件。屬性：BuddyControl屬性BuddyProperty屬性Value屬性Increment屬性Min和Max屬性Wrap屬性例8.9UpDown控件示例。*8.5ActiveX控件8.5.2Slider控件Slider控件位于MicrosoftWindowsCommonControls6.0部件中，其添加到工具箱后的圖標為。Slider控件包含滑塊和可選擇性刻度標記，與滾動條控件類似，Slider控件具有與滾動條控件相類似的基本屬性：如Min、Max、SmallChange、LargeChange和Value屬性Slider控件的其它屬性：（1）TextPosition屬性：（2）TickFrequency屬性：（3）TickStyle屬性：

Slider控件的常用事件為Scroll和Change，其觸發條件與滾動條控