Application.PageAdded 事件 (Visio)

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

语法

表达式PageAdded (Page)

expression:表示 Application 对象的变量。

参数

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

备注

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

如果要创建自己的 Event 对象,请使用 AddAddAdvise 方法。

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

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

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

示例

以下示例说明如何创建类模块来处理由 Microsoft Visio 中的源对象(如 Document 对象)触发的事件。 该模块包含 VisEventProc 函数,它使用 Select Case 块查找三个事件:DocumentSavedPageAddedShapesDeleted。 其他事件属于默认情况 (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 支持和反馈,获取有关如何接收支持和提供反馈的指南。