Application.QueueMarkerEvent-Methode (Visio)
Nimmt ein MarkerEvent-Ereignis in die Warteschlange auf, das nach allen Ereignissen in der Warteschlange ausgelöst wird.
Syntax
Ausdruck. QueueMarkerEvent (ContextString)
expression Eine Variable, die ein Application-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| ContextString | Erforderlich | String | Eine beliebige Zeichenfolge, die mit dem ausgelösten Ereignis übertragen wird. |
Rückgabewert
Long
Hinweise
Die QueueMarkerEvent-Methode wird zusammen mit dem MarkerEvent-Ereignis eingesetzt, damit ein Automatisierungsclient ein Ereignis in die eigene Warteschlange aufnehmen kann. Durch die QueueMarkerEvent-Methode wird die Anwendung veranlasst, ein MarkerEvent-Ereignis auszulösen, nachdem alle Ereignisse in der eigenen Ereigniswarteschlange ausgelöst wurden.
Die QueueMarkerEvent-Methode gibt die Sequenznummer des auszulösenden MarkerEvent-Ereignisses zurück, und die an die QueueMarkerEvent-Methode übergebene Zeichenfolge (kann leer sein) wird an den MarkerEvent-Ereignishandler übergeben.
Ein Clientprogramm kann mithilfe der Sequenznummer oder der Zeichenfolge die QueueMarkerEvent-Aufrufe den MarkerEvent-Ereignissen zuordnen. Auf diese Weise können Clients Ereignisse, die von ihnen selbst verursacht wurden, von denen unterscheiden, die nicht von ihnen verursacht wurden.
Beispiel
Fügen Sie diesen Beispielcode in das ThisDocument-Objekt ein, und führen Sie dann die UseMarker-Prozedur aus. Die Ausgabe wird im Direktfenster von Microsoft Visual Basic für Applikationen (VBA) angezeigt.
Dim WithEvents vsoApplication As Visio.Application
Private Sub vsoApplication_MarkerEvent(ByVal app As Visio.IVApplication, _
ByVal SequenceNum As Long, ByVal ContextString As String)
Debug.Print "Marker: " & app.EventInfo(0)
End Sub
Private Sub vsoApplication_ShapeAdded(ByVal Shape As Visio.IVShape)
Debug.Print " ShapeAdded: " & Shape.Name
End Sub
Public Sub UseMarker()
Set vsoApplication = ThisDocument.Application
'Marker events can be used to comment a segment
'of events in the queue.
vsoApplication.QueueMarkerEvent "I am starting..."
ActivePage.DrawRectangle 0, 0, 3, 3
vsoApplication.QueueMarkerEvent "I am finished..."
End Sub
Die folgende Ausgabe wird im VBA-Direktfenster angezeigt:
Marker: I am starting...
ShapeAdded: Sheet.1
Marker: I am finished...
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.