---

Σταύρος Βαλσάμης
Προγραμματιστής

Ωραίο... Ταιριάζει με αυτά που λέγαμε εδώ http://www.dotnetzone.gr/cs/forums/8805/ShowPost.aspx

---

Vir prudens non contra ventum mingit

Ωραίο!

Μια άλλη εναλλακτική, στην οποία δε χρειάζεται να δημιουργείς νέα collections κάθε φορά που θέλεις να "περπατήσεις" όλα τα controls μιας φόρμας, είναι μια function που κάνει walk όλο το control tree και καλεί τον delegate που της έχεις περάσει για ένα ένα control στη σειρά.

public delegate void ProcessControlDelegate(Control a_Control);

public void EnumerateControls(Control.ControlCollection a_Controls, ProcessControlDelegate a_Delegate)
{
 foreach (Control control in a_Controls)
 {
  a_Delegate(control);
  EnumerateControls(control.Controls, a_Delegate);
 }
}

 

Μπορείς να καλέσεις τον delegate μετά την αναδρομική κλήση της Enumerate controls αν θέλεις post order διάσχιση του δένδρου -- ή να το κάνεις παραμετρικό.

Και τον καλείς:

public void ShowControlName(Control a_Control)
{
 MessageBox.Show(a_Control.Name);
}

...

EnumerateControls(this.Controls, new ProcessControlDelegate(ShowControlName));

---

Νατάσα Μανουσοπούλου

Πάρα πολύ σωστά!!!
Θα μπορούσε και χωρίς την χρήση του Delegate, αλλά με χρήση Delegate μπορούμε να πάρουμε κι' άλλα properties με τον ίδιο enumarator.
ΠΧ. ControlNames as String() ή ControlTags ή οτιδήποτε άλλο, κάνοντας την κλήση με άλλο method στο Delegate EnumerateControls(_Container.controls, New ProcessControlDelegate(AddressOf AddControlName))

Η Class με την εναλλακτική λύση σε VB (ομολογώ πολύ καλύτερη και σωστότερη από την αρχική. Μπράβο mns).

Public Class MyControlsCollection

         Private _Controls As Collection

         Private _Container As Object

         Public Delegate Sub ProcessControlDelegate(ByVal a_Control As Control)

         Public Sub New(ByVal Container As Object)

                  _Container = Container

         End Sub

         Public ReadOnly Property Controls() As Collection

                  Get

                        If _Controls Is Nothing Then

                           _Controls = New Collection

                           EnumerateControls(_Container.controls, New ProcessControlDelegate(AddressOf AddControl))

                        End If

                        Return _Controls

                  End Get

         End Property

         Public Sub EnumerateControls(ByVal a_Controls As Control.ControlCollection, ByVal a_Delegate As   ProcessControlDelegate)

       For Each control As Control In a_Controls

               a_Delegate(control)

               If IsContainer(control) AndAlso control.HasChildren Then

                  EnumerateControls(control.Controls, a_Delegate)

               End If

         Next

         End Sub

         Private Sub AddControl(ByVal Control As Control)

                  _Controls.Add(Control, Control.Name)

        End Sub

         Private Function IsContainer(ByVal ctl As Object) As Boolean

                  Dim des As System.ComponentModel.DesignerAttribute = _

                  TypeDescriptor.GetAttributes(ctl).Item(GetType(System.ComponentModel.DesignerAttribute))

                  If des Is Nothing Then Exit Function

                        Dim Base As System.Type = System.Type.GetType(des.DesignerTypeName.ToString)

                        Return Base.IsSubclassOf(GetType(System.Windows.Forms.Design.ParentControlDesigner))

         End Function

End Class

---

Σταύρος Βαλσάμης
Προγραμματιστής

Θα μου επιτρέψετε να διαφωνίσω με τα παραπάνω χωρίς όμως αυτό να σημαίνει πως δεν σέβομαι το χρόνο και τη μελέτη που αφιέρωσε ο/οι συνάδελφοι για να βγάλουν και αυτή την εναλλακτική λύση. Όμως ρε παιδιά προγραμματισμός είναι να γράφεις αυτό που θέλεις με λίγες γραμμές και έξυπνες γραμμές κώδικα. να χρησιμοποιείς όλες τις δυνατότητες του VS και να προχωράς... Αφού έχουμε το controls collection για κάθε φόρμα γιατί να καθόμαστε να εφεύρουμε τον τροχό από την αρχή; Δεν το καταλαβαίνω.

Αν το παραπάνω αφορά μία άσκηση για να καταλάβουμε πως τυχόν μπορεί να υλοποιείται η control collection το δέχομαι. Αλλά αν το προτείνεται ως λύση για να χρησιμοποιούν οι υπόλοιποι τότε συγνώμη είμαι κάθετα αντίθετως.

Γιατί το ControlsCollection, αν το καλέσεις στη φόρμα θα σου επιστρέψει μόνο τα Controls που είναι πάνω σε αυτήν και όχι και αυτά που είναι σε κάποιον container πάνω στη φόρμα.
Δηλαδή. Μέσα σε μία φόρμα βάλε ένα GroupBox και μέσα σε αυτό βάλε κάποιο Button.
To From.Controls δεν θα περιλαμβάνει το button ενώ η λύση που κάναμε post θα το περιλαμβάνει.

---

Σταύρος Βαλσάμης
Προγραμματιστής

Private Sub ClearControlsText(ByVal theContainerControl As Control)
Dim Ctrl As Control
For Each Ctrl In theContainerControl.Controls
Ctrl.Text = ""
If Ctrl.HasChildren Then ClearControlsText(Ctrl)
Next
End Sub

Αν γράψεις αυτό θα παίζει μία χαρά. Το παραπάνω θα σου αδείασει ακόμα και το text τον buttons αλλά μπορείς να κάνει ένα έλεγχο για το τι control έχουμε σε κάθε for each.

Xρειάζεται να έχω έλεγχο για κάθε control που δεν θέλω να μου καθαρίσει τον τύπο του (Button, Label, GroupBox, TabPage κλπ.).
Και καλά να είναι τύπος που γνωρίζω για να το εξαιρέσω.
Αν είναι κάποιο UserControl;
Aν δεν θέλω να κάνω clearText αλλά θέλω να πάρω το Controls.Count;
ΠΧ Φτιάξε ένα User control και βάλε μέσα ένα άλλο User Control ένα label και ένα TextBox και βάλτο μέσα σε ένα GroupBox μίας φόρμας.
Στην περίπτωση που χρησιμοποιήσω την Wrapper Class το Controls.COunt θα είναι δύο (ένα το GroupBox και ένα to USer Control αδιάφορο του πόσα controls περιέχει αυτό), ενώ στην περίπτωση που υποδυκνείεις θα είναι πολύ περισσότερα.
Για να το κάνω αυτό χωρίς το Class χρειάζομαι πολύ περισσότερο κώδικα από αυτόν του ίδιου του Class.
Τώρα αν αυτό χρειάζεται σε πολλές φόρμες, με τον τρόπο που υποδεικνύεις χρειάζεται αυτόν το κώδικα να τον γράψω πολλές φορές σε πολλές φόρμες.
Για τον λόγο αυτό, δημιουργούμε ένα Wrapper Class μία φορά και το καλούμε μέσα από την φόρμα με δύο γραμμές κώδικα και με εξασφαλισμένο το σωστό Controls Collection.

---

Σταύρος Βαλσάμης
Προγραμματιστής

Πιστεύω πως αυτή η συζήτηση θα συνεχίζεται για πολύ καιρό ακόμα με διάφορα επιχειρήματα. Άλλα σημαντικά και άλλα όχι. Μπορώ να αντικρούσω όλα τα παραπάνω που λες, όπως του ότι χρειάζεται να γράφεται σε κάθε φόρμα ή για το Count property. Νομίζω όμως πως δεν είναι αναγκαίο, απλά ήθελα να δείξω μία εναλλακτική και πιο απλή λύση για τους λόγους που έγραψα στο αρχικό μου post.

Έχω ξαναγράψει και σε άλλο post πως τα παραδείγματα που γράφω είναι απλά για να μπορεί να καταλαβαίνει ο κάθε ένας το νόημα και απο εκεί και πέρα να βάλει τις δικές του παραλλαγές. Ας διαβάσει ο κάθε ενδιαφερόμενος και ας κρίνει μόνος του. Προσωπικά μου αρέσει ο απλός, έξυπνος και με λίγες γραμμές κώδικα πάντα.

Εκανες πάρα πολύ καλά infoCENTER, που έκανες τις παρατηρήσεις σου και έκανες post μία πολύ απλή και καλή λύση.
Αλλωστε βρισκόμαστε εδώ ακριβώς γι' αυτό το λόγο.

---

Σταύρος Βαλσάμης
Προγραμματιστής

Code reuse = holy grail.

Το να μπορείς να χρησιμοποιείς τον ίδιο κώδικα και αλλού υπό τη μορφή component μπορεί να σου λύσει τα χέρια, και να σου γλυτώσει αρκετό χρόνο.

Το μόνο "πρόβλημα"; Έχουμε την τάση να προσθέτουμε συνεχώς καινούρια features στα components αυτά, με αποτέλεσμα πολλές φορές να καταλήγουμε σε λύσεις τόσο περίπλοκες, όσο και τα application blocks του .net community.

---

Μην αφήνετε τα media να σας "ταΐζουν"!

Ο Walker που κάνει το Loop του InfoCENTER, δεν είναι και πολύ διαφορετικός από αυτόν του Class. Απλά το function αυτό (EnumarateControls) το βάλαμε σε ένα Class που έχει ένα property Controls Collection, έτσι ώστε μέσα σε κάθε φόρμα να μήν με απασχολεί να μαζέψω τα controls αλλά να τα διαχειριστώ ανάλογα με τις ανάγκες της φόρμας.

Πιο κάτω  είναι μία πιο απλή εναλλακτική λύση, με ενσωμάτωση της πρότασης του InfoCENTER, μόνο που αντί να κάνω clear το text το βάζω στο Collection _Controls, ενώ κάνω walk μόνο τα Controls όπως GroupBox, Panel, TabPage κλπ.

Public Class MyControlsCollection
Private _Controls As Collection

Public Sub New(ByVal Container As Object)
           _Controls = New Collection
           EnumerateControls(Container.Controls)
End Sub

Public ReadOnly Property Controls() As Collection
      Get
         Return _Controls
   End Get

End Property

Public Sub EnumerateControls(ByVal a_Controls As Control.ControlCollection)

         For Each control As Control In a_Controls
               _Controls.Add(Control, Control.Name)
               If IsContainer(control) AndAlso control.HasChildren Then
                  EnumerateControls(control.Controls)
               End If
         Next

End Sub

Private Function IsContainer(ByVal ctl As Object) As Boolean

            Dim des As System.ComponentModel.DesignerAttribute = _
            TypeDescriptor.GetAttributes(ctl).Item(GetType(System.ComponentModel.DesignerAttribute))

            If des Is Nothing Then return false
            Dim Base As System.Type = System.Type.GetType(des.DesignerTypeName.ToString)
            Return Base.IsSubclassOf(GetType(System.Windows.Forms.Design.ParentControlDesigner))

End Function

End Class

Αυτός κατά τη γνώμη μου είναι ο απλούστερος τρόπος να διαχειριστεί κανείς σωστά το Controls Collection ενός Container.

ClearText:
Κατά την άποψή μου ο σωστότερος (όχι όμως και ο απλούστερος) τρόπος  που εφαρμόζω στις δικές μου εφαρμογές για το Clear Text είναι ο εξής:

Δημιουργείς ένα control Inherits TextBox ή οτιδήποτε άλλο (πχ third party) που θέλεις να καθαρίζεται και το μαρκάρεις με ένα δικό σου Attribute έστω myAttribute στο οποίο μπορείς να βάλεις οποιοδήποτε property ανάλογα με τις ανάγκες σου.
Στο πιο πάνω Class βάζεις ένα function ClearText και στο loop ελέγχεις :

if Not TypeDescriptor.GetAttributes(ctl).Item(GetType(MyAttribute)) is Nothing then
   ctl.text = ""
end if

Επειδή όμως μου αρέσει πολύ (και έχει αποδειχθεί πολύ χρήσιμο) να διατηρώ  Components όσο πιο core γίνεται, εγώ θα έκανα Overridable το EnumarateControls και θα δημιουργούσα ένα νέο Class (Inherits το MyControlsCollection).
Μέσα σε αυτό το Class θα έκανα Override το EnumerateControls έτσι ώστε να μαζεύει μόνο τα Controls με το MyAttribute, και ένα Public method ClearControls. Στο Construction θα του πέρναγα το Controls.Collection του MyCOntrolsCollection, κάπως έτσι:

Dim ClearTextControls = New InheritedMyCollection(AllControls)
ClearTextControls.ClearText

Θα προσπαθήσω όταν βρώ λίγο χρόνο να κάνω ένα post με τον πλήρη κώδικα αυτής της λύσης.

---

Σταύρος Βαλσάμης
Προγραμματιστής