通过

Application.PageAdded 事件 (Visio)

  • 项目

在将新页面添加到文档之后，发生此事件。

语法

表达式。PageAdded (Page)

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
Page 必需 [IVPAGE] 已添加的页。

备注

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

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

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

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

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

示例

以下示例说明如何创建类模块来处理由 Microsoft Visio 中的源对象（如 Document 对象）触发的事件。 该模块包含 VisEventProc 函数，它使用 Select Case 块查找三个事件：DocumentSaved、PageAdded 和 ShapesDeleted。 其他事件属于默认情况 (Case Else)。 每个 Case 块构造一个字符串 ( strMessage ) ，其中包含触发的事件的名称和事件代码。 最后，该函数在“立即”窗口中显示这一字符串。

将这段示例代码复制到 VBA 或 Visual Basic 中新的类模块中，并将该模块命名为 clsEventSink。 之后，您就能使用事件接收模块创建 clsEventSink 类的实例，以及向类实例发送事件触发通知的 Event 对象。 要查看如何创建事件接收模块，请参阅 AddAdvise 方法的示例。

 
Implements Visio.IVisEventProc 
 
'Declare visEvtAdd as a 2-byte value 
'to avoid a run-time overflow error 
Private Const visEvtAdd% = &H8000 
 
Private Function IVisEventProc_VisEventProc( _ 
 ByVal nEventCode As Integer, _ 
 ByVal pSourceObj As Object, _ 
 ByVal nEventID As Long, _ 
 ByVal nEventSeqNum As Long, _ 
 ByVal pSubjectObj As Object, _ 
 ByVal vMoreInfo As Variant) As Variant 
 
 Dim strMessage As String 
 
 'Find out which event fired 
 Select Case nEventCode 
 Case visEvtCodeDocSave 
 strMessage = "DocumentSaved (" & nEventCode & ")" 
 Case (visEvtPage + visEvtAdd) 
 strMessage = "PageAdded (" & nEventCode & ")" 
 Case visEvtCodeShapeDelete 
 strMessage = "ShapesDeleted(" & nEventCode & ")" 
 Case Else 
 strMessage = "Other (" & nEventCode & ")" 
 End Select 
 
 'Display the event name and the event code 
 Debug.Print strMessage 
 
End Function

支持和反馈

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