События Событие 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

Событие AfterUpdate (После модификации)

Возникает после изменения пользователем данных в элементе управления. Это событие не может быть отменено. Оно происходит после события BeforeUpdate и перед событием Exit для текущего элемента и перед событием Enter для элемента, на который переместится фокус после нажатия клавиши Tab. Вызов процедуры обработки события AfterUpdate имеет вид:

Private Sub объект_AfterUpdate ()

Событие BeforeDragOver (Перед завершением перетаскивания)

Это событие, возникающее при перетаскивании элемента, можно использовать для управления курсором, когда он попадает, покидает или находится в площади объекта. При перетаскивании объекта система периодически возбуждает событие BeforeDragOver, когда пользователь перемещает мышь, нажимает или отпускает ее кнопки. Положение курсора определяет целевой объект, получающий это событие.

Набор параметров, передаваемых процедуре обработки события BeforeDragOver, зависит от вида элемента управления. Они имеют следующий вид.

• для рамки (Frame) :

• Private Sub объект_BeforeDragOver (ByVal Cancel As MSForms.

• ReturnBoolean, ctrl As Control, ByVal Data As DataObject,

• ByVal X As Single, ByVal Y As Single, ByVal DragState As fmDragState,

• ByVal Effect As MSForms. ReturnEffect, ByVal Shift As fmShiftState) ;

• для набора страниц (MultiPage) :

• Private Sub объект_BeforeDragOver (index As Long, ByVal Cancel As MSForms.

• ReturnBoolean, ctrl As Control, ByVal Data As DataObject,

• ByVal X As Single, ByVal Y As Single, ByVal DragState As fmDragState,

• ByVal Effect As MSForms. ReturnEffect, ByVal Shift As fmShiftState) ;

• для полосы вкладок (TabStrip) :

• Private Sub объект_BeforeDragOver (index As Long, ByVal Cancel As MSForms.

• ReturnBoolean, ByVal Data As DataObject, ByVal X As Single, ByVal Y As

• Single, ByVal DragState As fmDragState, ByVal Effect As MSForms.

• ReturnEffect, ByVal Shift As fmShiftState) ;

• для других элементов управления:

• Private Sub объект_BeforeDragOver (ByVal Cancel As MSForms.

• ReturnBoolean, ByVal Data As DataObject, ByVal X As Single,

• ByVal Y As Single, ByVal DragState As fmDragState, ByVal Effect As MSForms.

• ReturnEffect, ByVal Shift As fmShiftState).

Здесь объект - имя объекта, которому принадлежит процедура, index - индекс вкладки из набора вкладок, затрагиваемой операцией перетаскивания, Cancel - обязательный статус обработки события, False означает, что оно будет обрабатываться элементом (по умолчанию), True показывает, что событие будет обрабатываться приложением. Параметр ctrl - тот элемент, перетаскивание которого завершается. Параметр Data содержит перетаскиваемые данные в формате объекта типа DataObject. Параметры X и Y задают горизонтальную и вертикальную координаты положения указателя мыши в элементе, измеряемые в точках. X - расстояние от левого края элемента, Y - от верхнего края. Параметр DragState указывает состояние указателя мыши относительно целевого элемента. Его возможные значения: fmDragStateEnter = 0 - указатель внутри целевого элемента, fmDragStateLeave = 1 - указатель вне области целевого элемента, fmDragStateOver = 2 - указатель находится в новом положении, но внутри того же элемента. Параметр Effect определяет возможные операции, выполняемые над опущенным исходным элементом. Его возможные значения те же, что и у описанного выше метода StartDrag. Параметр Shift задает состояние клавиш Shift, Ctrl и Alt. Его возможные значения: fmShiftMask = 1 - нажата клавиша Shift, fmCtrlMask = 2 - клавиша Ctrl, fmAltMask = 4 - Alt.

Большинство элементов управления не поддерживает перетаскивание при значении аргумента Cancel = False (это значение устанавливается по умолчанию). Эти элементы не позволяют перетащить что-либо на себя и не возбуждают событие BeforeDropOrPaste. Исключения - поле ввода (TextBox) и комбинированный список (ComboBox), разрешающие перетаскивание даже при значении параметра Cancel = False.