Ver Mensaje Individual
  #4 (permalink)  
Antiguo 03/12/2004, 00:04
Avatar de Beakdan
Beakdan
 
Fecha de Ingreso: diciembre-2001
Ubicación: Monterrey, Nuevo León
Mensajes: 433
Antigüedad: 22 años, 11 meses
Puntos: 7
Pcarvajal:
Tendrás que hacerlo en dos pasos. Para agregar la descripción y la posición del nuevo elemento en un combobox o un listbox, usas AddItem. Pero para asignarle un valor numérico a cada elemento del control, usas ItemData. Por ejemplo, con un control ListBox de nombre List1:

Código:
Private Sub Form_Load()
	List1.AddItem "Uno"
	List1.ItemData(List1.NewIndex) = 1
	List1.AddItem "Dos"
	List1.ItemData(List1.NewIndex) = 2
	List1.AddItem "Tres"
	List1.ItemData(List1.NewIndex) = 3
	List1.AddItem "Cuatro"
	List1.ItemData(List1.NewIndex) = 4
	List1.AddItem "Cinco"
	List1.ItemData(List1.NewIndex) = 5
End Sub
Private Sub List1_Click()
	Debug.Print List1.ItemData(List1.ListIndex)
End Sub
Hasta luego.