ProgramasVb6 - ComboBox

Un ejemplo de como usar la propiedad ItemData de los ComboBox

El ejemplo es muy simple, se agregan unos items a un comboBox, y se le asocia un dato a cada item, cuando se hace click en cada item se muestra el valor del ItemData de ese elemento.

Controles

Colocar un ComboBox llamado Combo1

Código fuente en el formulario

Option Explicit  
  
  
' -- Creamos una estructura para el ejemplo  
Private Type Mitipo  
    edad As Integer  
    nombre As String  
End Type  
  
Private Sub Form_Load()  
  
' -- Creamos un arreglo de 3 indices de tipo Mitipo  
  
Dim arreglo(1 To 3) As Mitipo 'Llenamos la matriz  
  
    arreglo(1).edad = 26  
    arreglo(1).nombre = "Carlos"  
    arreglo(2).edad = 32  
    arreglo(2).nombre = "Veronica"  
    arreglo(3).edad = 25  
    arreglo(3).nombre = "Martin"  
  
    ' -- Hacemos un bucle para guardar los valores. Mediante el  
    ' -- método item agregamos los nombres anteriores, y en cada  
    ' -- nombre le asociamos la edad mediante la propiedad ItemData  
    Dim i As Integer  
    For i = 1 To 3  
        Combo1.AddItem arreglo(i).nombre  
        Combo1.ItemData(i - 1) = arreglo(i).edad  
    Next  
  
End Sub  
  
' -- Cuando pinchamos un elemento, nos muestra su valor asociado  
' -- en la propiedad ItemData, es decir nos muestra la edad  
Private Sub Combo1_Click()  
    MsgBox "La edad es: " & Combo1.ItemData(Combo1.ListIndex)  
End Sub  