MouseEvent.KeyButtonState-Eigenschaft (Visio)

Artikel
10/16/2024

Gibt den Zustand der Maustasten und der UMSCHALT- und STRG-TASTE zurück, die einem Mausereignis zugeordnet sind. Schreibgeschützt.

Syntax

Ausdruck. KeyButtonState

Ausdruck Eine Variable, die ein MouseEvent-Objekt darstellt.

Rückgabewert

Long

Hinweise

Mögliche Werte für KeyButtonState können eine Kombination aus einem der in der folgenden Tabelle aufgeführten Werte sein, die in VisKeyButtonFlags in der Visio-Typbibliothek deklariert sind. Wenn KeyButtonState beispielsweise 9 zurückgibt, gibt dies an, dass der Benutzer beim Drücken von STRG auf die linke Maustaste geklickt hat.

Konstante	Wert
visKeyControl	8
visKeyShift	4
visMouseLeft	1
visMouseMiddle	16
visMouseRight	2

Beispiel

Dieses Klassenmodul zeigt, wie eine Empfängerklasse mit der Bezeichnung MouseListener definiert wird, die von Mausaktionen im aktiven Fenster ausgelöste Ereignisse überwacht. Es deklariert die vsoWindow-Objektvariable unter Verwendung des Schlüsselworts WithEvents. Das Klassenmodul enthält auch einen Ereignishandler für das MouseDown-Ereignis, von dem der Status der Maustasten, der STRG-TASTE und der Umschalttaste beim Auslösen des Ereignisses im benachbarten Fenster angezeigt wird.

Fügen Sie zum Ausführen dieses Beispiels ein neues Klassenmodul in Ihr VBA-Projekt ein, nennen Sie es MouseListener, und fügen Sie den folgenden Code in das Modul ein.

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

Fügen Sie dann den folgenden Code in das ThisDocument-Projekt ein.

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

Speichern Sie das Dokument, um die Klasse zu initialisieren, und klicken Sie dann auf eine beliebige Stelle im aktiven Fenster (optional, während Sie UMSCHALT und/oder STRG drücken), um ein MouseDown-Ereignis auszulösen . Im benachbarten Fenster wird durch den Handler der Name der zum Auslösen des Ereignisses betätigten Maustaste angezeigt. Wenn Sie mindestens eine der beiden Tasten betätigt haben, wird auch der Name der betätigten Taste oder Tasten angezeigt.

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über