VB中Combobox的用法

Combobox控件用于在一组列表中选择其中的一项或多项。

使用方法如下：

AddItem 向列表框增加一项数据。

ListX. AddItem(Item As String)

RemoveItem删除第i项

ListX. RemoveItem(i As Integer)

使用属性如下：

Text表示当前 *** 作项内容。

ListCount表示当前列表框中总数据项数。

ListIndex表示当前 *** 作项下标，第1项=0。

List(i) 表示第i项表项内容。

MultiSelect表示是否允许多选择。

Selected(i)表示第i项是否被选中。

SelCount表示被选中的项数。

Sort表示是否排序。

扩展资料

ComboBox 控件和ListBox 控件在功能上很相似，很多情况下，这两个控件是可以互换使用的，但是还是有某种特定的环境下只适合使用一种控件的情况。

通常，ComboBox控件适合于建议用户选择控件所列举的选项、同时又可以让用户自行在文本框中输入列表中不存在的选项的情况；而ListBox 控件适合于限制用户只能选择列表中的选项的情况。

在用户界面上，因为ComboBox 控件默认情况下是存在下拉列表框的，所以比ListBox 控件占用的窗体空间少，更加适合于使用在存在大量列表项的情况下。ComboBox 控件的比ListBox 控件更加能灵活多用。

还是要先建立ADO连接，然后combobox用来取数。

Private Sub Command1_Click()

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0Data Source=ACCESS完整路径/ACCESS名UID=...PWD=...."

Adodc1.RecordSource="Select * From ACCESS 表"

Adodc1.Refresh

'----------//这就是连接数据库字符串，

’----------//要引用数据就该这么写

If Not Adodc1.RecordSET.EOF Then

'---------//必须排除数据连接异常，不然查询数据时每次提示响应连接

Combo1.AddItem Adodc1.RecordSet.Fields("字段名")

'--------让COMBO框显示查询列第一个记录

Adodc1.RecordSet.MoveNext

'--------下移再读取该列其它数到COMBO下拉中

End If

End Sub

不知道你的数据库情况，如果你已经有了一条记录，说明你没有读取全部记录，如果你使用的是ADO，那么：

Do While Not RS.EOF

Combo1.AddItem rs("字段名")

RS.MoveNext

Loop

就可以了。

---