Bonjour,
Le VisualTreeHelper na passe pas par tout. Visiblement il oublie l'intérieur d'un TabControl constitué de 4 TabItem
Les Boutons situés dans le 1er TabItem sont "vus" mais ceux situés dans les autres TabItems ne sont pas "scannés". Merci par avance de votre réponse !
Public Sub u_configcouleurs(ByRef par_form As Visual)
Dim loc_tag As Object
Dim loc_button As Button
Dim childVisual As Visual
For loc_i = 0 To VisualTreeHelper.GetChildrenCount(par_form) - 1
' Retrieve child visual at specified index value.
childVisual = CType(VisualTreeHelper.GetChild(par_form, loc_i), Visual)
' Do processing of the child visual object.
loc_tag = childVisual.GetValue(FrameworkElement.TagProperty)
If (Not IsNothing(loc_tag)) Then
' Mon traitement ici
End If
' Enumerate children of the child visual object.
u_configcouleurs(childVisual)
Next
childVisual = Nothing
End Sub
