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

Question

同上

Answer 1

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

Answer 2

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

Answer 3

Private Sub Form_Load()
    Combo1.AddItem "0"
    Combo1.AddItem "1"
    Combo1.AddItem "2"
End SubPrivate Sub Combo1_Click()
    MsgBox Combo1.ListIndex
End Sub

Answer 4

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

Answer 5

楼上的已经回答的很细致了 我就不在重复了不过
我还是喜欢 lvlvlvlylyly(那森) 用的那两个字符串常量Combo1.AddItem "a"
    Combo1.AddItem "我是中国人"
    Combo1.AddItem "打倒日本人"
    IF YOU = COMBO1.LIST(1) THEN
    MsgBox Combo1.List(2)   '得到選定的Index 值
    END IF

Answer 6

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

Answer 7

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值