Valider un textbox avec la touche Entrée

Bonjour,

Je cherche à valider un textbox avec la touche Entrée.
J'ai lu pas mal de choses sur les forums mais je n'en ai trouvé aucun qui réponde exactement à mon cas (pourtant classique je pense).
- le textbox n'est pas multiligne
- le curseur ne doit pas quitter le textbox (je ne veux pas sélectionner un autre contrôle lorsque la touche Entrée est utilisée)
- l'effet de la validation par la touche entrée doit déclencher l'Event Validated du TextBox

Tout se passe dans l'event KeyPress, je pense, et ça commence par

Code:

---

1 2 3

if e.keychar = chr(13) then   EndIf

---

C'est le code à taper dans le IF THEN que je ne trouve pas


Qqun a-t-il une idée ?

Essayes ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public Class Form1   Private Sub TextBox1_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Validated EventValidatedSub() End Sub   Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If (e.KeyChar = ChrW(13)) Then EventValidatedSub() End If End Sub   Private Sub EventValidatedSub() MessageBox.Show("coucou!") End Sub     End Class

---

bonjour callo

L'api dot.net en regorge d'exemples.En voici un:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Public Class Form6   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress ' keypressed uses KeyChar property   ' 1/ Si ENTER key est presse & ' 2/ si texte valide ' Handled property is mis à true, If e.KeyChar = CType(ChrW(Keys.Return), Char) Then Dim errorMsg As String = "un texte de 6 cars est requis." If Not ValidationTexte(TextBox1.Text, errorMsg) Then   ' Handled property is mis à False, e.Handled = False ' reset textbox pour correction. TextBox1.Select(0, TextBox1.Text.Length) Else ' Handled property is mis à False, e.Handled = True ' focus sur textbox2 Me.TextBox2.Focus() End If   End If   End Sub     'simple fonction de validation Private Function ValidationTexte(ByVal txt As String, ByVal errorMsg As String) As Boolean ' Confirm text lenght in the control >=6 If TextBox1.Text.Length < 6 Then MessageBox.Show(errorMsg) Return False   End If Return True End Function

---

bonjour,

Merci pour vos réponses.
La réponse de Mabrouki ne correspond pas à mon besoin : Je ne veux pas que le focus quitte le contrôle (cf mon post initial)

La réponse de Callo me va bien. Je suis bête de ne pas y avoir pensé. Je pense que, inconsciemment, j'imaginais une solution plus simple qui forcerait la validation du contrôle du genre

Code:

---

1 2 3 4

if e.keychar = chr(13) then textbox.validate 'évidemment, cette méthode n'existe pas !! endif

---

Je suppose que cette solution n'existe pas sinon vous me l'auriez spontanément suggérée.

Je vais donc adopter la méthode de callo.

Encore merci !

Bonjour,
L'intellisense propose TonTextBox_Validated, si l'événement TontextBox.Validated a été créé.
Que l'on peut exploiter de la façon suivante :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown If e.KeyCode = Keys.Return Then TextBox1_Validated(TextBox1, New EventArgs) End If End Sub   Private Sub TextBox1_Validated(sender As Object, e As EventArgs) Handles TextBox1.Validated Console.WriteLine(TextBox1.Text) End Sub

---

Reste à savoir si il n'y a pas de problème de déclencher ainsi Validated.

Voilà, c'est exactement ça que je cherchais à faire, d'autant que j'ai déjà des procédures Event sur Validated.

Je ne savais pas qu'on pouvait faire appel à l'une de ces procédures directement, et tu viens de me montrer la syntaxe pour les paramètres de cet appel.

Merci beaucoup

Bonsoir,

J'ai lu les différents messages sur le forum, mais j'ai des difficultés avec ce qui est noté

Dans un textbox, j’inscris un texte et ensuite je clique sur la touche ENTER. Je souhaite récupérer la valeur dans une variable

Comment fait on ?

Merci d'avance

Code:

---

dim Oscar as string = textbox1.tex

---