当浏览器切换到新视图时发生,可以是用户操作或程序代码的结果。该事件在 VBScript 中不可用。
Sub object_BeforeViewSwitch(ByVal NewView As String, Cancel As Boolean)
object 该表达式的值为 Explorer 对象。
NewView 必选。浏览器要切换到的视图名称。
Cancel 可选。当事件发生时为 False。如果事件过程将该参数设置为 True,则取消切换,并且不更改当前视图。
本示例确认用户是否要切换视图,并在用户回答“否”时取消切换。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler
例程。
Dim myOlApp As Outlook.Application
Public WithEvents myOlExp As Outlook.Explorer
Public Sub Initialize_handler()
Set myOlExp = myOlApp.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