◆ Explorer.ShowPaneメソッド

現在のフォルダで各画面ウィンドウを表示／非表示にします。

記述例：

現在の画面でナビゲーションウィンドウを表示

Set MyExplorer = Application.ActiveExplorer MyExplorer.ShowPane 4 , True

★現在選択している画面ウィンドウを取得 ★ナビゲーションウィンドウを表示

現在の画面で閲覧ウィンドウが表示されていたら非表示にする

Set MyExplorer = Application.ActiveExplorer If MyExplorer.IsPaneVisible(3) = true then Msgbox "閲覧ウィンドウはセキュリティ上危険です。" MyExplorer.ShowPane 3,False End If

★現在選択している画面ウィンドウを取得 ★現在の画面で閲覧ウィンドウを表示しているなら ★メッセージを表示 ★閲覧ウィンドウを非表示にする

≫≫  Outlookフォーム作成／開発／VBSプログラミング  ≫≫ Outlookオブジェクトモデルから学ぶ