Propriedade Application.IsUndoingOrRedoing (Visio)

Determina se o processador de eventos atual está a ser chamado como resultado de uma ação Anular ou Refazer na aplicação. Somente leitura.

Sintaxe

expressão. IsUndoingOrRedoing

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

Valor de retorno

Booliano

Comentários

A propriedade IsUndoingOrRedoing retorna True quando o aplicativo está acionando eventos relacionados a uma ação Undo ou Redo que foi iniciada pelo usuário na interface do usuário ou por um cliente de Automação que chamou o método Undo ou Redo de um objeto Application.

Quando a aplicação chama um processador de eventos, o evento tem uma "causa". Se essa causa for uma ação do utilizador ou outro processador de eventos, é legítimo realizar ações anuláveis durante o processamento desse evento. Entretanto, se a causa do acionamento do evento for uma ação Undo ou Redo, o manipulador de eventos não deverá executar ações que possam ser desfeitas. Isso elimina a capacidade de refazer uma ação.

Normalmente, você só executará ações que possam ser desfeitas dentro de um manipulador de eventos quando o valor dessa propriedade for False. É possível executar ações que possam ser desfeitas quando o sinalizador é True, mas a fila que permite refazer ações é destruída.

Exemplo

Este exemplo adiciona uma forma a um desenho e depois verifica se a forma foi adicionada como resultado de uma ação Undo ou Redo.

 
Public Sub IsUndoingOrRedoing_Example() 
 
Dim vsoShape As Visio.Shape 
 
 'Draw a shape to trigger the ShapeAdded event 
 Set vsoShape = ActivePage.DrawRectangle(1,2,2,1) 
 
End Sub

 
Sub Document_ShapeAdded(ByVal Shape As IVShape) 
 
 If Not Application.IsUndoingOrRedoing Then 
 
 Debug.Print "Shape was added by new action." 
 
 End If 
 
End Sub

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.