Propriété MouseEvent.KeyButtonState (Visio)

Article
04/07/2023

Retourne l’état des boutons de la souris et les touches Maj et Ctrl associées à un événement de souris. En lecture seule.

Syntaxe

expression. KeyButtonState

Expression Variable qui représente un objet MouseEvent .

Valeur renvoyée

Entier long

Remarques

Les valeurs possibles pour KeyButtonState peuvent être une combinaison de l’une des valeurs affichées dans le tableau suivant, qui sont déclarées dans VisKeyButtonFlags dans la bibliothèque de types Visio. Par exemple, si KeyButtonState renvoie la valeur 9, cela indique que l’utilisateur a cliqué sur le bouton gauche de la souris tout en appuyant sur Ctrl.

Constante	Valeur
visKeyControl	8
visKeyShift	4
visMouseLeft	1
visMouseMiddle	16
visMouseRight	2

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 un gestionnaire d'événement pour l'événement MouseDown qui affiche dans la fenêtre Exécution l'état des boutons de souris et des touches MAJ et CTRL lorsque l'événement s'est déclenché.

Pour exécuter cet exemple, insérez un nouveau module de classe dans votre projet 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 "KeyButtonState is"; KeyButtonState 
 
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 (éventuellement, tout en appuyant sur Maj et/ou Ctrl) pour déclencher un événement MouseDown . Dans la fenêtre Exécution, le gestionnaire affiche le nom du bouton de la souris sur lequel vous avez cliqué pour déclencher l'événement. Si vous appuyez sur une des touches ou sur les deux en même temps, le nom des touches sur lesquelles vous avez appuyé s'affiche également.

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