Compartilhar via

Propriedade MouseEvent.Button (Visio)

  • Artigo

Retorna o botão do mouse escolhido para disparar um evento MouseDown ou MouseUp . Somente leitura.

Sintaxe

expressão. Botão

Expressão Uma expressão que retorna um objeto MouseEvent .

Valor de retorno

Long

Comentários

Os valores possíveis para a propriedade Button podem ser qualquer uma das constantes declaradas na enumeração VisKeyButtonFlags na biblioteca de tipos do Visio.

Exemplo

Esse módulo de classe mostra como definir uma classe de coletor chamada MouseListener que escuta eventos disparados por ações do mouse na janela ativa. Ele declara a variável do objeto vsoWindow usando a palavra-chave WithEvents. O módulo de classe também contém manipuladores de eventos para os eventos MouseDown, MouseMove e MouseUp .

Para executar este exemplo, insira um novo módulo de classe no projeto do Microsoft Visual Basic for Applications (VBA), nomeie-o MouseListener e insira o código a seguir no módulo.

Dim WithEvents vsoWindow As Window 
 
Private Sub Class_Initialize() 
 
 Set vsoWindow = ActiveWindow 
 
End Sub 
 
Private Sub Class_Terminate() 
 
 Set vsoWindow = Nothing 
 
End Sub 
 
Private Sub vsoWindow_MouseDown(ByVal Button As Long, ByVal KeyButtonState As Long, ByVal x As Double, ByVal y As Double, CancelDefault As Boolean) 
 
 Debug.Print "Button is: "; Button 
 
End Sub 
 
Private Sub vsoWindow_MouseMove(ByVal Button As Long, ByVal KeyButtonState As Long, ByVal x As Double, ByVal y As Double, CancelDefault As Boolean) 
 
 Debug.Print "x-position is "; x 
 Debug.Print "y-position is "; y 
 
End Sub 
 
Private Sub vsoWindow_MouseUp(ByVal Button As Long, ByVal KeyButtonState As Long, ByVal x As Double, ByVal y As Double, CancelDefault As Boolean) 
 
 If Button = 1 Then 
 
 Debug.Print "Left mouse button released" 
 
 ElseIf Button = 2 Then 
 
 Debug.Print "Right mouse button released" 
 
 ElseIf Button = 16 Then 
 
 Debug.Print "Center mouse button released" 
 
 End If 
 
End Sub

Em seguida, insira o código a seguir no projeto ThisDocument .

Dim myMouseListener As MouseListener 
 
Private Sub Document_DocumentSaved(ByVal doc As IVDocument) 
 
 Set myMouseListener = New MouseListener 
 
End Sub 
 
Private Sub Document_BeforeDocumentClose(ByVal doc As IVDocument) 
 
 Set myMouseListener = Nothing 
 
End Sub

Salve o documento para inicializar a classe e clique em qualquer lugar na janela ativa para disparar um evento MouseDown . Na janela Imediato, o manipulador imprimirá o valor que representa o botão do mouse que foi clicado para disparar o evento.

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.