Метод Application.QueueMarkerEvent (Visio)
Ставит в очередь событие MarkerEvent , которое срабатывает после всех других событий, помещенных в очередь.
Синтаксис
expression. QueueMarkerEvent (ContextString)
выражение: переменная, представляющая объект Application.
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
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 и обратная связь.