Propriété MouseEvent.x (Visio)

Article
04/07/2023

Renvoie la coordonnée x de l’emplacement dans la fenêtre Microsoft Visio où un événement MouseDown, MouseMove ou MouseUp s’est déclenché. En lecture seule.

Syntaxe

expression. x

Expression Variable qui représente un objet MouseEvent .

Valeur renvoyée

VisStatCodes

Remarques

La propriété x retourne une valeur en unités de dessin internes.

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 Visio.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 "x is: "; x 
 Debug.Print "y is: "; y 
 
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 les coordonnées x et y de l'emplacement de l'espace coordonné de la fenêtre Visio dans lequel vous avez cliqué à l'aide de la souris.

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