MouseEvent.x-Eigenschaft (Visio)

  • Artikel

Gibt die X-Koordinate der Position im Microsoft Visio-Fenster zurück, an der ein MouseDown-, MouseMove- oder MouseUp-Ereignis ausgelöst wurde. Schreibgeschützt.

Syntax

Ausdruck. x

Ausdruck Eine Variable, die ein MouseEvent-Objekt darstellt.

Rückgabewert

VisStatCodes

HinwBemerkungeneise

Die x-Eigenschaft gibt einen Wert in internen Zeichnungseinheiten zurück.

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 Ereignishandler für die MouseDown-, MouseMove- und MouseUp-Ereignisse .

Fügen Sie zum Ausführen dieses Beispiels ein neues Klassenmodul in Ihr VBA-Projekt (Microsoft Visual Basic for Applications) 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 "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

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, um ein MouseDown-Ereignis auszulösen . Der Handler druckt im Direktfenster die x- und y-Koordinaten der Position im Koordinatenbereich des Visio-Fensters an der Stelle, auf die Sie mit der Maus geklickt haben.

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.