Событие Explorer.BeforeViewSwitch (Outlook)

Статья
04/07/2023

Происходит до того, как обозреватель изменится на новое представление в результате действия пользователя или с помощью программного кода.

Синтаксис

выражение. BeforeViewSwitch( _NewView_ , _Cancel_ )

Выражение Переменная, представляющая объект Explorer .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
NewView	Обязательный	Variant	Имя представления, на который переключается обозреватель.
Отмена	Обязательный	Boolean	Значение false при возникновении события. Если процедура события задает этому аргументу значение True, параметр отменяется, а текущее представление не изменяется.

Замечания

Это событие недоступно в Microsoft Visual Basic Scripting Edition (VBScript).

Пример

Этот пример Microsoft Visual Basic для приложений (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 и обратная связь.

Поделиться через