Compartilhar via

Evento Page.MouseDown (Access)

  • Artigo

O evento MouseDown ocorre quando o usuário pressiona um botão do mouse.

Sintaxe

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

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Button Obrigatório Integer O botão que foi pressionado 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 MouseDown se aplica 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 OnMouseDown com o nome da macro ou como [procedimento do evento].

Use um evento MouseDown para especificar o que acontece quando um botão específico do mouse é pressionado ou liberado. Ao contrário os eventos de clique e DblClick, o evento MouseDown permite distinguir entre os botões esquerdo, direito e do meio do mouse. Você também pode escrever código para combinações de mouse-teclado que usam as teclas Shift, Ctrl e Alt.

Para fazer com que um evento MouseDown para um formulário ocorra, pressione o botão do mouse em uma área vazia ou o seletor de registro no formulário. Para fazer com que um evento MouseDown para uma seção de formulário ocorra, pressione o botão do mouse em uma área em branco da seção do formulário.

O exemplo a seguir se aplicam a eventos MouseDown:

  • Se um botão do mouse é pressionado enquanto o ponteiro está sobre um formulário ou controle, esse objeto receberá todos os eventos de mouse até e incluindo o último evento MouseUp.

  • Se os botões do mouse forem pressionados sucessivamente, o objeto que receber os eventos do mouse após o primeiro pressionamento receberá todos os eventos de mouse até todos os botões estarem liberados.

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

Exemplo

O exemplo a seguir mostra como você pode descobrir qual botão do mouse causou um evento MouseDown .

Para testar o exemplo, adicione o procedimento de evento a seguir a um formulário.

Private Sub Form_MouseDown(Button As Integer, _ 
         Shift As Integer, X As Single, _ 
         Y As Single) 
    If Button = acLeftButton Then 
        MsgBox "You pressed the left button." 
    End If 
    If Button = acRightButton Then 
        MsgBox "You pressed the right button." 
    End If 
    If Button = acMiddleButton Then 
        MsgBox "You pressed the middle button." 
    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.