Основы офисного программирования и язык VBA


         

Событие AddControl


Событие AddControl возникает при добавлении во время работы программы нового элемента управления в диалоговое окно (UserForm), рамку (Frame), набор вкладок (MultiPage) или на одну вкладку (Page). При добавлении элементов на стадии проектирования окна и при выводе окна на экран в процессе работы это событие не возникает. Инициируется оно методом Add (Добавить).
Процедура обработки этого события не имеет аргументов при добавлении элемента в рамку или вкладку:
Private Sub объект_AddControl ()
Для диалогового окна в качестве параметра передается добавляемый элемент:
Private Sub UserForm_AddControl (ByVal ctrl As MSForms. Control)
При добавлении элемента в набор страниц вызов этой процедуры имеет вид:
Private Sub объект_AddControl (index As Long, ctrl As Control)
Здесь объект - это тот объект, в который добавляется элемент управления, index - индекс вкладки, в которую добавляется элемент, а ctrl - сам добавляемый элемент.
Процедура следующего примера выводит на экран сообщение всякий раз при добавлении нового элемента управления к диалоговому окну
Private Sub UserForm_AddControl (ByVal Ctrl As MSForms. Control) MsgBox "Появился новый элемент" End Sub

Содержание  Назад  Вперед