Программа 22.3. Работа с файлами
Программа 22.3. Работа с файлами
Sub Init_Series()
Dim inifile As Integer
Dim srv As String
inifile = FreeFile
iniPath = "C:\bookseries.ini" 'Открываем файл для чтения
Open iniPath For Input As tinifile
Do
Input tinifile, tmp series.Addltem tmp 'Цикл до конца файла
Loop Until EOF(inifile)
series.Listlndex = 0 End Sub
Прокомментируем эту программу. Сначала объявляется переменная inifile, с которой будет отождествлен файл. Далее открывается файл bookseries. ini (хранящийся в корне диска С), после чего в цикле от начала до конца файла считываются построчно значения для списка серий.
Естественно, что и вызов процедуры init_Series необходимо поместить в тело конструктора userForm_initialize, который теперь будет выглядеть следующим образом.