Discussion :

[LaFouine94]

Bonjour,

J'aimerais savoir s'il est possible facilement, lors de l'appel d'un événement "Sur clic" d'un bouton, de savoir si la touche Ctrl était enfoncée en même temps ou pas. C'est pour pouvoir avoir une action différente quand la touche Ctrl est enfoncée.
J'ai cherché, mais pour l'instant je ne sais pas faire...

Merci pour le coup de main.

[marot_r]

Bonjour.

J'ai fait un test et on peut.

Ici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Compare Database
Option Explicit
 
Dim m_EstCtrl As Boolean
 
Private Sub Commande11_Click()
    MsgBox m_EstCtrl
    m_EstCtrl = False
End Sub
 
Private Sub Commande11_KeyDown(KeyCode As Integer, Shift As Integer)
    m_EstCtrl = Shift And acCtrlMask
End Sub

A+

[marot_r]

Attention si on maintient [Ctrl] enfoncé il y a un effet de buffer sur le clavier qui fait que si on le relâche et qu'on clique, la touche est toujours considérée comme enfoncée.

Personnellement je ferai 2 boutons séparés un pour l'action avec le [Ctrl] et un pour l'action sans ou j'aurai une case à cocher qui correspondrai au [ctrl] et qui permettrait à l'utilisateur de savoir qu'il a activé une fonction spéciale.

A+

[LaFouine94]

Génial !
Merci pour le code.
J'ai testé aussi, c'est nickel !

Pour l'effet rebond, ce n'est pas très grave car je n'ai aucun autre test en parallèle qui regarde si la touche Ctrl est enfoncée ou pas.
Il n'y a donc pas de risque de conflit.

Merci beaucoup.