Discussion :

[kboo]

Bonjour,
j'ai une "Form" (Form2) qui est en fait une barre de progression et je voudrai que quand je fait <control> + <d> ou bien <alt> + <d> je puisse afficher une autre "Form" (Form1), mais je ne sais pas du tout comment m'y prendre pour la détection du racourci clavier...
Merci pour votre aide

ps: si c'est plus simple je voudrai juste la détection de la touche <d>

[jmfmarques]

Regardes d'abord du côté de la propriété KeyPreview de ta Form
et des événements Keypress et KeyDown de ta Form
puis reviens nous voir si tu as encore des difficultés (avec un bout de code, s'il te plait).

[kboo]

Keypress et KeyDown inconnue au bataillon... (comme dirais l'aide dans visual basic: "Aucun élément trouvé")

[jmfmarques]

Comment çà, les événements Keypress et Keydown inconnus au bataillon ?????
A moins que .....!
Regardes ton titre !
Puis regardes ton Texte !
Pour moi et jusqu'à preuve du contraire (je ne vois aucun tag VBA) tu es sous VB6 !
Si ce n'est pas le cas, je te laisse mesurer les conséquences de l'absence de ce tag !

[kboo]

aba oui dsl (VB6)

[khany]

Ben alors, édite ton titre et mets le tag [VB6]

ensuite, regarde bien les événements liés à ta form dans le combo de droite et tu y verras Keypress, Keydown, ....

Evidemment, ne reste pas sur (Général) dans le combo de gauche mais place-toi sur ta form

Tu peux aussi faire une recherche sur "SendKey" pour la gestion des raccourcis clavier

[SfJ5Rpw8]

tiens à mettre dans ta form ..:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim shiftKey As Integer
shiftKey = Shift And 7
 If shiftKey = vbCtrlMask And UCase(Chr(KeyCode)) = "D" Then MsgBox "CTRL-D"
 If shiftKey = vbAltMask And UCase(Chr(KeyCode)) = "D" Then MsgBox "Alt-D"
 End Sub
'
 ' POUR penser à mettre KeyPReview à true :
'
Private Sub Form_Load()
  KeyPreview = True
End Sub