InvisibleApp.KeyPress-Ereignis (Visio)

Tritt ein, wenn eine Taste der Tastatur gedrückt wird.

Syntax

Ausdruck. KeyPress (KeyAscii, CancelDefault)

Ausdruck Eine Variable, die ein InvisibleApp-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
KeyAscii Erforderlich Long Der ASCII-Wert der Taste, die gedrückt wurde. Kann ein beliebiger ASCII-Zeichencode sein.
CancelDefault Erforderlich Boolean False, wenn die Meldung von Microsoft Visio verarbeitet werden soll, die das Programm von diesem Ereignis empfängt, andernfalls True.

HinwBemerkungeneise

Wenn Sie CancelDefault auf True festlegen, wird die empfangene Meldung beim Klicken mit der Maustaste nicht von Visio verarbeitet.

Im Gegensatz zu einigen anderen Visio-Ereignissen verfügt KeyPress nicht über das Präfix Query, ist aber immer noch ein Abfrageereignis. Das heißt, Sie können die Verarbeitung der von KeyPress gesendeten Nachricht abbrechen, indem Sie CancelDefault auf True festlegen oder, wenn Sie die VisEventProc-Methode zum Behandeln des Ereignisses verwenden, indem Sie True zurückgeben. Weitere Informationen finden Sie in den Themen zur VisEventProc-Methode und zu den Abfrageereignissen (z. B. dem QueryCancelSuspend-Ereignis) in dieser Referenz.

Hinweis

Wenn Sie eine Tastenkombination drücken, z. B. STRG+C, wird das KeyPress-Ereignis nicht ausgelöst.

Wenn Sie Microsoft Visual Basic oder Visual Basic für Applikationen (VBA) verwenden, beschreibt die Syntax in diesem Thema eine gängige und effiziente Methode zum Verarbeiten von Ereignissen.

Wenn Sie eigene Event-Objekte erstellen möchten, verwenden Sie die Add- oder AddAdvise-Methode .

Verwenden Sie zum Erstellen eines Event-Objekts, das ein Add-On ausführt, die Add-Methode der EventList-Auflistung.

Verwenden Sie zum Erstellen eines Event-Objekts, das eine Benachrichtigung empfängt, die AddAdvise-Methode.

Informationen zum Suchen eines Ereigniscodes für das Ereignis, das Sie erstellen möchten, finden Sie unter Ereigniscodes.

Beispiel

Dieses Klassenmodul zeigt, wie eine Empfängerklasse mit der Bezeichnung KeyboardListener definiert wird, die von Tastaturaktionen im aktiven Fenster ausgelöste Ereignisse überwacht. Es deklariert die vsoWindow-Objektvariable unter Verwendung des Schlüsselworts WithEvents. Das Klassenmodul enthält außerdem einen Ereignishandler für die KeyDown-, KeyPress- und KeyUp-Ereignisse.

Fügen Sie zum Ausführen dieses Beispiels ein neues Klassenmodul in Ihr VBA-Projekt ein, nennen Sie es KeyboardListener, und fügen Sie den folgenden Code in das Modul ein.

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

Fügen Sie dann den folgenden Code in das ThisDocument-Projekt ein.

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

Speichern Sie das Dokument, um die Klasse zu initialisieren, und drücken Sie dann eine beliebige Taste, um ein KeyPress-Ereignis auszulösen. Im Direktfenster gibt der Handler den ASCII-Code der Taste aus, die zum Auslösen des Ereignisses gedrückt wurde.

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.