Ejemplos usando el Api de windows para Visual basic

143 - Activar combinación de teclas

Volver al Listado Api - Anterior - Siguiente

Ejemplo del ApiGuide que utiliza las funciones Api RegisterHotKey y UnregisterHotKey entre otras, para registrar una combinación de teclas.

Cuando carga el formulario se registra la combinación de teclas, por ejemplo la tecla control + F10, en el sistema. Los valores para dichas teclas se pasan en el tercer y cuarto parámetro de RegisterHotKey.

Utilizando esta manera para activar la combinación de teclas, se puede capturar incluso cuando el programa no tiene el foco.

Nota: En el módulo bas, hay una función que procesa los mensajes para la ventana ( el formulario ) , aquí se debe especificar el procedimiento o función que queremos ejecutar al presionar la combinación de teclas, por ejemplo si tengo en Form1 el procedimiento MiSub que es el que quiero ejecutar al presionar, se debe colocar Form1.MiSub ..y este debe ser público para poder accederlo desde el módulo bas.

Si no se quiere utilizar un procedimiento externo dentro de un form, simplemente colocar el código en el módulo bas, o llamar a una función pública de otro módulo.

Código en el módulo bas

Option Explicit Public WinProc As Long Public Const GWL_WNDPROC = (-4) ' Algunas constantes para las teclas Public Const MOD_CONTROL As Long = &H2 Public Const MOD_SHIFT As Long = &H4 Public Const MOD_ALT = &H1 Public Const VK_F10 = &H79 Public Const VK_F1 As Long = &H70 Public Const VK_F11 As Long = &H7A Public Const VK_F12 As Long = &H7B Public Const VK_F2 As Long = &H71 Public Const VK_F3 As Long = &H72 Public Const VK_F4 As Long = &H73 Public Const VK_F5 As Long = &H74 Public Const VK_F6 As Long = &H75 Public Const VK_F7 As Long = &H76 Public Const VK_F8 As Long = &H77 Public Const VK_F9 As Long = &H78 'Declaraciones Api para la combinación de teclas Public Declare Function RegisterHotKey Lib "user32" ( _ ByVal hWnd As Long, _ ByVal id As Long, _ ByVal fsModifiers As Long, _ ByVal vk As Long) As Long Public Declare Function UnregisterHotKey Lib "user32" ( _ ByVal hWnd As Long, _ ByVal id As Long) As Long 'Declaraciones Api para subclasificar la ventana Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hWnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" ( _ ByVal lpPrevWndFunc As Long, _ ByVal hWnd As Long, _ ByVal Msg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Public Function NewWindowProc( _ ByVal hWnd As Long, _ ByVal Msg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long If Msg = &H82 Then Call SetWindowLong(hWnd, GWL_WNDPROC, WinProc) Call UnregisterHotKey(hWnd, 1) End If If Msg = &H312 Then Form1.Ejecutar_HotKey End If NewWindowProc = CallWindowProc(WinProc, hWnd, Msg, wParam, lParam) End Function

Código en el formulario

Option Explicit ' Esta sub se ejecuta al presionar las teclas Public Sub Ejecutar_HotKey() MsgBox " Combinación de teclas ejecutada ", vbInformation End Sub Private Sub Form_Load() 'INDICAR ACÁ LAS TECLAS If RegisterHotKey(hWnd, 1, MOD_CONTROL, VK_F12) = 0 Then 'error MsgBox " Hubo un error ", vbCritical Exit Sub End If WinProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf NewWindowProc) MsgBox "presionar Ctrl + F12", vbInformation End Sub

Enlaces relacionados

Buscar en Recursos vb