Discussion :

[xingjing910]

Salut tout le monde,

Je voudrais utiliser une boucle for qui peut mettre plusieurs TextBox en

même couleur, mais je ne sais pas comment ça peut se faire. Vous avez une

idée ?

[tomlev]

Pour mettre en rouge toutes les textbox qui sont directement dans la Form :

Code :

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

1
2
3
For Each tb In Me.Controls.OfType(TextBox)
    tb.BackColor = Color.Red
Next

Par contre, ça ne marchera pas pour celles qui sont dans des conteneurs (panel, groupbox etc). Pour ça, il faut faire une méthode récursive :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub SetTextBoxColor(root As Control, c As Color)
	Dim tb As TextBox = TryCast(root, TextBox)
	If tb IsNot Nothing Then
		tb.BackColor = c
	End If
	For Each child As Control In root.Controls
		SetTextBoxColor(child, c)
	Next
End Sub

Et tu l'appelles sur la Form elle-même :

Code :

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

1
2
 
SetTextBoxColor(Me, Color.Red)

[xingjing910]

j'ai essayé, merci beaucoup de ton aide, TomLev