Discussion :

[Invité(e)]

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

[anonymousse]

bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[Invité(e)]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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