clementio
Messages postés432Date d'inscriptionsamedi 18 mai 2002StatutMembreDernière intervention17 février 20141 21 janv. 2003 à 19:09
Voilà un bout de code qui peut t'aider:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode vbKeyShift Then Me.Caption "Shift enfoncé" If KeyCode vbKeyControl Then Me.Caption "Ctrl enfoncé"
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode vbKeyShift Then Me.Caption "Shift relaché" If KeyCode vbKeyControl Then Me.Caption "Ctrl relaché"
End Sub