На этом шаге мы перечислим события, связанные с мышью.
Рассмотрим синтаксис процедур обработки событий, генерируемых нажатием кнопки мыши и перемещением указателя мыши и связанных с элементами управления (таблица 1).
| Событие | Происходит... |
|---|---|
| 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&Drop.
