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

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

---

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

这不能通过

AddItem

方法来实现，但是在使用

NewIndex

属性之后，只要ID是一个数值，就可以很容易地立即实现：

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

---

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

---

您可以发布您的代码吗？很遗憾，它不是数字ID：/