Метод Application. Аддундаунит (Visio)Application.AddUndoUnit method (Visio)

Добавляет объект, который поддерживает интерфейс иолеундаунит или IVBUndoUnit , в очередь отмены Microsoft Visio.Adds an object that supports the IOleUndoUnit or IVBUndoUnit interface to the Microsoft Visio undo queue.

СинтаксисSyntax

Expression. Аддундаунит (пундаунит)expression.AddUndoUnit (pUndoUnit)

выражение: переменная, представляющая объект Application.expression A variable that represents an Application object.

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
пундаунитpUndoUnit ОбязательнаRequired НАЙДЕН[UNKNOWN] Ссылка на объект, который поддерживает интерфейс иолеундаунит или IVBUndoUnit .A reference to an object that supports the IOleUndoUnit or IVBUndoUnit interface.

Возвращаемое значениеReturn value

ОтсутствуетNothing

ПримечанияRemarks

Сведения о реализации интерфейса иолеундаунит в объекте можно найти в пакете SDK для платформы Майкрософт.For information about implementing the IOleUndoUnit interface on your object, see the Microsoft Platform SDK. Сведения о внедрении интерфейса IVBUndoUnit : Разработка решений Microsoft Visio.For information about implementing the IVBUndoUnit interface, see Developing Microsoft Visio Solutions.

ПримерExample

В следующей процедуре показано, как с помощью метода аддундаунит добавить объект в очередь отмены Visio.The following procedure shows how to use the AddUndoUnit method to add an object to the Visio undo queue. Когда фигура добавляется в активный документ, процедура проверяет, был ли он добавлен в результате действий отмены или возврата, а если нет, то добавляется блок отмены.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.

Эта процедура является членом класса клспартиЦипатеинундо, который определен в одном из двух связанных модулей класса в библиотеке примеров кода в Visio SDK и не предназначен для независимого выполнения.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. (Другой модуль класса определяет класс клсвбундаунитс.) Дополнительные сведения об этих модулях классов можно найти в 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 and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.