Private Sub Form_Load()
Open "base\baza.dat" For Input As #1
Nachalo:
Input #1, stroka$
If stroka$ = "EndSpis" Then stopform
If stroka$ <> "EndSpis" Then
Form1.BaseList.AddItem stroka$
GoTo Nachalo
End If
End Sub
----------------------------------------
Private Sub stopform()
Close #1
End Sub
----------------------------------------
base\baza.dat
строка первая
строка вторая
строка третья
EndSpis
Теперь надо сделать каким-то образом следующее:
Кликая на список, прога должна смотреть в файл со следующим содержанием:
----------------------------
строка первая
описание первой строки
конец описания первой строки
строка вторая
описание второй строки
конец описания второй строки
конец всех описаний
----------------------------
и грузить форму с... допустим, тексбоксом и должен вывести описание той строки, на которой был замечен клик в форме с сформированным списком в этот текстбокс...
Может я немного непонятно выразился, но мне это очень надо, помогите, если есть у кого что-нибудь подоюное, буду очень благодарен.
