[VB.NET] Controllare gli oggetti dentro i contenitori

[illusione]

Ciao

per visualizzare delle preferenze utilizzo gli oggetti di un form(textbox) utilizzando l'insieme controls (dato che non esiste piu il mitico index di vb6)

Questa è la mia routine

Dim ctrl As Control

For Each ctrl in Controls
ctrl.Text = Preferenze(ctrl.Tag)
End If
Next


Ora il problema è che quando inserisco le txtbox dentro i contenitori (tabcontrol)
non vede piu gli oggetti.

Cosa posso fare?
grazie!

[MItaly]

Devi fare una procedura ricorsiva che vada a cercare anche i controlli contenuti in altri controlli.

Sub SetPref(ByVal ctrl As Control)
    ctrl.Text = Preferenze(ctrl.Tag)
    For Each c As Control In ctrl.Controls
        ctrl.Text = ""
        If ctrl.HasChildren Then SetPref(c, True)
    Next
End Sub

Richiamala così:

SetPref(Me)

.

[illusione]

ok! grazie 1000

[MItaly]

Di niente; ciao!