Discussion :

[Vincent32]

Bonjour,

Je voudrais sélectionner (mettre en surbrillance) le contenu d'une textbox si elle n'est pas vide lorsque l'on passe d'une textbox à l'autre soit via tab soit via le premier clic de souris dans la textbox.

Le but de la manip est de pouvoir remplacer le texte contenu dans la textbox sans le sélectionner manuellement.

Etant débutant je vous remercie par avance de bien vouloir commenter vos codes ou les expliquer.

Merci à tous

PS j'ai bien vu cette discussion mais j'ai du mal à tout saisir : http://www.developpez.net/forums/d10...texte-textbox/ de plus j'ai lu l'excellent tutoriel de P. Lasserre cependant je n'ai pas trouvé la solution à mon problème

[-N4w4k-]

Salut,

J'ai essayé le code de la discussion que tu as mis en lien en l'adaptant un petit peu:

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
17
18
19
20
21
22
23
24
25
26
27
    Dim SelectionOk As Boolean = False
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        AddHandlersForTBSelection(TextBox1)
        AddHandlersForTBSelection(TextBox2)
 
    End Sub
 
    Private Sub AddHandlersForTBSelection(ByVal tb As TextBox)
        AddHandler tb.Enter, AddressOf TB_Enter
        AddHandler tb.Click, AddressOf TB_Click
    End Sub
 
    Private Sub TB_Enter(sender As Object, e As EventArgs)
        Dim tb As TextBox = sender
        SelectionOk = True
        tb.SelectAll()
    End Sub
 
    Private Sub TB_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim tb As TextBox = sender
        If SelectionOk Then
            tb.SelectAll()
            SelectionOk = False
        End If
    End Sub

Ici, tu n'as qu'à faire AddHandlersForTBSelection(TextBox1) dans ton Form.Load pour chaque TextBox.

[Vincent32]

Merci beaucoup ça marche super bien
bonne journée