將文本和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