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

Question

我正在尝试使用AddItem方法添加到我的VB6组合框中。这个工作，但是，我想在下拉菜单中显示文本，但我需要传递该文本的ID。

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

Answer 1

由于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) 

Answer 2

它不能在AddItem方法来实现，但它很容易后立即这样做，使用NewIndex财产，只要ID是数值：

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