Evento Section.MouseMove (Access)

O evento MouseMove ocorre quando o usuário move o mouse.

Sintaxe

expressão. MouseMove (Botão, Turno, X, Y)

Expressão Uma variável que representa um objeto Section .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Button	Obrigatório	Integer	O botão que foi pressionado ou liberado para disparar o evento. Se você precisar testar o argumento Botão , poderá usar uma das seguintes constantes intrínsecas como máscaras de bit: acLeftButton A máscara de bits para o botão esquerdo do mouse. acRightButton A máscara de bits para o botão direito do mouse. acMiddleButton A máscara de bits para o botão do meio do mouse.
Shift	Obrigatório	Integer	O estado das teclas Shift, Ctrl e Alt quando o botão especificado pelo argumento Button foi pressionado ou liberado. Se você precisar testar o argumento Shift , poderá usar uma das seguintes constantes intrínsecas como máscaras de bit: acShiftMask A máscara de bit para a chave Shift. acCtrlMask A máscara de bit para a chave Ctrl. acAltMask A máscara de bit para a tecla Alt.
X	Obrigatório	Single	A coordenada x para o local atual do ponteiro do mouse, em twips.
Y	Obrigatório	Single	A coordenada y para o local atual do ponteiro do mouse, em twips.

Comentários

O evento MouseMove aplica-se apenas a formulários, seções de formulário e controles em um formulário e não a controles em um relatório.

Esse evento não se aplica a um rótulo anexado a outro controle, como o rótulo de uma caixa de texto. Ele se aplica somente a rótulos "independentes". Pressionar e liberar um botão do mouse em um rótulo anexado tem o mesmo efeito de pressionar e liberar o botão no controle associado. Ocorrem os eventos normais para o controle; nenhum evento separado ocorre para o rótulo anexado.

Para executar um macro ou procedimento de evento quando esses eventos ocorrerem, defina a propriedade OnMouseMove com o nome da macro ou como [procedimento do evento].

O evento MouseMove é gerado continuamente como o ponteiro do mouse é movido sobre os objetos. A menos que outro objeto gera um evento de mouse, um objeto reconhece um evento MouseMove sempre que o ponteiro do mouse estiver posicionado dentro de suas bordas.

Para fazer com que um evento MouseMove para um formulário ocorra, mova o ponteiro do mouse sobre uma área em branco, o seletor de registro ou barra de rolagem no formulário. Para fazer com que um evento MouseMove para uma seção de formulário ocorra, mova o ponteiro do mouse sobre uma área em branco da seção do formulário.

Para responder a um evento gerado pela movimentação do mouse, utilize um evento MouseMove.

Para executar um macro ou procedimento de evento em resposta ao pressionamento e liberação dos botões do mouse, você deve usar os eventos MouseDown e MouseUp.

Exemplo

O exemplo a seguir determina onde o mouse está e se o botão esquerdo do mouse e/ou a tecla Shift são pressionados. As coordenadas x e y para o ponteiro do mouse são exibidas em um controle de rótulo à medida que você move o mouse.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.