7、组合框（ComboBox）

作用:ComboBox控件其实是融合了TextBox控件和ListBox控件两者的功能，它既可以像TextBox控件那样允许用户键人新内容，又可以橡ListBox控件那样允许用户对列表中的项目进行选择。　

ComboBox控件的属性、方法、事件与ListBox控件大致相同，在此我们只把不同的部分提出来，以作比较。

（1）Style属件

ComboBox控件的Style属件与ListBox控件的Style属性是不同的，请看下表的描述。

例：在窗体上添加三个ComboBox控件，Style属性分别设置为0、1、2。

添加代码：

Private Sub Form_Load()

Combo1.AddItem "北京"
Combo1.AddItem "上海"

Combo2.AddItem "北京"
Combo2.AddItem "上海"

Combo3.AddItem "北京"
Combo3.AddItem "上海"

End Sub

显示如下：

(2)Click事件

一般情况下Click事件都是依靠单击鼠标来激活的，但是有些时候也可以通过控件状态的改变来激活。

例：向窗体添加一个ComboBox控件，属性值见教材P134表5—12。

添加代码如下：

Private Sub Form_Load()

Combo1.AddItem "上海"       '增加项目　
Combo1.AddItem "北京"
Combo1.AddItem "杭州"
Combo1.AddItem "西安"

End Sub

Private Sub Combo1_Click()

    Select Case Combo1.Text     '根据选中项目的内容来进行判断
        Case "北京"
            MsgBox "北京-----中国的首都"
        Case "上海"
            MsgBox "上海------不夜城"
        Case "杭州"
            MsgBox "杭州------西湖"
        Case "西安"
            MsgBox "西安------兵马俑"
    End Select

End Sub

[程序演示]        [程序下载]