Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

10 - Activar Combinación de teclas en un formulario

Ejemplo de como podemos activar una combinación de teclas en un formulario.

En el ejemplo cuando presionamos las teclas Ctrl+Alt+A mostramos un mensaje. La clave es tener la propiedad KeyPreview del Formulario en True, para de esta manera poder intercepatar cualquier evento de presión de tecla. y también verificar el parámetro KeyCode del evento KeyDown del formulario

Nota: para obtener los demás valores de las teclas, se puede consultar las constantes de visual basic para las mismas desde el examinador de objetos

vista del examinador de objetos

Código fuente en un Formulario

Option Explicit '*************************************************************************** '* Nota: Colocar la propiedad KeyPreview del formulario en True '*************************************************************************** 'Variable booleanas para determinar si está presionadas las teclas Dim Ctrl As Boolean, Alt As Boolean, A As Boolean 'Constantes de las teclas Alt, Ctrl y a Private Const vbKeyA = 65 Private Const vbKeyalt = 17 Private Const vbKeyControl = 18 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'Verifica las teclas Alt - Ctrl y la A If KeyCode = vbKeyalt Then Ctrl = True If KeyCode = vbKeyControl Then Alt = True If KeyCode = vbKeyA Then A = True 'Si las 3 variables están en True .. mostramos un mensaje If Ctrl And Alt And A Then MsgBox "Hola" Form_KeyUp 0, 0 End If End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) 'Cuando se produce KeyUp ponemos las variables en false Ctrl = False Alt = False A = False End Sub Private Sub Form_Load() 'Establecemos la propiedad KeyPreview para que el formulario _ 'intercepte cualquier intento de presión de tecla Me.KeyPreview = True Me.Caption = " Ejemplo de combinación de teclas " MsgBox " Presiona las teclas Ctrl+Alt+a", vbInformation End Sub

Nota: también para poder crear una combinación de teclas se puede utilizar la función del api RegisterHotKey

Recursos vb 6.0 - Enlaces Relacionados

Buscar en Recursos vb