Visio) (Document.DocumentSaved 事件

儲存文件之後發生。

語法

運算式。DocumentSaved (檔)

表達 代表 Document 物件的變數。

參數

名稱	必要/選用	資料類型	描述
doc	必要	[IVDOCUMENT]	已儲存的文件。

註解

如果您是使用 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 支援與意見反應。