7、组合框（ComboBox）
作⽤:ComboBox控件其实是融合了TextBox控件和ListBox控件两者的功能，它既可以像TextBox控件那样允许⽤户键⼈新内容，⼜可以橡ListBox控件那样允许⽤户对列表中的项⽬进⾏选择。　
ComboBox控件的属性、⽅法、事件与ListBox控件⼤致相同，在此我们只把不同的部分提出来，以作⽐较。
（1）Style属件
ComboBox控件的Style属件与ListBox控件的Style属性是不同的，请看下表的描述。
常数值描述
vbComboDropDown 0 下拉式组合框（缺省值）。包括⼀个⽂本框和⼀个下拉式列表，既可以从列表中选择⼜可以在⽂本框中输⼊。
vbComboSimple 1 简单组合框。包括⼀个⽂本框和⼀个不能下拉的列表，既可以从列表中选择⼜可以在⽂本框中输⼊。简单组合框的⼤⼩包括编辑和列表部分。按默认规定，简单组合框的⼤⼩调整在没有任何列表显⽰的状态。增加Height属性值可显⽰列表的更多部分。
vbComboDropDownList 2 下拉式列表。这种样式仅允许从下拉式列表中选择。
例：在窗体上添加三个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。
textbox控件边框设置添加代码如下：
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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。