Interception des touches de fonction

Question

Dans un formulaire VB6 je voudrais intercepter l'appui sur une des touches
de fonction.
Pour tester j'ai écrit ceci :

        Private Sub Form_KeyPress(KeyAscii As Integer)
        MsgBox KeyAscii
        End Sub

Cela marche pour toutes les touches sauf les touches de fonction !!!!!!!!!!

Quelqu'un sait-il comment faire ?

D'avance, merci.

VicoLaChips2 · Answer

Salut !

Essaye ça :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyShift Then
        MsgBox "toto"
    End If
End Sub
'----
Ensuite tu met le curseur sur vbKeyShift et tu fais F1...
tu vas avoir toutes les constantes des touches de fonctions !

@+, VIC

dany108 · Answer

Je te remercie mais j'avais déjà essayé.
Pour les touches de fonction les constantes sont vbKeyF + le numéro
J'ai écrit ceci :

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyF2 Then
    MsgBox "F2"
End If

End Sub

Et ça marche ... sauf si un contrôle de la feuille à le focus !!

Dois-je mettre l'appel à ma routine dans le KeyPress de chaque contrôle ?

VicoLaChips2 · Answer

Okay ,
Tu as mis la propriété .Keypreview de ton Form sur TRUE ??
Autrement il faut le faire -;)

@+, VIC

dany108 · Answer

He bien NON !!
Je ne connaissais pas.
Maintenant ça marche?
J'ai testé tous les cas de figure et c'est tout bon.

Merci beaucoup de ton aide.

Interception des touches de fonction

4 réponses

Discussions similaires