Executer un bouton lorsque je presse une touche du clavier ?
Résolu
typhoon_74
Messages postés
66
Date d'inscription
jeudi 11 mars 2004
Statut
Membre
Dernière intervention
11 février 2007
-
21 oct. 2005 à 22:45
typhoon_74 Messages postés 66 Date d'inscription jeudi 11 mars 2004 Statut Membre Dernière intervention 11 février 2007 - 23 oct. 2005 à 09:38
typhoon_74 Messages postés 66 Date d'inscription jeudi 11 mars 2004 Statut Membre Dernière intervention 11 février 2007 - 23 oct. 2005 à 09:38
5 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
22 oct. 2005 à 02:04
22 oct. 2005 à 02:04
Salut
Dans ma boule de cristal, je vois que tu utilises VB6 (?)
Il te suffit de déclarer (propriétés) dans ta forme le KeyPreview à True
La forme recevra les touches claviers avant les composants qu'elle héberge.
Il te suffit donc de faire, dans Form_KeyPress :
If KeyCode = Asc("1") Then Call monBouton_Click
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Dans ma boule de cristal, je vois que tu utilises VB6 (?)
Il te suffit de déclarer (propriétés) dans ta forme le KeyPreview à True
La forme recevra les touches claviers avant les composants qu'elle héberge.
Il te suffit donc de faire, dans Form_KeyPress :
If KeyCode = Asc("1") Then Call monBouton_Click
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
typhoon_74
Messages postés
66
Date d'inscription
jeudi 11 mars 2004
Statut
Membre
Dernière intervention
11 février 2007
22 oct. 2005 à 11:05
22 oct. 2005 à 11:05
Merci beaucoup !
typhoon_74
Messages postés
66
Date d'inscription
jeudi 11 mars 2004
Statut
Membre
Dernière intervention
11 février 2007
22 oct. 2005 à 11:12
22 oct. 2005 à 11:12
Juste une petite modification , c'est cela qu'il fallait entrer :
If KeyAscii = Asc("1") Then
Call monBouton_Click
End if
If KeyAscii = Asc("1") Then
Call monBouton_Click
End if
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
22 oct. 2005 à 23:06
22 oct. 2005 à 23:06
lol, oui, je n'arrive pas à mémoriser les paramètres associés au KeyDown et au KeyPress.
Qu'est ce que tu veux, on vieillit ...
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Qu'est ce que tu veux, on vieillit ...
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
typhoon_74
Messages postés
66
Date d'inscription
jeudi 11 mars 2004
Statut
Membre
Dernière intervention
11 février 2007
23 oct. 2005 à 09:38
23 oct. 2005 à 09:38
Lol ... c'est les premiers cheveux blancs c'est ça ? Merci de ton aide !
