Propriété MouseEvent.Button (Visio)

Article
04/07/2023

Renvoie le bouton de la souris qui a été choisi pour déclencher un événement MouseDown ou MouseUp . En lecture seule.

Syntaxe

expression. Bouton

Expression Expression qui renvoie un objet MouseEvent .

Valeur renvoyée

Entier long

Remarques

Les valeurs possibles de la propriété Button peuvent être l’une des constantes déclarées dans l’énumération VisKeyButtonFlags dans la bibliothèque de types Visio.

Exemple

Ce module de classe indique comment définir une classe récepteur appelée MouseListener à l'écoute des événements déclenchés par des actions de souris dans la fenêtre active. Il déclare la variable objet vsoWindow à l'aide du mot clé WithEvents. Le module de classe contient également des gestionnaires d’événements pour les événements MouseDown, MouseMove et MouseUp .

Pour exécuter cet exemple, insérez un nouveau module de classe dans votre projet Microsoft Visual Basic pour Applications (VBA), nommez-le MouseListener et insérez le code suivant dans le module.

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

Ensuite, insérez le code suivant dans le projet 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

Enregistrez le document pour initialiser la classe, puis cliquez n’importe où dans la fenêtre active pour déclencher un événement MouseDown . Dans la fenêtre Exécution, le gestionnaire affiche la valeur représentant le bouton de la souris sur lequel vous avez cliqué pour déclencher l'événement.

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via