Application.IsUndoingOrRedoing-Eigenschaft (Visio)

Bestimmt, ob der aktuelle Ereignishandler als Ergebnis einer Rückgängig - oder Wiederholen-Aktion in der Anwendung aufgerufen wird. Schreibgeschützt.

Syntax

Ausdruck. IsUndoingOrRedoing

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Boolesch

Bemerkungen

Die IsUndoingOrRedoing-Eigenschaft gibt True zurück, wenn die Anwendung Ereignisse auslöst, die einer Undo- oder Redo-Aktion zugeordnet sind. Dies ist unabhängig davon, ob die Aktion durch den Benutzer über die Benutzeroberfläche oder durch einen Automatisierungsclient durch Aufrufen der Undo- bzw. Redo-Methode eines Application-Objekts initiiert wurde.

Wenn die Anwendung einen Ereignishandler aufruft, hat das Ereignis eine "Ursache". Wenn diese Ursache eine Benutzeraktion oder ein anderer Ereignishandler ist, ist es legitim, während der Behandlung dieses Ereignisses nicht rückgängig zu machende Aktionen auszuführen. Wenn der Grund für das Auslösen des Ereignisses jedoch eine Undo- oder Redo-Aktion ist, sollte der Ereignishandler keine Aktionen ausführen, die nicht rückgängig gemacht werden können. Andernfalls geht die Möglichkeit verloren, eine Aktion wiederherzustellen.

Rückgängig zu machende Aktionen werden normalerweise nur dann innerhalb eines Ereignishandlers ausgeführt, wenn der Wert dieser Eigenschaft False lautet. Sie können Aktionen, die rückgängig gemacht werden können, ausführen, wenn das Flag True lautet, aber hierdurch wird die Wiederherstellungswarteschlange zerstört.

Beispiel

In diesem Beispiel wird einer Zeichnung ein Shape hinzugefügt, und anschließend wird geprüft, ob das Shape aufgrund einer Undo- oder einer Redo-Aktion hinzugefügt wurde.

 
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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.