ViewSwitch 事件

当浏览器中的视图更改时发生，可以是用户操作或程序代码的结果。该事件在 VBScript 中不可用。

object  该表达式的值为 Explorer 对象。

示例

本示例在用户切换到“邮件自动预览”视图时隐藏浏览窗格（如果该窗格是可见的）。示例代码必须放在类模块中，并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler 例程。

Dim myolapp As New Outlook.Application
Dim WithEvents myOlExpl As Outlook.Explorer

Sub Initialize_handler()
    Set myOlExpl = myolapp.ActiveExplorer
End Sub

Private Sub myOlExpl_ViewSwitch()
    If myOlExpl.CurrentView = "Messages with AutoPreview" And myOlExpl.IsPaneVisible(olPreview) = True Then
        myOlExpl.ShowPane olPreview, False
    End If
End Sub