Propriedade Application.IsUndoingOrRedoing (Visio)

  • Artigo

Determina se o manipulador de eventos atual está sendo chamado como resultado de uma ação Desfazer ou Refazer no aplicativo. 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 o aplicativo chama um manipulador de eventos, o evento tem uma "causa". Se essa causa for uma ação do usuário ou outro manipulador de eventos, é legítimo executar ações desfazíveis durante o tratamento 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.