在combobox中如何取某一列表内容的index值？

[dannicklee]

同上

[shaidanR]

combox.listindex

[flc]

.listindex

[Dennis618]

Combo1.AddItem "a"
Combo1.AddItem "b"
Combo1.AddItem "c"
MsgBox Combo1.List(1) '得到第一列的值,返回 "b"
MsgBox Combo1.ListIndex '得到選定的Index 值

[lvlvlvlylyly]

Combo1.AddItem "a"
Combo1.AddItem "我是中国人"
Combo1.AddItem "打倒日本人"
MsgBox Combo1.List(1) '得到第一列的值,返回 "我是中国人"
MsgBox Combo1.ListIndex '得到選定的Index 值

[xzp1030]

Private Sub Form_Load()
Combo1.AddItem "0"
Combo1.AddItem "1"
Combo1.AddItem "2"
End Sub

Private Sub Combo1_Click()
MsgBox Combo1.ListIndex
End Sub

[dannicklee]

可能我没有表述清楚，要求是这样的：列表中的值是在数据库中通过查询得到的，所以事先并不知道每个内容的index值，现在想通过列表内容得到其index值。请问怎么实现。谢谢！

[fu0212]

楼上的已经回答的很细致了 我就不在重复了不过
我还是喜欢 lvlvlvlylyly(那森) 用的那两个字符串常量

Combo1.AddItem "a"
Combo1.AddItem "我是中国人"
Combo1.AddItem "打倒日本人"
IF YOU = COMBO1.LIST(1) THEN
MsgBox Combo1.List(2) '得到選定的Index 值
END IF

[dannicklee]

可能我没有表述清楚，要求是这样的：列表中的值是在数据库中通过查询得到的，所以事先并不知道列表里面的内容，以及每个内容的index值，现在想通过列表内容得到其index值。请问怎么实现。谢谢！

[hqsee]

Itemdata属性

[CBASE]

Private Sub Combo1_click()
Dim num As Long
num = 0
For i = 0 To Combo1.ListCount - 1
If Combo1.Text = Combo1.List(i) Then
Exit For
End If
num = num + 1
Next i
End Sub
num就是你要得index值