Compartir a través de

Propiedad KeyboardEvent.KeyAscii (Visio)

  • Artículo

Devuelve el código ASCII asociado a un evento KeyPress . Solo lectura.

Sintaxis

expresión. KeyAscii

Expresión Variable que representa un objeto KeyboardEvent .

Valor devuelto

Long

Comentarios

Los valores devueltos por KeyAscii son códigos ASCII. Para ver una lista de estos códigos, busque "ASCII character codes" en MSDN, el sitio Web de Microsoft Developer Network.

Ejemplo:

Este módulo de clase muestra cómo se define una clase de receptor denominada KeyboardListener que escucha los eventos desencadenados por las acciones del teclado en la ventana activa. Declara la variable de objeto vsoWindow mediante la palabra clave WithEvents. El módulo de clase contiene asimismo los controladores de los eventos KeyDown, KeyPress y KeyUp.

Para ejecutar este ejemplo, inserte un nuevo módulo de clase en el proyecto de Microsoft Visual Basic para Aplicaciones (VBA), asígnele el nombre KeyboardListener e inserte el código siguiente en el módulo.

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

A continuación, inserte el código siguiente en el proyecto 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

Guarde el documento para inicializar la clase y, a continuación, presione cualquier tecla para desencadenar un evento KeyPress. En la ventana Inmediato, el controlador imprime el código ASCII de la tecla que se ha presionado para desencadenar el evento.

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.