Событие Application.KeyPress (Visio)

Возникает при нажатии клавиши на клавиатуре.

Синтаксис

выражение. KeyPress (KeyAscii, CancelDefault)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
KeyAscii	Обязательный	Long	Значение ASCII нажатой клавиши. Может использовать любой код символа ASCII.
CancelDefault	Обязательный	Boolean	Значение False , если Microsoft Visio должен обработать сообщение, полученное из этого события; в противном случае — True.

Примечания

Если для параметра CancelDefault задано значение True, Visio не обрабатывает сообщение, полученное при нажатии кнопки мыши.

В отличие от некоторых других событий Visio, KeyPress не имеет префикса Query, но это все равно событие запроса. Это означает, что можно отменить обработку сообщения, отправленного нажатием клавиши, либо присвоив параметру CancelDefault значение True, либо, если для обработки события используется метод VisEventProc , вернув значение True. Дополнительные сведения см. в разделах, посвященных методу VisEventProc и любым событиям запроса (например, событию QueryCancelSuspend ).

Примечание.

Нажатие сочетания клавиш, например Ctrl+C, не вызывает события KeyPress .

Если вы используете Microsoft Visual Basic или Visual Basic для приложений (VBA), синтаксис в этом разделе описывает распространенный и эффективный способ обработки событий.

Если вы хотите создать свои собственные объекты Event , используйте метод Add или AddAdvice .

Чтобы создать объект Event , который запускает надстройку, используйте метод Add , применяемый к коллекции EventList .

Чтобы создать объект события , получающий уведомление, используйте метод AddAdvice .

Чтобы найти код события для события, которое вы хотите создать, см. Коды событий.

Пример

В этом модуле класса показано, как определить класс синхронизации с именем KeyboardListener , который прослушивает события, вызванные действиями клавиатуры в активном окне. Он объявляет объектную переменную vsoWindow с помощью ключевого слова WithEvents. Модуль класса также содержит обработчики событий KeyDown, KeyPress и KeyUp .

Для выполнения этого примера вставьте новый модуль класса в проект VBA, назовите его KeyboardListener и вставьте в модуль следующий код.

Dim WithEvents vsoWindow As Visio.Window 
 
Private Sub Class_Initialize() 
 
 Set vsoWindow = ActiveWindow 
 
End Sub 
 
Private Sub Class_Terminate() 
 
 Set vsoWindow = Nothing 
 
End Sub 
 
Private Sub vsoWindow_KeyDown(ByVal KeyCode As Long, ByVal KeyButtonState As Long, CancelDefault As Boolean) 
 
 Debug.Print "KeyCode is "; KeyCode 
 Debug.Print "KeyButtonState is" ; KeyButtonState 
 
End Sub 
 
Private Sub vsoWindow_KeyPress(ByVal KeyAscii As Long, CancelDefault As Boolean) 
 
 Debug.Print "KeyAscii value is "; KeyAscii 
 
End Sub 
 
Private Sub vsoWindow_KeyUp(ByVal KeyCode As Long, ByVal KeyButtonState As Long, CancelDefault As Boolean) 
 
 Debug.Print "KeyCode is "; KeyCode 
 Debug.Print "KeyButtonState is" ; KeyButtonState 
 
End Sub

Затем вставьте следующий код в проект ThisDocument .

Dim myKeyboardListener As KeyboardListener 
 
Private Sub Document_DocumentSaved(ByVal doc As IVDocument) 
 
 Set myKeyboardListener = New KeyboardListener 
 
End Sub 
 
Private Sub Document_BeforeDocumentClose(ByVal doc As IVDocument) 
 
 Set myKeyboardListener = Nothing 
 
End Sub

Сохраните документ, чтобы инициализировать класс, а затем нажмите любую клавишу, чтобы запустить событие KeyPress . В окне мгновенных событий обработчик выводит код ASCII клавиши, нажатой для запуска события.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.