共用方式為

Explorer.BeforeViewSwitch 事件 (Outlook)

  • 發行項

因為使用者動作或透過程式碼的關係，此事件會在瀏覽器變更到新的檢視之前發生。

語法

expression。 BeforeViewSwitch( _NewView_ , _Cancel_ )

表達 代表 Explorer 物件的 變數。

參數

名稱 必要/選用 資料類型 描述
NewView 必要 Variant 瀏覽器要切換的檢視名稱。
Cancel 必要 布林值 False 事件發生時。 如果事件程序將此引數設定為 True，則會取消切換而且不會變更目前檢視。

註解

Microsoft Visual Basic Scripting Edition (VBScript) 中沒有這個事件。

範例

這個 Microsoft Visual Basic for Applications (VBA) 範例會確認使用者想要切換檢視，如果使用者選擇 [否]，則會取消切換。 範例程式碼必須放在類別模組中，而且 Initialize_handler 必須先呼叫常式，Microsoft Outlook 才能呼叫事件程序。

Public WithEvents myOlExp As Outlook.Explorer 
 
 
 
Public Sub Initialize_handler() 
 
 Set myOlExp = Application.ActiveExplorer 
 
End Sub 
 
 
 
Private Sub myOlExp_BeforeViewSwitch(ByVal NewView As Variant, Cancel As Boolean) 
 
 Dim Prompt As String 
 
 
 
 Prompt = "Are you sure you want to switch to the " & NewView & " view?" 
 
 If MsgBox(Prompt, vbYesNo + vbQuestion) = vbNo Then Cancel = True 
 
End Sub

另請參閱

Explorer 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。