Открываю два файла для присвоения их содержимого двум ComboBox-ам, но инфа есть только в первом - VB
Формулировка задачи:
Доброго времени суток! Есть такой код:
Задача простая вроде-бы: есть два (или больше) обычных текстовиков с данными, которые надо запихать в ComboBox-ы. Где-то я накосячил... Но где? Помогите, пожалуйста! Спасибо!
Листинг программы
- 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-ам, но инфа есть только в первом»
textual
Листинг программы
- do until eof(#1)
- Line Input #1, BndNA
- Combo1.AddItem BndNA
- loop
- close 1
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
