Самоучитель VBA

       

Общие методы и события элементов управления



Перечислим основные общие методы элементов управления.

Add




Позволяет добавить элемент управления во время выполнения программы

Move

Перемещает элемент управления

Zorder

Помешает объект до или после всех пересекающихся с ним объектов

SetFocus

Устанавливает фокус на вызвавшем этот метод элементе управления. Часто применяется в программах обработки ошибок

Перечислим наиболее часто употребляемые общие события элементов управления.

Click

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

DblClick

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

KeyPress

Происходит, когда пользователь нажимает любую клавишу на клавиатуре, кроме функциональных и клавиш управления курсором

Change

Происходит при изменении значения элемента управления

GotFocus И LostFocus

Происходит, когда элемент управления получает или теряет фокус

Error

Используется при уведомлении об ошибке

Рассмотрим синтаксис процедур обработки событий, генерируемых нажатием кнопки мыши и перемещением указателя мыши и связанных с элементами управления (табл. 7.4).

Таблица 7.4. События, связанные с нажатием кнопки мыши

и перемещением мыши

Событие

Событие происходит

MouseDown

При нажатии кнопки мыши

MouseUp

При отпускании кнопки мыши

MouseMove

При перемещении указателя мыши

Синтаксис:

Private Sub object_MouseDown( ByVal Button As fmButton,

ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)

Private Sub object_MouseUp( ByVal Button As fmButton,

ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)

Private Sub object_MouseMove( ByVal Button As fmButton,

ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)

Аргументы:

Button

Возвращает код (значение) нажатой кнопки мыши. Допустимые значения:

  • fmButtonLeft или 1 (левая)

  • fmButtonRight или 2 (правая)

    fmButtonMiddle или 4 (средняя)

  • Shift

    Возвращает код (значение) нажатой на клавиатуре клавиши. Допустимые значения:

  • fmShiftMask или 1 (<Shift>)

    fmCtrlMask или 2 (<Ctrl>)

  • fmAltMask или 4 (<Alt>)

  • X И Y

    Возвращает значение расстояния от левого или от верхнего края формы, рамки или страницы. При событии MouseMove этим расстоянием считается путь в направлении от левого верхнего угла элемента управления по горизонтали или вертикали

    <
    Рассмотрим синтаксис процедур обработки событий при операциях drag-and-drop, связанных с элементами управления (табл. 7.5).

    Таблица 7.5. События, связанные с перемещением элемента управления



    Событие



    Событие происходит



    BeforeDragOver

    BeforeDropOr Paste



    Пока совершается операция drag-and-drop

    Перед завершением операции drag-and-drop

    Синтаксис:

    Private Sub object_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)

    Private Sub

    object_BeforeDropOrPaste( ByVal Cancel As MSForms.ReturnBoolean,

    ByVal Action As fmAction,

    ByVal Data As DataObject,

    ByVal X As Single,

    ByVal Y As Single,

    ByVal Effect As MSForms.ReturnEffeet,

    ByVal Shift As fmShiftState)

    Аргументы:



    Cancel



    Допустимые значения: False (по умолчанию, элемент управления обрабатывает событие) и True (приложение обрабатывает событие)



    Data



    Данные, перемещаемые во время операции drag-and-drop. Эти данные размещаются в объекте DataObject. Объект DataObject — это своеобразный аналог буфера обмена, в отличии от которого в нем допускается хранить только текстовую информацию



    X и Y



    Расстояние от левого верхнего угла элемента управления по горизонтали и вертикали



    DragState



    Устанавливает позицию указателя мыши относительно целевого объекта. Допустимые значения:

  • fmDragStateEnter или о (указатель мыши внутри целевого элемента управления)

  • fmDragStateLeave или 1 (указатель мыши вне целевого элемента управления)

    fmDragStateOver или 2 (указатель мыши в новой позиции, но остается внутри элемента управления)



  • Effect



    Устанавливает операцию, производимую над объектом. Допустимые значения:

  • fmDropEffectNone или о (не копировать и не перемещать объект)

  • fmDropEf fectcopy или 1 (копировать» объект)

  • fmDropEf fectMove или 2 (перемещать объект)

    fmDropEf fectCopyOrMove или з (копировать или перемещать объект)



  • Shift



    Возвращает код (значение) нажатой на клавиатуре клавиши. Допустимые значения:

  • fmShiftMask или 1 (<Shift>)

  • fmCtrlMask или 2 (<Ctrl>)

    fmAltMask или 4 (<Alt>)






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