VB教程：組合框（ComboBox）

7、組合框（ComboBox）
    作用:ComboBox控件其實(shí)是融合了TextBox控件和ListBox控件兩者的功能，它既可以像TextBox控件那樣允許用戶鍵人新內(nèi)容，又可以橡ListBox控件那樣允許用戶對(duì)列表中的項(xiàng)目進(jìn)行選擇?！?BR>    ComboBox控件的屬性、方法、事件與ListBox控件大致相同，在此我們只把不同的部分提出來(lái)，以作比較。
    （1）Style屬件
    ComboBox控件的Style屬件與ListBox控件的Style屬性是不同的，請(qǐng)看下表的描述。
    常數(shù) 值 描述
    vbComboDropDown 0 下拉式組合框（缺省值）。包括一個(gè)文本框和一個(gè)下拉式列表,既可以從列表中選擇又可以在文本框中輸入。
    vbComboSimple 1 簡(jiǎn)單組合框。包括一個(gè)文本框和一個(gè)不能下拉的列表，既可以從列表中選擇又可以在文本框中輸入。簡(jiǎn)單組合框的大小包括編輯和列表部分。按默認(rèn)規(guī)定，簡(jiǎn)單組合框的大小調(diào)整在沒(méi)有任何列表顯示的狀態(tài)。增加Height屬性值可顯示列表的更多部分。
    vbComboDropDownList 2 下拉式列表。這種樣式僅允許從下拉式列表中選擇。
    例：在窗體上添加三個(gè)ComboBox控件，Style屬性分別設(shè)置為0、1、2。
    添加代碼：
    Private Sub Form_Load()
    Combo1.AddItem "北京"
    Combo1.AddItem "上海"
    Combo2.AddItem "北京"
    Combo2.AddItem "上海"
    Combo3.AddItem "北京"
    Combo3.AddItem "上海"
    End Sub
    顯示如下：
    (2)Click事件
    一般情況下Click事件都是依靠單擊鼠標(biāo)來(lái)激活的，但是有些時(shí)候也可以通過(guò)控件狀態(tài)的改變來(lái)激活。
    例：向窗體添加一個(gè)ComboBox控件，屬性值見(jiàn)教材P134表5—12。
    添加代碼如下：
    Private Sub Form_Load()
    Combo1.AddItem "上海" '增加項(xiàng)目　
    Combo1.AddItem "北京"
    Combo1.AddItem "杭州"
    Combo1.AddItem "西安"
    End Sub
    --------------------------------------------------------------------------------
    Private Sub Combo1_Click()
     Select Case Combo1.Text '根據(jù)選中項(xiàng)目的內(nèi)容來(lái)進(jìn)行判斷
     Case "北京"
     MsgBox "北京-----中國(guó)的首都"
     Case "上海"
     MsgBox "上海------不夜城"
     Case "杭州"
     MsgBox "杭州------西湖"
     Case "西安"
     MsgBox "西安------兵馬俑"
     End Select
    End Sub