Na form1 mam combo1 i list1. Chciałbym żeby gdy w combo1 wpiszę "1" to do list1 podczytywany byłby tekst z pliku poziomZagrozenia1.txt, gdy wybiorę w combo1 "2" to do list1 podczytywany byłby tekst z pliku poziomZagrozenia2.txt
Napisałem poniższy kod:
Private Sub Combo1_Click()
Dim poziomzagrozenia1
Dim poziomzagrozenia2
List1.Clear
If Combo1.Text = "1" Then Open "C:\poziomZagrozenia1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, poziomzagrozenia1
List1.AddItem poziomzagrozenia1
Loop
Close #1
Else
If Combo1.Text = "2" Then Open "C:\poziomZagrozenia2.txt" For Input As #2
Do Until EOF(2)
Line Input #2, poziomzagrozenia2
List1.AddItem poziomzagrozenia2
Loop
Close #2
End If
End If
End Sub
Niestety ten kod nie działa. Ma ktoś pomysł co robię nie tak?? |