Mettre en surbrillance le texte d'un TextBox

Bonjour à tous
J'ai Visual Studio 2010 et j'utilise Visual Basic
Je voudrais sélectionner le texte d'un TextBox sur Entrée (GotFocus ou Enter)
J'ai remarqué que la sélection n'a effet que quand on utilise la touche Tab, mais si on utilise la souris le texte n'est pas mis en surbrillance, il ne se passe rien.
En VB5 et VB6 je n'avais pas de problèmes pour sélectionner du texte.

J'ai essayé TextBox1.SelectAll() dans TextBox1_Enter
J'ai essayé TextBox1.Select(1,len(TextBox1.Text))
J'ai essayé SelectionStart et SelectionLength

Enfin j'ai ajouté une 2ème procédure TextBox1_MouseUp
Ça a marché mais avec un petit défaut. Un 2ème clic devrait désélectionner le texte, or le texte reste toujours sélectionné, pas moyen de placer le curseur là où je veux avec la souris.

C'est un peu frustrant. Il y a des choses qui sont devenues plus compliquées en .NET

Merci de votre aide

bonsoir,

le problème vient du timing de gestion des évènement click et enter, tu dois faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim SelectAllTextInTextBox1 As Boolean = False   Private Sub TestTextBox_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TestTextBox.Enter SelectAllTextInTextBox1 = True End Sub     Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click If SelectAllTextInTextBox1 Then TextBox1.SelectAll() SelectAllTextInTextBox1 = False End If End Sub

---

bon code ...

Merci beaucoup pour ton aide. J'ai tant galéré avec ce problème.
L'idée est IMPECABLE. Bien que j'ai du faire une toute petite réctification pour éviter un autre défaut avec TAB (j'ai ajouté SelectAll dans Enter aussi). Le résultat final est nickel.

J'ai fait un exemple de 3 TextBox avec ce code:

Code:

---

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

Dim T As Boolean   Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles _ TextBox1.Enter, TextBox2.Enter, TextBox3.Enter sender.SelectAll() T = True End Sub   Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles _ TextBox1.Click, TextBox2.Click, TextBox3.Click If T Then sender.SelectAll() T = False End If End Sub

---

MERCI INFINIMENT