Sección de códigos , trucos y ejemplos para visual basic

32 - Ejemplo simple de como Utilizar la propiedad ItemData de los 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

Buscar en Recursos vb