VB教程：组合框（ComboBox）

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。

添加代码如下：

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

一、使用方法

1、在html定义：

<input class="easyui-combobox" name="type" id="type" data-options="url:'getType.do',textField:'text',valueField:'value'"/>

或者

<select class="easyui-combobox" name="type" id="type">

<option value="0">小于</option>

<option value="1">大于</option>

<option value="2">等于</option>

</select>

2、在js定义：

<input class="easyui-combobox" name="type" id="type"/>or <input name="type" id="type"/>

$("#type").combobox({

url : 'getType.do',//ajax请求某个后台获取数据

//data : [],//数组数据，类似于option，如[{text:"小于",value:0},{text:"大于",value:1},]

textField : 'text',//绑定的显示值

valueField : 'value'//绑定的提交到后台的值

})

二、扩展资料：关于ComboBox（资料来源：网页链接）

1、hwndCtl为此组合框的句柄,lpsz为需要添加的字符串,组合框不能直接通过id添加内容,所以需要得到这个控件的句柄,还得使用GetDlgItem()函数。

2、在VB中，Combo Box(组合框)控件很简单也很常用，可以节省空间。从用户角度来看，这个控件是由一个文本输入控件和一个下拉菜单组成的。用户可以从一个预先定义的列表里选择一个选项，同时也可以直接在文本框里面输入文本。

3、组合框常用的方法

additem 增加列表项

removeitem 移去列表项

clear 移去所有列表项

requery 当rowsourcetype为3和4时,根据rowsource中的最新数据重新刷新列表项

Private Sub Command1_Click()

Text1.Text = Combo1.Text

Command1.Enabled = False '关闭修改按钮，这个你按要求选择关闭不关闭

Command2.Enabled = True

End Sub

Private Sub Command2_Click()

If Text1.Text <>"" Then

Combo1.List(Combo1.ListIndex) = Text1.Text

Text1.Text = "" '修改完成将text1清空

End If

Combo1.ListIndex = Combo1.ListIndex

Command2.Enabled = False

Command1.Enabled = True '打开修改按钮，这个你按要求选择打开不打开

End Sub

Private Sub Command3_Click()

If Text1.Text = "" Then Exit Sub '判断是否为空，为空则不增加到下拉列表中

Combo1.AddItem Text1.Text

'添加成功，并清空text1

Text1.Text = ""

End Sub

Private Sub Form_Load()

'添加数据

Combo1.AddItem "test1"

Combo1.AddItem "test2"

Combo1.AddItem "test3"

Combo1.ListIndex = 0

Command2.Enabled = False '将确定按钮无效

End Sub

---