InvisibleApp. MouseUp-Ereignis (Visio)InvisibleApp.MouseUp event (Visio)

Tritt ein, wenn eine Maustaste losgelassen wird.Occurs when a mouse button is released.

SyntaxSyntax

Ausdruck. MouseUp (Schaltfläche, KeyButtonState Eigenschafts, x, y, CancelDefault festlegen)expression.MouseUp (Button, KeyButtonState, x, y, CancelDefault)

Ausdruck Eine Variable, die ein InvisibleApp -Objekt darstellt.expression A variable that represents an InvisibleApp object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
ButtonButton ErforderlichRequired LongLong Die Maustaste, die losgelassen wurde.The mouse button that was released. Mögliche Werte werden in VisKeyButtonFlags deklariert.Possible values are declared in VisKeyButtonFlags.
KeyButtonStateKeyButtonState ErforderlichRequired LongLong Der Zustand der Maus Schaltflächen und der UMSCHALT-und STRG-Taste für das Ereignis.The state of the mouse buttons and the Shift and Ctrl keys for the event. Mögliche Werte können eine Kombination der in VisKeyButtonFlagsdeklarierten Werte sein.Possible values can be a combination of the values declared in VisKeyButtonFlags. Wenn KeyButtonState Eigenschafts beispielsweise 9 zurückgibt, wird angegeben, dass der Benutzer bei gedrückter STRG-Taste auf die linke Maustaste geklickt hat.For example, if KeyButtonState returns 9, it indicates that the user clicked the left mouse button while pressing Ctrl.
xx ErforderlichRequired DoubleDouble Die X-Koordinate des Mauszeigers.The x-coordinate of the mouse pointer.
yy ErforderlichRequired DoubleDouble Die Y-Koordinate des Mauszeigers.The y-coordinate of the mouse pointer.
CancelDefault festlegenCancelDefault ErforderlichRequired BooleanBoolean False, wenn die Meldung von Microsoft Visio verarbeitet werden soll, die das Programm von diesem Ereignis empfängt, andernfalls True.False if Microsoft Visio should process the message it receives from this event; otherwise, True.

BemerkungenRemarks

Wenn Sie CancelDefault auf True festlegen, wird die empfangene Meldung beim Klicken mit der Maustaste nicht von Visio verarbeitet.If you set CancelDefault to True, Visio will not process the message received when the mouse button is clicked.

Im Gegensatz zu anderen Visio-Ereignissen verfügt MouseUp nicht über die Präfix Abfrage, ist jedoch dennoch ein Abfrageereignis.Unlike some other Visio events, MouseUp does not have the prefix Query, but it is nevertheless a query event. Das heißt, Sie können die Verarbeitung der von MouseUpgesendeten Nachricht abbrechen, indem Sie CancelDefault festlegen auf truefestlegen oder, wenn Sie die VisEventProc -Methode verwenden, um das Ereignis zu behandeln, indem Sie truezurückgeben.That is, you can cancel processing the message sent by MouseUp, either by setting CancelDefault to True, or, if you are using the VisEventProc method to handle the event, by returning True. Weitere Informationen finden Sie in den Themen zur VisEventProc-Methode und zu den Abfrageereignissen (z. B. dem QueryCancelSuspend-Ereignis) in dieser Referenz.For more information, see the topics for the VisEventProc method and for any of the query events (for example, the QueryCancelSuspend event) in this reference.

Wenn Sie Microsoft Visual Basic oder Visual Basic für Applikationen (VBA) verwenden, beschreibt die Syntax in diesem Thema eine gängige und effiziente Methode zum Verarbeiten von Ereignissen.If you are using Microsoft Visual Basic or Visual Basic for Applications (VBA), the syntax in this topic describes a common, efficient way to handle events.

Wenn Sie eigene Event -Objekte erstellen möchten, verwenden Sie die Add - oder AddAdvise-Methode.If you want to create your own Event objects, use the Add or AddAdvise method.

Verwenden Sie zum Erstellen eines Event-Objekts, das ein Add-On ausführt, die Add-Methode der EventList-Auflistung.To create an Event object that runs an add-on, use the Add method as it applies to the EventList collection.

Verwenden Sie zum Erstellen eines Event-Objekts, das eine Benachrichtigung empfängt, die AddAdvise-Methode.To create an Event object that receives notification, use the AddAdvise method.

Informationen zum Suchen eines Ereigniscodes für das Ereignis, das Sie erstellen möchten, finden Sie unter Ereigniscodes.To find an event code for the event that you want to create, see Event codes.

BeispielExample

Dieses Klassenmodul zeigt, wie eine Empfängerklasse mit der Bezeichnung MouseListener definiert wird, die von Mausaktionen im aktiven Fenster ausgelöste Ereignisse überwacht.This class module shows how to define a sink class called MouseListener that listens for events fired by mouse actions in the active window. Es deklariert die vsoWindow-Objektvariable unter Verwendung des Schlüsselworts WithEvents.It declares the object variable vsoWindow by using the WithEvents keyword. Das Klassenmodul enthält auch Ereignishandler für die Ereignisse MouseDown, MouseMoveund MouseUp .The class module also contains event handlers for the MouseDown, MouseMove, and MouseUp events.

Um dieses Beispiel auszuführen, fügen Sie ein neues Klassenmodul in das VBA-Projekt ein, nennen Sie es MouseListener, und fügen Sie den folgenden Code in das Modul ein.To run this example, insert a new class module in your VBA project, name it MouseListener, and insert the following code in the 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) 
 
 If Button = 1 Then 
 
 Debug.Print "Left mouse button clicked" 
 
 ElseIf Button = 2 Then 
 
 Debug.Print "Right mouse button clicked" 
 
 ElseIf Button = 16 Then 
 
 Debug.Print "Center mouse button clicked" 
 
 End If 
 
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.Then, insert the following code in the ThisDocument project.

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 MouseUp -Ereignis auszulösen.Save the document to initialize the class, and then click anywhere in the active window to fire a MouseUp event. Im benachbarten Fenster wird durch den Handler der Name der zum Auslösen des Ereignisses betätigten Maustaste angezeigt.In the Immediate window, the handler prints the name of the mouse button that was clicked to fire the event.

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.