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