會在新的頁面新增至文件之後發生。
語法
表情。頁面新增 (頁面)
詞 一個代表 文件 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Page | 必要 | [IVPAGE] | 新增的頁面。 |
註解
如果您是使用 Microsoft Visual Basic 或 Visual Basic for Applications (VBA)，則本主題中的語法會描述有效處理事件的常用方式。
如果你想建立自己的 事件 物件，可以使用 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 支援與意見反應。