Событие Form.MouseMove (Access)

Статья
04/07/2023

Событие MouseMove возникает, когда пользователь перемещает мышь.

Синтаксис

expression. MouseMove (Кнопка, SHIFT, X, Y)

выражение: переменная, представляющая объект Form.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Button	Обязательный	Integer	Кнопка, которая была нажата или отпущена при активации события. Если необходимо протестировать аргумент Button , в качестве битовых масок можно использовать одну из следующих встроенных констант: acLeftButton Битовая маска для левой кнопки мыши. acRightButton Битовая маска для правой кнопки мыши. acMiddleButton Битовая маска для средней кнопки мыши.
Shift	Обязательный	Integer	Состояние клавиш SHIFT, CTRL и ALT при нажатии или освобождении кнопки, указанной в аргументе Button . Если необходимо протестировать аргумент Shift , можно использовать одну из следующих встроенных констант в качестве битовых масок: acShiftMask Битовая маска для клавиши SHIFT. acCtrlMask Битовая маска для клавиши CTRL. acAltMask Битовая маска для клавиши ALT.
X	Обязательный	Single	Координата x для текущего расположения указателя мыши в твипах.
Да	Обязательный	Single	Координата y для текущего расположения указателя мыши в твипах.

Замечания

Событие MouseMove применяется только к формам, разделам форм и элементам управления в форме, а не к элементам управления в отчете.

Это событие не применяется к метки, присоединенной к другому элементу управления, например метка для текстового поля. Он применяется только к "автономным" меткам. Нажатие и освобождение кнопки мыши в присоединенной метке имеет тот же эффект, что и нажатие и освобождение кнопки в связанном элементе управления. Происходят обычные события для элемента управления; для присоединенной метки не происходит отдельных событий.

Чтобы выполнить макрос или процедуру события при возникновении этих событий, задайте для свойства OnMouseMove имя макроса или [Процедура события].

Событие MouseMove создается постоянно при перемещении указателя мыши на объекты. Если другой объект не создает событие мыши, объект распознает событие MouseMove всякий раз, когда указатель мыши находится в его границах.

Чтобы вызвать событие MouseMove для формы, наведите указатель мыши на пустую область, селектор записей или полосу прокрутки формы. Чтобы вызвать событие MouseMove для раздела формы, наведите указатель мыши на пустую область раздела формы.

Чтобы ответить на событие, вызванное перемещением мыши, используйте событие MouseMove .

Чтобы запустить макрос или процедуру события в ответ на нажатие и освобождение кнопок мыши, используйте события MouseDown и MouseUp .

Пример

В следующем примере определяется расположение мыши и нажата ли левая кнопка мыши и (или) клавиша SHIFT. Координаты x и y положения указателя мыши отображаются в элементе управления label при перемещении мыши.

Private Sub Detail_MouseMove(Button As Integer, _ 
     Shift As Integer, X As Single, Y As Single) 
    Dim intShiftDown As Integer, intLeftButton As Integer 
 
    Me!Coordinates.Caption = X & ", " & Y 
    ' Use bit masks to determine state of 
    ' SHIFT key and left button. 
    intShiftDown = Shift And acShiftMask 
    intLeftButton = Button And acLeftButton 
    ' Check that SHIFT key and left button  
    ' are both pressed. 
    If intShiftDown And intLeftButton > 0 Then 
        MsgBox "Shift key and left mouse button were pressed." 
    End If 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через