Программа 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.



Содержание раздела