将文本和ID值都添加到VB6组合框中

Question

我目前正在尝试使用AddItem方法添加到我的VB6组合框中。但是，这有效，我想在下拉列表中显示文本，但我需要传递该文本的ID。

有没有办法通过使用AddItem方法实现这一目标？

Answer 1

无法在AddItem方法中完成，但使用NewIndex属性后立即执行此操作非常容易，只要ID是数值：

With Combo1
    For i = 16 To 34
        .AddItem "Item " & i
        .ItemData(.NewIndex) = i
    Next
End With

Answer 2

由于ID不是数字，我没有使用上述解决方案。

我必须创建一个具有“desc”和“cod”的类型，然后创建该类型的数组。

然后我使用下拉列表的ListIndex（由数组填充）来获取包含id的元素值。

Private Type T_arrType
    cod As String
    dsc As String
End Type


dim x as integer
x = cbo.listIndex
msgbox(strArr(x).cod)
msgbox(strArr(x).dsc)