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

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

Синтаксис

выражение. MouseMove (кнопка, SHIFT, X, Y)

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

Параметры

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

Примечания

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

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

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

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

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

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

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

Пример

В следующем примере определяется расположение мыши и нажата ли левая кнопка мыши и/или клавиша Shift. Координаты X и Y положения указателя мыши отображаются в элементе управления метками при перемещении мыши.

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 и обратная связь.