Discussion :

[xawax34]

Bonjour, je souhaiterais surligner le texte lors d'un Textbox.gotfocus. Ce n'est pas tant le surlignage qui me pose problème mais de l'appliquer à n'importe quelle TB de mon projet, sachant que j'en ai beaucoup, je ne voudrais pas refaire une sub pour chacune d'elle

Par avance merci

XAv

[skaraa]

Ceci peut t'aider:

pour chaque textbox d'une form

For Each tb As Control In Me.Controls
If tb.GetType Is GetType(TextBox) Then
' SURLIGNER LE TEXTE
End If
Next

[xawax34]

Oui merci

mais dans quelle sub dois-je mettre ce code pour que ça fonctionne à chaque fois que je me déplace de TB en TB à l'aide de la touche TAB ?

[skaraa]

Dans l'évènement activated de ta form et tu gère la textbox qui a le focus directement dans le code plus haut.

[xawax34]

J'ai fait ça

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        For Each TB As TextBox In Me.Controls
            If TB.Enabled Then
                TB.SelectAll()
            End If
        Next
End Sub

Au debogage, j'obtient l'exception suivante :

L'exception System.InvalidCastException n'a pas été gérée
Message="Impossible d'effectuer un cast d'un objet de type 'System.Windows.Forms.SplitContainer' en type 'System.Windows.Forms.TextBox'."


Pourquoi ????

Xav

[skaraa]

Chez moi ca fonctionne...