How can i add hidden column in vbcombo

[vetti]

Hello VB Gurus,
how can i add one or more hidden columns in
VB ComboBox.I would like to refer thier value in run time.
Is any API function ???

thanks for replying

vetti..

[Aaron Young]

You could use an External Array to keep as many Extra hidden columns as you want, just use the Combo's ItemData as the link storing the Array Index (then you can sort the list without causing a problem), i.e.

Private sExCombo() As String

Private Sub Form_Load()
    Dim lIndex As Long
    
    For lIndex = 0 To 9
        Combo1.AddItem "Item " & lIndex + 1
        ReDim Preserve sExCombo(Combo1.ListCount - 1)
        sExCombo(Combo1.ListCount - 1) = "Extra Value " & lIndex + 1
        Combo1.ItemData(Combo1.NewIndex) = lIndex
    Next
    Combo1.ListIndex = 0
End Sub

Private Sub Combo1_Click()
    Caption = sExCombo(Combo1.ItemData(Combo1.ListIndex))
End Sub