Explorer.BeforeViewSwitch イベント (Outlook)

ユーザーの操作またはプログラムのコードによってエクスプローラーが新しいビューに切り替わる前に発生します。

構文

expression. BeforeViewSwitch( _NewView_ , _Cancel_ )

式Explorer オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
NewView	必須	バリアント型 (Variant)	エクスプローラーが切り替える新しいビューの名前です。
Cancel	必須	Boolean	False イベントが発生します。 イベント プロシージャでこの引数に True を設定する場合は、スイッチがキャンセルされ、現在のビューは変更されません。

注釈

このイベントは Microsoft Visual Basic Scripting Edition (VBScript) では使用できません。

例

この Microsoft Visual Basic for Applications (VBA) の例では、ユーザーがビューを切り替えたいことを確認し、ユーザーが [いいえ] と答えた場合に切り替えを取り消します。 サンプル コードをクラス モジュールに配置する必要があり、 Microsoft Outlookでは、イベント プロシージャを呼び出すことができます前に、 Initialize_handlerルーチンを呼び出す必要があります。

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 のサポートおよびフィードバックを参照してください。