Asignación de Variable en un Listbox
Pregunta fácil para los que saben: tengo 2 listbox:
List1:(contiene 4 variables): Perdo, Pepe, Juan y María
List2:(contiene otras cuatro)
Madrid, Sevilla, León, Málaga
Pulsando el botón Command1, hay un Label1 que debería mostrar las variables seleccionadas por cada uno de los Listbox. Espero que me podáis ayudar. Gracias de antemano.
List1:(contiene 4 variables): Perdo, Pepe, Juan y María
List2:(contiene otras cuatro)
Madrid, Sevilla, León, Málaga
Pulsando el botón Command1, hay un Label1 que debería mostrar las variables seleccionadas por cada uno de los Listbox. Espero que me podáis ayudar. Gracias de antemano.
1 Respuesta
Respuesta de igordillo
1
Aquí tienes el código que hace lo que pides:
Private Sub Command1_Click()
Label1.Caption = List1.List(List1.ListIndex) & " " & List2.List(List2.ListIndex)
End Sub
Private Sub Form_Load()
List1. AddItem "Pedro"
List1. AddItem "Pepe"
List1. AddItem "Juan"
List1. AddItem "María"
List2. AddItem "Madrid"
List2. AddItem "Sevilla"
List2. AddItem "León"
List2. AddItem "Málaga"
End Sub
Private Sub Command1_Click()
Label1.Caption = List1.List(List1.ListIndex) & " " & List2.List(List2.ListIndex)
End Sub
Private Sub Form_Load()
List1. AddItem "Pedro"
List1. AddItem "Pepe"
List1. AddItem "Juan"
List1. AddItem "María"
List2. AddItem "Madrid"
List2. AddItem "Sevilla"
List2. AddItem "León"
List2. AddItem "Málaga"
End Sub
