racourci clavier

Question

je voudrais savoir comment on fait des racourci clavier, merci d'avance :o)

VB_MAN · Answer

Regarde l'aide de VB! Ca proviens de l'aide de VB justement :

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Dim ShiftDown, AltDown, CtrlDown, Txt
'Définition des constantes
Const vbShiftMask = 1
Const vbCtrlMask = 2
Const vbAltMask = 4

ShiftDown = (Shift And vbShiftMask) > 0
AltDown = (Shift And vbAltMask) > 0
CtrlDown = (Shift And vbCtrlMask) > 0

If KeyCode = vbKeyF2 Then ' Affiche les combinaisons de touches.
    If ShiftDown And CtrlDown And AltDown Then

Txt = "MAJ+CTRL+ALT+F2."
ElseIf ShiftDown And AltDown Then
Txt = "MAJ+ALT+F2."
ElseIf ShiftDown And CtrlDown Then
Txt = "MAJ+CTRL+F2."
ElseIf CtrlDown And AltDown Then
Txt = "CTRL+ALT+F2."
ElseIf ShiftDown Then
Txt = "MAJ+F2."
ElseIf CtrlDown Then
Txt = "CTRL+F2."
ElseIf AltDown Then
Txt = "ALT+F2."
ElseIf SHIFT = 0 Then
Txt = "F2."
End If
Text1.Text = "Vous avez appuyé sur " & Txt
End If

' Si ton raccourci clavier est "CTRL+C"

' Pour commencer tu effacer tous les If/End If

If (KeyCode = vbKeyC And CtrlDown) Then
' On a appuyer sur Ctrl+C
End If

' "Ctrl+Atl+C" :

If (KeyCode = vbKeyC And CtrlDown And AtlDown) Then
' On à appuyer sur Ctrl+Atl+C
End If

' Etc...

End Sub

Racourci clavier

1 réponse

Discussions similaires