Application.ExitScope 事件 (Visio)

当内部命令结束时或自动化客户端使用 EndUndoScope 方法退出范围时排队。

语法

表达式。ExitScope (应用、 nScopeID、 bstrDescription、 bErrOrCancelled)

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
应用程序	必需	[IVAPPLICATION]	包含范围的 Microsoft Visio 实例。
nScopeID	必需	Long	描述刚刚结束的操作或 BeginUndoScope 方法返回的范围 ID 的独立于语言的数字。
bstrDescription	必需	字符串	在不同语言版本中会有所不同的操作的文本说明。 包含 Visio 操作的用户界面说明，或传递给 BeginUndoScope 方法的说明。
bErrOrCancelled	必需	Boolean	如果在范围中出现错误或取消了范围，则为 True；如果未出现错误且范围也未被取消，则为 False。

备注

在 Visio 操作的情况下返回的 nScopeID 值等效于以 visCmd* 开头的与命令相关的常量。

如果您使用 Microsoft Visual Basic 或 Visual Basic for Applications (VBA)，则此主题中的语法描述的是一种通用而有效的事件处理方法。

如果要创建自己的 Event 对象，请使用 Add 或 AddAdvise 方法。

若要创建可运行加载项的 Event 对象，请使用 Add 方法，因为它适用于 EventList 集合。

若要创建可接收通知的 Event 对象，请使用 AddAdvise 方法。

若要查找要创建的事件的事件代码，请参阅事件代码。

如果正在处理此事件，该程序通过 AddAdvise 方法创建的连接接收通知，则 ExitScope 事件是一组所选事件之一，这些事件在 Application 对象的 EventInfo 属性中记录额外信息。

如上所述，EventInfo 属性返回 bstrDescription。 此外，VisEventProc 的 varMoreInfo 参数包含格式如下的字符串：[<nScopeID>;<bErrOrCancelled>;<bstrDescription>;<nHwndContext>]，其中 nHwndContext 是作为命令上下文的窗口 (HWND) 窗口的窗口句柄;nHwndContext 可以为 0。

对于 ExitScope，如果操作失败或被取消，则 bErrOrCancelled 将不会为零。

示例

此示例示范如何使用 ExitScope 事件。 该示例确定对处理 CellChanged 事件的过程的调用是否在特定范围内;即是否在该范围的 EnterScope 和 ExitScope 事件之间发生调用。

 
Private WithEvents vsoApplication As Visio.Application 
Private lngScopeID AsLong 
 
Public Sub Scope_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 'Set the module-level application variable to 
 'trap application-level events. 
 Set vsoApplication = Application 
 
 'Begin a scope. 
 lngScopeID = Application.BeginUndoScope("Draw Shapes") 
 
 'Draw three shapes. 
 Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1) 
 ActivePage.DrawOval 3, 4, 4, 3 
 ActivePage.DrawLine 4, 5, 5, 4 
 
 'Change a cell (to trigger a CellChanged event). 
 vsoShape.Cells("Width").Formula = 5 
 
 'End and commit this scope. 
 Application.EndUndoScope lngScopeID, True 
 
End Sub 
 
Private Sub vsoApplication_CellChanged(ByVal Cell As IVCell) 
 
 'Check to see if this cell change is the result of something 
 'happening within the scope. 
 If vsoApplication.IsInScope(lngScopeID) Then 
 Debug.Print Cell.Name & " changed in scope "; lngScopeID 
 End If 
 
End Sub 
 
Private Sub vsoApplication_EnterScope(ByVal app As IVApplication, _ 
 ByVal nScopeID As Long, _ 
 ByVal bstrDescription As String) 
 
 If vsoApplication.CurrentScope = lngScopeID Then 
 Debug.Print "Entering my scope " & nScopeID 
 Else 
 Debug.Print "Enter Scope " & bstrDescription & "(" & nScopeID & ")" 
 End If 
 
End Sub 
 
Private Sub vsoApplication_ExitScope(ByVal app As IVApplication, _ 
 ByVal nScopeID As Long, _ 
 ByVal bstrDescription As String, _ 
 ByVal bErrOrCancelled As Boolean) 
 
 If vsoApplication.CurrentScope = lngScopeID Then 
 Debug.Print "Exiting my scope " & nScopeID 
 Else 
 Debug.Print "Exit Scope " & bstrDescription & "(" & nScopeID & ")" 
 End If 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。