GESTION CLAVIER - TOUCHE - COMMENT CAPTER LES TOUCHES ... VB SIMPLIFIÉ

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 4 nov. 2004 à 23:32
cs_neria Messages postés 319 Date d'inscription vendredi 21 février 2003 Statut Membre Dernière intervention 16 février 2009 - 5 nov. 2004 à 20:45
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/27326-gestion-clavier-touche-comment-capter-les-touches-vb-simplifie

cs_neria Messages postés 319 Date d'inscription vendredi 21 février 2003 Statut Membre Dernière intervention 16 février 2009
5 nov. 2004 à 20:45
GetKeyState est une API qui te permet de connaitre l'etat d'une touche du clavier, petit exemple :

Declare Function GetKeyState Lib "user32" ( _
ByVal nVirtKey As Long) As Integer

If GetKeyState(VK_X) then msgbox "Touche X pressée"
cs_etniqs Messages postés 201 Date d'inscription mardi 7 octobre 2003 Statut Membre Dernière intervention 10 mai 2016
5 nov. 2004 à 20:12
ATCHOUM !!!

je vous demande pardons ???? *<:o(

(snif)
cs_neria Messages postés 319 Date d'inscription vendredi 21 février 2003 Statut Membre Dernière intervention 16 février 2009
5 nov. 2004 à 19:32
Ou alors utiliser l'API GetKeyState ;)
cs_etniqs Messages postés 201 Date d'inscription mardi 7 octobre 2003 Statut Membre Dernière intervention 10 mai 2016
5 nov. 2004 à 09:57
effectivement, j'avais pas pensé à ça,

sinon, mon pb était que la gestion des touches ne se chargeait pas avec la form (d'où le pb), donc je load "touche" avec le form en globale, sinon Keycode est toujours "empty"

sinon, yep c'est d'la bricole avec les moyens du bord :-))
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 24
4 nov. 2004 à 23:32
Pour t'aider :

Sans bouton, tu pourrais résumer tout ton code par ceci :

Public Sub form_KeyPress(KeyCode As Integer)
Select Case KeyCode
Case vbKeyReturn:
MsgBox "Return"
Case vbKeyEscape:
MsgBox "Escape"
End Select

End Sub


Le passage par une variable 'touche' globale n'était pas très judicieux.

Bon courage pour la suite !
Rejoignez-nous