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

Rückgabewert

Long

HinwBemerkungeneise

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.