Программа 22.1. Статическое заполнение списка
Программа 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.