Compartilhar via

Método Application.QueueMarkerEvent (Visio)

  • Artigo

Enfileira um evento MarkerEvent que é acionado após todos os outros eventos enfileirados.

Sintaxe

expressão. QueueMarkerEvent (ContextString)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
ContextString Obrigatório String Uma sequência de caracteres arbitrária que é passada com o evento que é acionado.

Valor de retorno

Long

Comentários

O método QueueMarkerEvent funciona em conjunto com o evento MarkerEvent para permitir que um cliente Automation coloque um evento na fila para si mesmo. O método QueueMarkerEvent faz o aplicativo acionar um evento MarkerEvent depois de ter acionado todos os eventos na fila de eventos.

O método QueueMarkerEvent retorna o número da sequência do evento MarkerEvent a ser acionado, e a sequência de caracteres passada para o método QueueMarkerEvent (legalmente vazio) é passada para o manipulador de eventos de MarkerEvent.

Um programa cliente pode usar o número da sequência ou a sequência de caracteres para correlacionar as chamadas de QueueMarkerEvent com os eventos de MarkerEvent. Dessa maneira, o cliente consegue distinguir os eventos que causou e os eventos que não causou.

Exemplo

Cole este código de exemplo no objeto ThisDocument e execute o procedimento UseMarker . A saída será exibida na janela Immediate do Microsoft Visual Basic for 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

A saída na janela Immediate do VBA terá a seguinte aparência:

Marcador: estou começando...

ShapeAdded: Sheet.1

Marcador: terminei...

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.