Sección de controles Ocx para Visual basic , Dll , Activex

189 - Ocx - Hotkey

Activex y ejemplo para crear hotkeys en visual basic

Control enviado por Luis Nuñez de Chile

Las propiedades que tiene para registrar las combinaciones son :

AltKey, CtrlKey y ShiftKey : Para las Teclas Modificadores Alt, control y Shift ( si se usa con alguna de estas debe estar en true )
Vkey : Propiedad para indicar la tecla virtual ( a-z , las teclas F1-F14, tecla Esc, etc..)

Nota: Para registrar cada combinación de teclas, se necesita agregar una instancia por cada hotKey a utilizar , por ejemplo si voy a registrar dos combinaciones (Ctrl+A y Ctrl+B) se deben añadir al formulario dos instancias del control. ( pueden ser una matriz de controles para que sea mas comodo)

Luego para saber cuando se presionaron las teclas, se debe consultar el evento HotkeyPressed

por ejemplo esto utiliza dos instancias del control en un array : VBHotKey1(0) y VBHotKey1(1)

El control VBHotKey1 (0) es para las tecla Alt+W y el VBHotKey1(1) para Ctrl+A

Private Sub Form_Load()
                 
' hotkey 1 ( la tecla Alt + W)
VBHotKey1(0).AltKey = True
VBHotKey1(0).VKey = vbKeyW
                 
' hotkey 1 ( la tecla Alt + W)
VBHotKey1(1).CtrlKey = True
VBHotKey1(1).VKey = vbKeyA
                 

End Sub

Private Sub VBHotKey1_HotkeyPressed(Index As Integer)
    
    Select Case Index
        
        Case 0
            ' acción para el hotkeys 1
        Case 1
            ' acción para el hotkeys 2 
    End Select
End Sub

Para detener el HotKey iniciado, es decir finalizar, se puede hacer con el método StopHotkey

VBHotKey1.StopHotkey

Si tenemos muchos creados, podemos hacerlo con un For Each o uno por uno

Dim CtrlHotKey As Control


' recorre todas las instancias
For Each CtrlHotKey In Me.Controls
    If TypeOf CtrlHotKey Is VBHotKey Then
       CtrlHotKey.StopHotkey
    End If
Next

Descargar control vb hotkey

Relacionados

Crear combinación de teclas o Hotkeys con la función RegisterHotKeys

Buscar en Recursos vb con Google