InvisibleApp. AddUndoUnit-Methode (Visio)InvisibleApp.AddUndoUnit method (Visio)

Fügt ein Objekt hinzu, das die IOleUndoUnit -oder IVBUndoUnit -Schnittstelle zur Microsoft Visio Rückgängig-Warteschlange unterstützt.Adds an object that supports the IOleUndoUnit or IVBUndoUnit interface to the Microsoft Visio undo queue.

SyntaxSyntax

Ausdruck. AddUndoUnit (pUndoUnit)expression.AddUndoUnit (pUndoUnit)

Ausdruck Eine Variable, die ein InvisibleApp -Objekt darstellt.expression A variable that represents an InvisibleApp object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
pUndoUnitpUndoUnit ErforderlichRequired Unbekannt[UNKNOWN] Ein Verweis auf ein Objekt, das die IOleUndoUnit- oder die IVBUndoUnit-Schnittstelle unterstützt.A reference to an object that supports the IOleUndoUnit or IVBUndoUnit interface.

RückgabewertReturn value

clsVBUndoUnitsclsVBUndoUnits

BemerkungenRemarks

Informationen zum Implementieren der IOleUndoUnit -Schnittstelle für Ihr Objekt finden Sie im Microsoft Platform SDK.For information about implementing the IOleUndoUnit interface on your object, see the Microsoft Platform SDK. Informationen zum Implementieren der IVBUndoUnit -Schnittstelle finden Sie unter Developing Microsoft Visio Solutions.For information about implementing the IVBUndoUnit interface, see Developing Microsoft Visio Solutions.

BeispielExample

Im folgenden Verfahren wird gezeigt, wie Sie mithilfe der AddUndoUnit -Methode der Visio-Rückgängig-Warteschlange ein Objekt hinzufügen.The following procedure shows how to use the AddUndoUnit method to add an object to the Visio undo queue. Wenn dem aktiven Dokument eine Form hinzugefügt wird, überprüft die Prozedur, ob Sie als Ergebnis einer Undo-oder Redo-Aktion hinzugefügt wurde, und wenn dies nicht der Fall ist, wird eine Rückgängig-Einheit hinzugefügt.When a shape is added to the active document, the procedure checks to see if it was added as a result of an undo or redo action, and if not, it adds an Undo unit.

Diese Prozedur ist ein Element der clsParticipateInUndo-Klasse, die in einer von zwei verwandten Klassenmodulen in der Codebeispielbibliothek im Visio SDK definiert wird und nicht unabhängig ausgeführt werden soll.This procedure is a member of class clsParticipateInUndo, which is defined in one of two related class modules in the Code Samples Library in the Visio SDK, and is not intended to be run independently. (Das andere Klassenmodul definiert die Klasse clsVBUndoUnits.) Weitere Informationen zu diesen Klassenmodulen finden Sie im Visio SDK.(The other class module defines class clsVBUndoUnits.) For more information about these class modules, see the Visio SDK.

 
Private Sub mvsoDocument_ShapeAdded(ByVal vsoShape As IVShape) 
 
 Dim VBUndoUnit As clsVBUndoUnits 
 
 On Error GoTo mvsoDocument_ShapeAdded_Err 
 
 If Not (mvsoApplication Is Nothing) Then 
 
 If Not msvoApplication.IsUndoingOrRedoing Then 
 
 'Increment the count of undoable actions. 
 IncrementModuleVar 
 Debug.Print "Original Do: GetModuleVar = " & GetModuleVar 
 
 'Instantiate clsVBUndoUnit, a 
 'class that implements Visio.IVBUndoUnit. 
 Set VBUndoUnit = New clsVBUndoUnits 
 
 'Pass the current instance of the class 
 'of which this procedure is a member, 
 'clsParticipateInUndo, to the Undo unit. 
 VBUndoUnit.SetModelObject Me 
 
 'Add an Undo unit. 
 mvsoApplication.AddUndoUnit VBUndoUnit 
 
 End If 
 
 End If 
 
Exit Sub 
 
mvsoDocument_ShapeAdded_Err: 
 
 MsgBox Err.Description 
 
End Sub

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.