Ciclo sui Controls di un Container

[perseo]

Ciao a tutti,
avrei bisogno di un aiuto.

E' possibile eseguire un ciclo per avere tutti i Control che sono dentro un container (e dentro i sub-container).
Ho dei controlli "TextBox" e "TextArea" che vorrei ripulire ed ho pensato di far eseguire un ciclo del Panel che voglio ripulire anziché scrivere il codice riga per riga.

Milio mi dette un ottimo suggerimento...

Codice: vb.net [Seleziona]

Public Sub pulisci(frm As Form, Optional salta As String)
Dim txt As Control
  For Each txt In frm.Controls
    If (Object.Class(txt).Name) = "TextBox" Or (Object.Class(txt).Name) = "TextArea" Or (Object.Class(txt).Name) = "TextPro" Then
      Object.SetProperty(txt, "Text", Null)
    Endif
  Next
End

Questo ciclo mi restituisce tutti i controlli che sono nel Form...
Però mi sto accorgendo che se fosse possibile a me interesserebbe pulire solo i Controlli di un panel (e dei relativi panel_discendenti).
Ho provato ad inserire la condizionale...

If txt.Parent.Name = nome_del_panel_che_m'interessa Then...

...però così mi esclude tutti i controlli dei sotto_panel annidati. Io invece vorrei il ciclo sul panel_genitore e su tutti i suoi panel_discendenti.

Potreste aiutarmi?  

[perseo]

Per il momento sto usando questa Sub...

Codice: vb.net [Seleziona]

Public Sub pulisci(contenitore As Container, Optional salta As String)
Dim txt As Control
  For Each txt In contenitore.Children
    Select Case Object.Class(txt).Name
      Case "TextBox", "TextPro", "TextArea", "SearchBox", "SearchPro"
        Print "Puliti: " & txt.Name & " --> " & txt.Parent.Name
        If txt.name <> salta Then Object.SetProperty(txt, "Text", Null)
    End Select
  Next
End

Come vi dicevo il problema è che quando necessito di ripulire i campi di testo devo richiamarla per ogni container; ma poiché i container_figli sono esclusi... devo chiamarla anche per ogni container_figlio...

Attendo i vostri suggerimenti...  

PS. il comando PRINT mi ha aiutato a capire fossero i Controls ed i relativi Containers interessati nel ciclo...

[Picavbg]

Scusa la mia curiosità, ma non ho capito perché vuoi generalizzare la ricerca degli oggetti interni ad una form con tutti i suoi figli.
Quando si presenta la necessità di fare pulizia dovresti trovarti nella Formx.class interessata, per cui dovresti sapere già quali sono gli oggetti che essa contiene; di conseguenza, anche quanti e quali pannelli la suddetta Formx contenga.
Vuoi forse creare una classe dinamica da richiamare per fare pulizia? Quando la richiami passale un array coi nomi ed i tipi degli oggetti da svuotare, cosicché la funzione richiamata possa uttilizzarli per svolgere il suo compito.
Ciao.

[perseo]

Il discorso è duplice:

1) nel mio gestionale ho diverse Forms con tanti Controls per l'input di dati, di testo. Quindi anziché fare la solita lista di pulizia di ogni controllo, uno per uno, volevo risolvere la questione creando una routine che "ripulisse", genericamente, solo quelli dentro i Containers che interessano a me.

2) a scopo didattico, per capire e prendere dimestichezza con il codice di programmazione.

Ho notato che il tempo di pulizia è decisamente superiore rispetto alla classica lista di .Text = "", perché con questo mio approccio l'eseguibile deve fare, oltre all'operazione di pulizia, anche quella di ciclo e ricerca dei Controls che m'interessano... però al momento mi soddisfa molto. Con queste 10 righe di codice, messe in un modulo pubblico, pulisco tutte le .Text del mio progetto che m'interessano.

Non ho capito bene il discorso della classe dinamica e dell'array, tieni conto che ho ricominciato a programmare da poco più di un mese (dopo diversi anni, ma anche allora molto sommariamente).

[fsurfing]

potresti fare un ciclo tra i cildren del container passando alla funzione il container come parametro(oggetto)

[perseo]

Perdonami fsurfing,
ma non ho capito molto il suggerimento che mi hai dato. 

A volte i container con le textbox sono annidati due o tre livelli sotto il principale.

[fsurfing]

certo che ti perdono del resto io non mi capisco mai quando scrivo!, purtroppo sono troppo stanco per farti un esempio ben fatto, ci penso in futuro 

[perseo]

Ok! 
I'm tuned. 

[fsurfing]

eccolo qui.

l' esempio considera solo textbox, ma naturalmente lo puoi modificare facilmente in modo da pulire eventuali searchbox,valuebox ecc ecc

[perseo]

Grazie fsurfing,

ma questo codice fa quello che fa anche il mio (anche se usa un approccio differente, che sperimenterò sicuramente: tu individui la textbox dal nome (quindi le textbox devono chiamarsi tutte textbox_qualcosa... mentre nel mio uso direttamente il nome della classe, quindi non devono avere nomi obbligati).
In pratica questo codice pulisce tutte le textbox che si trovano nel container dichiarato.
Io invece volevo che il container su cui richiami la routine, pulisca le sue textbox e tutte le altre textbox dei container in esso annidati (senza sapere quali siano), ma non quelle dei container superiori.

Seguendo il tuo progetto di esempio io vorrei che cliccando sul "pulisci" del container padre si puliscano tutte le textbox (anche quelle dei figli, e dei nipoti, ecc.   ), mentre cliccando il "pulisci" del container più interno (il nipote, l'ultimo in ordine di annidamento) si puliscano solo le sue textbox. Mentre se clicco sul "pulisci" del figlio si puliscono le sue e quelle del nipote, ma non del padre...
Ora, su una famiglia con tante discendenze... come si fa?

PS. alla fine mi sono rassegnato a lanciare la routine di pulizia per ogni container di ogni form (che al massimo sono 2 o 3)... però rimane la curiosità di sapere come si può risolvere questo quesito.  

[milio]

Prova con questo, che non e' altro che una modifica al codice di fsurfing

[perseo]

Milio,

questo codice pulisce tutte le textbox in tutti i panel, senza considerare gli annidamenti. In pratica pulisce tutte le textbox del form.

[milio]

Ok come al solito non avevo capito... allora ti suggerisco di 'giocare' sui nomi dei Panel nei quali vuoi agire sulle textbox...

[perseo]

E' una soluzione ma non mi piace. Se chiamo l'ultimo ed il penultimo xpanel, ma poi mi trovassi nella situazione di voler pulire solo l'ultimo... dovrei rinominare i panel...

La mia domanda era anche didattica per capire questa cosa.

Ho sempre saputo che il Form può essere inteso come un contenitore grosso... che contiene tutti gli oggetti che vi sono dentro. Se uso la pulizia sul Form pulisce qualsiasi cosa (compresi tutti i container in esso annidato); mentre se provo sui container questo non è possibile (cioè non è possibile risalire a tutta la discendenza). Perché?

Questo era il codice di pulizia delle textbox dell'intero form:

Codice: vb.net [Seleziona]

Public Sub pulizia(Optional salta As String)
Dim txt As Control
  For Each txt In Me.Controls
    If (Object.Class(txt).Name) = "TextBox" Or (Object.Class(txt).Name) = "TextArea" Then
      If txt.name <> salta Then Object.SetProperty(txt, "Text", Null)
    Endif
  Next
End

La mia curiosità è di sapere perché la classe "container" è priva della proprietà .Controls... (quella che nell'esempio fa fare il ciclo for each)

[milio]

Io purtroppo non ti so rispondere. 

Pero' che senso ha se prima vuoi eliminare tutti i dati contenuti nelle textbox di tutti i panel e poi solo in alcuni... 
Dovrai, ad ogni modo, fare dei controlli su quali panel devono essere coinvolti, quindi o con il nome del contenitore o con qualsiasi altro metodo dovrai comunque far capire a gambas su quale panel agire...

Non credo che ci sia una soluzione che si adatti a quello che stai pensando di fare, senza scrivere delle regole per un eventuale ricerca degli oggetti.