Статическое заполнение списка
Начнем, пожалуй, с самого простого статического заполнения списка duration, который просто состоит из двенадцати цифр, одну из которых пользователь (редактор) должен выбрать в качестве ориентировочной длительности проекта.
Программа 22.1. Статическое заполнение списка
{На панели Project} 1R UserForml & View Code {В окне кода}
Private Sub Init_Duration() 'Инициализация списка duration With duration
For i = 1 To 12
.Addltem i Next i
.Listlndex = 0 End With End Sub
Поясним код программы. Во-первых, мы создаем процедуру, которую впоследствии будем вызывать из конструктора формы. Во-вторых, используя оператор with, обращаемся к объекту формы duration. И наконец, в цикле от 1 до 12 инициализируем список.
После того как мы создали процедуру, ее необходимо вызвать. Естественно, что все процедуры инициализации мы будем размещать в конструкторе формы — процедуре — реакции на событие initialize.
Программа 22.2. Вызов процедуры из конструктора
Private Sub UserForm_Initialize()
Init_Duration End Sub
Теперь, нажав клавишу <F5>, вы можете убедиться, что список duration инициализируется верно.
