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

  1. Option Explicit  
  2.   
  3.   
  4. ' -- Creamos una estructura para el ejemplo  
  5. Private Type Mitipo  
  6.     edad As Integer  
  7.     nombre As String  
  8. End Type  
  9.   
  10. Private Sub Form_Load()  
  11.   
  12. ' -- Creamos un arreglo de 3 indices de tipo Mitipo  
  13.   
  14. Dim arreglo(1 To 3) As Mitipo 'Llenamos la matriz  
  15.   
  16.     arreglo(1).edad = 26  
  17.     arreglo(1).nombre = "Carlos"  
  18.     arreglo(2).edad = 32  
  19.     arreglo(2).nombre = "Veronica"  
  20.     arreglo(3).edad = 25  
  21.     arreglo(3).nombre = "Martin"  
  22.   
  23.     ' -- Hacemos un bucle para guardar los valores. Mediante el  
  24.     ' -- método item agregamos los nombres anteriores, y en cada  
  25.     ' -- nombre le asociamos la edad mediante la propiedad ItemData  
  26.     Dim i As Integer  
  27.     For i = 1 To 3  
  28.         Combo1.AddItem arreglo(i).nombre  
  29.         Combo1.ItemData(i - 1) = arreglo(i).edad  
  30.     Next  
  31.   
  32. End Sub  
  33.   
  34. ' -- Cuando pinchamos un elemento, nos muestra su valor asociado  
  35. ' -- en la propiedad ItemData, es decir nos muestra la edad  
  36. Private Sub Combo1_Click()  
  37.     MsgBox "La edad es: " & Combo1.ItemData(Combo1.ListIndex)  
  38. End Sub  

 

 
  ProgramasVb Copyright. 2011-2012 All Right Reserved  
 
=> ¿Desea una página web gratis? Pues, haz clic aquí! <=