Основы офисного программирования и язык 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




Начало  Назад  Вперед



Книжный магазин