События MouseDown, MouseUp
Выполняются при щелчке кнопкой мыши. Событие MouseDown выполняется, когда пользователь нажимает кнопку мыши, а MouseUp — когда отпускает.
Синтаксис
Для MultiPage— TabStrip
Частныйобъект Sub _MouseDown(indexAs Long,
Кнопка ByValКак fmButton,
ByValShift— fmShiftState,
ByValXкак одиночный,
ByValYAs Single)Private Subobject _MouseUp(indexAs Long,
Кнопка ByValКак fmButton,
ByValShift— fmShiftState,
ByValXкак одиночный,
ByValYкак одиночный)
Для других элементов управления
Частныйобъект Sub _MouseDown( ByValButtonAs fmButton,
ByValShift— fmShiftState,
ByValXкак одиночный,
ByValYAs Single)Private Subobject _MouseUp( ByValButtonAs fmButton,
ByValShift— fmShiftState,
ByValXкак одиночный,
ByValYкак одиночный)
Синтаксис событий MouseDown и MouseUp включает следующие элементы:
| Part | Описание |
|---|---|
| object | Обязательно. Допустимый объект. |
| index | Обязательно. Индекс страницы или вкладки в MultiPage или TabStrip с указанным событием. |
| Button | Обязательно. Целое число, обозначающее кнопку мыши, вызвавшую событие. |
| Shift | Обязательно. Состояние клавиш SHIFT, CTRL и ALT. |
| X, Y | Обязательно. Горизонтальное или вертикальное положение в точках от левого или верхнего края формы, рамки или страницы. |
Параметры
Аргумент Button может принимать следующие значения:
| Константа | Значение | Описание |
|---|---|---|
| fmButtonLeft | 1 | Нажата левая кнопка. |
| fmButtonRight | 2 | Нажата правая кнопка. |
| fmButtonMiddle | 4 | Нажата средняя кнопка. |
Аргумент Shift может принимать следующие значения:
| Значение | Описание |
|---|---|
| 1 | Клавиша SHIFT была нажата. |
| 2 | Клавиша CTRL была нажата. |
| 3 | Клавиши SHIFT и CTRL были нажаты. |
| 4 | Клавиша ALT была нажата. |
| 5 | Клавиши ALT и SHIFT были нажаты. |
| 6 | Клавиши ALT и CTRL были нажаты. |
| 7 | Клавиши ALT, SHIFT и CTRL были нажаты. |
Вы можете индивидуально указать клавиши CTRL, SHIFT или ALT, используя следующие константы:
| Константа | Значение | Описание |
|---|---|---|
| fmShiftMask | 1 | Маска для определения клавиши SHIFT. |
| fmCtrlMask | 2 | Маска для определения клавиши CTRL. |
| fmAltMask | 4 | Маска для определения клавиши ALT. |
Замечания
Для MultiPage событие MouseDown возникает, когда пользователь нажимает кнопку мыши на элемент управления.
Для tabStrip аргумент index определяет вкладку, на которой щелкнул пользователь. Индекс -1 указывает, что пользователь не щелкнул вкладку. Например, если в правом верхнем углу элемента управления нет вкладок, то при щелчке в правом верхнем углу индексу присваивается значение -1.
События MouseDown и MouseUp для формы выполняются, когда пользователь нажимает и отпускает кнопку мыши в пустой области, на указателе записи или полосе прокрутки формы.
События, связанные с мышью, выполняются в следующем порядке:
- MouseDown
- MouseUp
- Click
- DblClick
- MouseUp
Процедуры событий MouseDown и MouseUp содержат действия, выполняющиеся, когда пользователь нажимает или отпускает кнопку мыши. События MouseDown и MouseUp позволяют различать нажатия левой, правой и средней кнопок мыши. Также можно написать код для сочетаний мыши и клавиатуры, использующих модификаторы клавиш SHIFT, CTRL и ALT.
Если в момент нажатия кнопки мыши указатель находится на форме или элементе управления, этот объект "захватывает" мышь и получает все события, связанные с мышью, до события MouseUp включительно. При этом подразумевается, что координаты указателя X и Y, возвращаемые событием, могут не находиться в пределах объекта, получающего их.
Если кнопки мыши нажаты последовательно, объект, захватывающий мышь, последовательно получает все события, пока все кнопки не будут отпущены.
Аргумент Shift используется для определения состояния клавиш SHIFT, CTRL и ALT при выполнении событий MouseDown и MouseUp. Например, если нажаты клавиши CTRL и ALT, аргумент Shift принимает значение 6.
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.