Discussion :

[olbi]

Je souhaiterai mettre en surbrillance le contenu de mes textbox à chaque fois que je prend le focus (évenement gotfocus). J'ai essayé avec la méthode selectall et select(start,length) mais ca ne fonctionne pas.

Quelqu'un aurait il une petite idée sur ce point?


D'avance, je vous remercie

[NiamorH]

Code :

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

1
2
3
4
        ' On arrive dans le controle on selectionne tout le texte
        Private Sub txtJ_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtJ.Enter
            txtJ.SelectAll()
        End Sub

moi je fais comme ça

[NicolasG]

Le problème provient de la gestion du clic par TextBox
Un clic place le curseur à l'endroit cliqué et comme ça arrive après l'événement Enter, cela annule la sélection effectuée dans cet événement.

J'ai une solution qui fonctionne (en C#) :

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
        /// <summary>
        /// flag pour sélectionner le textbox au premier clic après entrée focus
        /// </summary>
        private bool _selectOnClick=false;
        //
        private void textBox1_Enter(object sender, EventArgs e) {
            _selectOnClick = true;
            }
        //
        private void textBox1_Click(object sender, EventArgs e) {
            if (_selectOnClick) {
                this.textBox1.SelectAll();
                _selectOnClick = false;
                }
            }

Le premier clic après la sélection du TextBox sélectionne l'ensemble du texte.
Il y a juste un défaut quand on sélectionne le TextBox avec la touche Tab.

[olbi]

Merci , ca fonctionne nickel

[Cricri1670]

La discussion est cloturée depuis longtemps mais je soumets tout de même une réponse...

Effectivement, c'est l'évènement Click qui annule l'effet du SelectAll.
Pour le contourner, j'utilise ce code dans mes classes dérivée :

Dim IsSel As Boolean = False

Private Sub TextBox_Click(sender As Object, e As System.EventArgs) Handles TextBox.Click
If Not IsSel Then TextBox.SelectAll() : IsSel = True
End Sub

Private Sub TextBox_Enter(sender As Object, e As System.EventArgs) Handles TextBox.Enter
TextBox.SelectAll()
End Sub

Private Sub TextBox_Leave(sender As Object, e As System.EventArgs) Handles TextBox.Leave
IsSel = False
End Sub

De cette façon, que l'on navigue au clavier (TAB) ou à la souris, le résultat est le même : l'entrée dans la TextBox sélectionne son contenu et un (second) click est géré normalement.

[sinistrus]

Merci pour ce bout de code, il fonctionne très bien !