Открываю два файла для присвоения их содержимого двум ComboBox-ам, но инфа есть только в первом - VB

Формулировка задачи:

Доброго времени суток! Есть такой код:

Private Sub Form_Load()
'
On Error GoTo IPEOF
Open "CONFIG\BANDS.INI" For Input As #1
For i = 0 To 9
Line Input #1, BndNA
Combo1.AddItem BndNA
Next i
Close #1
'
On Error GoTo IPEOF
Open "CONFIG\ALBUMS.INI" For Input As #1
For i = 0 To 9
Line Input #1, AlbNA
Combo2.AddItem AlbNA
Next i
Close #1
'
IPEOF:
End Sub

Задача простая вроде-бы: есть два (или больше) обычных текстовиков с данными, которые надо запихать в ComboBox-ы. Где-то я накосячил... Но где? Помогите, пожалуйста! Спасибо!

Решение задачи: «Открываю два файла для присвоения их содержимого двум ComboBox-ам, но инфа есть только в первом»

textual
                            Листинг программы 
                        

                            do until eof(#1)
  Line Input #1, BndNA
  Combo1.AddItem BndNA
loop
close 1
                        

Оцени полезность:

14 голосов , оценка 3.786 из 5

Похожие ответы