vb6 - 将文本和 ID 值添加到 VB6 组合框

Question

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

有没有办法通过使用 AddItem 方法来实现这一点？

Answer 1

它不能在方法中完成，但只要 ID 是数值，AddItem就可以使用属性立即完成：NewIndex

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)