Метод InvisibleApp.QueueMarkerEvent (Visio)

Статья
04/07/2023

Ставит в очередь событие MarkerEvent , которое срабатывает после всех других событий, помещенных в очередь.

Синтаксис

expression. QueueMarkerEvent (ContextString)

Выражение Переменная, представляющая объект InvisibleApp .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ContextString	Обязательный	String	Произвольная строка, передаваемая с событием, которое вызывается.

Возвращаемое значение

Длинное целое

Замечания

Метод QueueMarkerEvent работает в сочетании с событием MarkerEvent , что позволяет клиенту автоматизации ставить событие в очередь к себе. Метод QueueMarkerEvent приводит к тому, что приложение запускает событие MarkerEvent после запуска всех событий в очереди событий.

Метод QueueMarkerEvent возвращает порядковый номер срабаемого события MarkerEvent , а строка, переданная методу QueueMarkerEvent (юридически пустая), передается обработчику событий MarkerEvent .

Клиентская программа может использовать порядковый номер или строку для корреляции вызовов QueueMarkerEvent с событиями MarkerEvent . Таким образом, клиент может различать события, которые он вызвал, и события, которые он не вызвал.

Пример

Вставьте этот пример кода в объект ThisDocument и выполните процедуру UseMarker . Выходные данные будут отображаться в окне Интерпретация microsoft Visual Basic для приложений (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

Выходные данные в окне Интерпретация VBA выглядят следующим образом:

Маркер: Я начинаю...

ФигураДобавлено: Лист.1

Маркер: Я закончил...

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.