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

189 - Ocx - Hotkey

<Volver> - Anterior - Siguiente



 

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 :

 

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

 


Buscar en Recursos vb con Google