Méthode Application.QueueMarkerEvent (Visio)

Article
04/07/2023

Met en file d'attente un événement MarkerEvent qui se déclenche après tous les autres événements placés en file d'attente.

Syntaxe

expression. QueueMarkerEvent (ContextString)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
ContextString	Requis	String	Chaîne arbitraire transmise avec l'événement déclenché.

Valeur renvoyée

Entier long

Remarques

La méthode QueueMarkerEvent associée à l'événement MarkerEvent permet à un client Automation de mettre un événement dans sa propre file d'attente. La méthode QueueMarkerEvent déclenche un événement MarkerEvent après avoir déclenché tous les événements de la file d'attente.

La méthode QueueMarkerEvent renvoie le numéro séquentiel de l'événement MarkerEvent à déclencher, et la chaîne transmise à la méthode QueueMarkerEvent (normalement vide) est transmise au gestionnaire d'événement MarkerEvent.

Un programme client peut utiliser le numéro séquentiel ou la chaîne pour mettre en relation les appels QueueMarkerEvent et les événements MarkerEvent. Le client peut ainsi faire la distinction entre les événements qu'il a lui-même causés et les autres.

Exemple

Collez cet exemple de code dans l’objet ThisDocument , puis exécutez la procédure UseMarker . Le résultat est affiché dans la fenêtre Exécution de Microsoft Visual Basic pour Applications (VBA).

 
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

Le résultat dans la fenêtre Exécution de VBA se présente de la façon suivante :

Marker: I am starting...

ShapeAdded: Sheet.1

Marker: I am finished...

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via