Utilisation de la touche EnterRésolu

Question

Bonsoir,
Voilà quelques heures que j'essai de l'ancer une action à la suite 
d'une pression sur la touche Enter.
celà devrait utiliser vbkeyreturn ou quelque chose de ce style, mais je ne sais pas comment m'y prendre pour le programmer.
Merci pour votre aide!
Seem

cs_CanisLupus · Accepted Answer

Mais, si tu préfères :

if keyascii =vbkeyreturn then cmd_valider_click

c'est la même chose.

Cordialement, CanisLupus

Gobillot · Answer

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyReturn) < 0 Then
   ' faire quelquechose
   End If
End Sub

Daniel

cs_trabice · Answer

voila un exemple d'utilisation 

Private Sub txtlibmoule_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
        'ton action..
End If

fabrice

cs_CanisLupus · Answer

Peut-être du côté : 
Senkeys "{ENTER}", True 

A voir, mais si tu donnais plus d'explik..........

Cordialement, CanisLupus

vbseem · Answer

Pour plus d'explication:
Une valeur A dans un textbox et B dans un autre.
L'utilisateur entre dans troisième textbox le produit de A et B.
Pour valider sa réponse je veut lui permettre d'utiliser la touche Return de son clavier au lieu de cliquer sur un bouton " valider".
Merci!
Seem

cs_CanisLupus · Answer

Alors dans ce cas, c simple.

Admettons que tu aie un bouton valider nommé cmd_valider.
Dans ce bouton tu as du code à exécuter quand on clique dessus.
Pour permettre à l'utilisateur de valider avec enter après sa saisie dans la textbox3 comme s'il cliquait sur le bouton, tu colles ça dans le textbox3_keypress :

if keyascii =13 then cmd_valider_click

Cordialement, CanisLupus

vbseem · Answer

Merci pour cette réponse des plus claire.

Mais est-il possible de faire disparaître le bip emis lors de la pression sur la touche Return?
Seem

cs_CanisLupus · Answer

Pour le bip, je ne sais pas. D'habitude, dans mes progs, c moi qui le provoque avec l'instruction BEEP mais pour inhiber le bip machine, je n'ai pas la solution.
Pose cette question sur le forum, peut-être que qqun à une solution. Suite à ton message, g cherché sur le web avec google et je n'ai rien trouvé de correct.

Cordialement, CanisLupus

Gobillot · Answer

c'est simple, après avoir testé la touche tu la met à zéro

dans l'évênement textbox3_keypress :

if keyascii =13 then cmd_valider_click

keyascii = 0

Daniel

cs_CanisLupus · Answer

Super, Gobillot

C pas moi qui posait la question mais je viens d'apprendre un truc.

J'espère que vbseem validera ta réponse aussi.

Cordialement, CanisLupus

Gobillot · Answer

merci de rien
en général je fais un sélect case pour conserver les caractères qui conviennent et éliminer les autres.

Select Case KeyAscii
case 48 to 57: 'pour les chiffres
case 65 to 90: 'pour lettres majuscules
case 97 to 122: 'pour lettres minuscules
Case 13:  Cmd_valider_Click: KeyAscii = 0  
case Else: KeyAscii = 0  
End Select

Daniel

Utilisation de la touche Enter

11 réponses

Discussions similaires