Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Происходит, когда область редактирования окна документа щелкается правой кнопкой мыши перед действием по умолчанию.
Синтаксис
Частное выражение Sub._'WindowBeforeRightClick** (Sel As Selection**, Cancel As Boolean)
Выражение Переменная, представляющая объект Application, объявленный с событиями в модуле класса.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Sel | Обязательный | Selection | Текущий выбор. |
| Отмена | Обязательный | Boolean | Значение false при возникновении события. Если процедура события задает этому аргументу значение True, действие по умолчанию при щелчке правой кнопкой мыши не выполняется после завершения процедуры. |
Замечания
Дополнительные сведения об использовании событий с объектом Application см. в разделе Использование событий с объектом Application.
Пример
В этом примере пользователю предлагается ответ "да" или "нет" перед выполнением действия по умолчанию. Этот код должен быть помещен в модуль класса, и экземпляр класса должен быть правильно инициализирован, чтобы увидеть этот пример работы. Инструкции по выполнению этой задачи см. в разделе Использование событий с объектом Application.
Public WithEvents appWord as Word.Application
Private Sub appWord_WindowBeforeRightClick _
(ByVal Sel As Selection, Cancel As Boolean)
Dim intResponse As Integer
intResponse = MsgBox("Selection = " & Sel & vbLf & vbLf _
& "Continue with operation on this selection?", _
vbYesNo)
If intResponse = vbNo Then Cancel = True
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.