Action sur la touche EntrerRésolu

Question

Bonjour, comment faire pour que lorsque j'appuie sur la touche entrer par exemple, cela actionne un commandbutton???
Merci de vos r&#233;ponses

cs_CanisLupus · Accepted Answer

Salut,

Private Sub Text1_KeyPress(KeyAscii As Integer)
if KeyAscii = 13 then Command1_Click
End Sub

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

jpleroisse · Answer

Bonjour,

Un exemple, place sur ta Form un TextBox et un CommandButton

Il te suffit de placer le focus sur Text1 et appuyer sur Enter.



Private Sub Command1_Click()

Text1.Text = "Bonjour"

End Sub



Private Sub Text1_KeyPress(KeyAscii As Integer)

KeyAscii = 13

Command1_Click

End Sub



jpleroisse





Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Jonny512 · Answer

oui mais le probl&#232;me c qu'avec ce code on ne peut pas &#233;crire dans la textbox!!!

jpleroisse · Answer

Bonjour,

Je ne vois aucune diff&#233;rence avec mon code, si se n'est que pour te
donner un exemple j'ai mis dans le Click du commandButton Text1.Text =
"Bonjour".

Mets n'importe quelle autre commande et tu peux &#233;crire dans le TextBox.

jpleroisse

cs_CanisLupus · Answer

Non, jpleroisse. Avec ton exemple, on ne peut pas &#233;crire dans la textbox pour la bonne et simple raison que tu convertis chaque caract&#232;re entr&#233; en CR (valeur 13).

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

jpleroisse · Answer

Re,

OK, autant pour moi.

jpleroisse

Action sur la touche Entrer

6 réponses

Discussions similaires