ComboBox y ListBox

lvaro
01 de Marzo del 2006
Hola, quería saber que tnego que hacer para que en un Combobox escojo la opción "mañanas" y en una listbox me aparezca una lista con su correspondiente código cada opción.

epa
01 de Marzo del 2006
Hola Alvaro:

Si mal no entiendo lo que necesitas es esto


Dim OpcionCombo1 As String
Dim OpcionCombo2 As String

Private Sub SetList1()
List1.Clear
List1.AddItem "Opcion1", 0
List1.AddItem "Opcion2", 1
List1.AddItem "Opcion3", 2
End Sub

Private Sub SetList2()
List1.Clear
List1.AddItem "Opcion4", 0
List1.AddItem "Opcion5", 1
List1.AddItem "Opcion6", 2
End Sub

Private Sub Combo1_Click()
If Combo1.Text = OpcionCombo1 Then
SetList1
ElseIf Combo1.Text = OpcionCombo2 Then
SetList2
End If
End Sub

Private Sub Form_Load()
OpcionCombo1 = "Opcion1"
OpcionCombo2 = "Opcion2"
Combo1.AddItem OpcionCombo1, 0
Combo1.AddItem OpcionCombo2, 1
End Sub

Espero te sirva, saludos