Necesito un Ayudita..!
Buenas como están.. Señores expertos, necesito que me ayuden por favor, estoy con un proyectito de Altas, Bajas y Modicaciones, la ayuda que necesito es la siguiente:quiero hacer que se combine teclas es decir Control+A, para la alta de un registro Control+M, para la baja de un registro y Control+N, para la modificación.la idea es que todas estas combinaciones tengo que hacerlas en el evento del Form_KeyDown.. Gracias de antemano..!
1 Respuesta
Respuesta de igordillo
1
Aquí tienes un código que hace lo que pides pero antes te debes asegurar de que la propiedad KeyPreview del Form este en True (sino el form no intercepta las pulsaciones):
Private Sub Form_KeyDown(KeyCode as Integer, Shift as Integer)
Select Case KeyCode
Case vbKeyA 'letra A
If (Shift and vbCtrlMask) = vbCtrlMask Then
' Aqui va la llamada a Altas
End If
Case vbKeyM 'letra M
If (Shift and vbCtrlMask) = vbCtrlMask Then
' Aqui va la llamada a Bajas
End If
' Aqui continuas con las demas teclas
End Select
End Sub
Private Sub Form_KeyDown(KeyCode as Integer, Shift as Integer)
Select Case KeyCode
Case vbKeyA 'letra A
If (Shift and vbCtrlMask) = vbCtrlMask Then
' Aqui va la llamada a Altas
End If
Case vbKeyM 'letra M
If (Shift and vbCtrlMask) = vbCtrlMask Then
' Aqui va la llamada a Bajas
End If
' Aqui continuas con las demas teclas
End Select
End Sub
