Propiedad MouseEvent.Button (Visio)

Devuelve el botón del mouse que se eligió para desencadenar un evento MouseDown o MouseUp . Solo lectura.

Sintaxis

expresión. Botón

expresión Expresión que devuelve un objeto MouseEvent .

Valor devuelto

Long

Observaciones

Los valores posibles para la propiedad Button pueden ser cualquiera de las constantes declaradas en la enumeración VisKeyButtonFlags de la biblioteca de tipos de Visio.

Ejemplo

Este módulo de clase muestra cómo definir una clase de receptor denominada MouseListener que escucha eventos desencadenados por acciones del mouse en la ventana activa. Declara la variable de objeto vsoWindow mediante la palabra clave WithEvents. El módulo de clase también contiene controladores de eventos para los eventos MouseDown, MouseMove y MouseUp .

Para ejecutar este ejemplo, inserte un nuevo módulo de clase en el proyecto de Microsoft Visual Basic para Aplicaciones (VBA), asígnele el nombre MouseListener e inserte el código siguiente en el 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

A continuación, inserte el código siguiente en el proyecto 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

Guarde el documento para inicializar la clase y, a continuación, haga clic en cualquier lugar de la ventana activa para desencadenar un evento MouseDown . En la ventana Inmediato, el controlador imprime el nombre del botón del mouse en el que se ha hecho clic para desencadenar el evento.

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.