[محمد كريّم]

إضافة جميلة أخي عاصم شكرا لك

أول مرة أتعرف على الـ property اللي اسمها HasChildren


إضافتك تضيف احتمالية رغبة المستخدم في استثناء بعض الأدوات داخل الفورم
لهذا يمكن اضافة باراميتر ثاني للميثود يقرر فيه تضمينها او استثنائها

كود :

   Private Sub StyleControls(ParentCtrl As Control, Optional IncludeChildsWithChilds As Boolean = True)

       For Each ctrl As Control In ParentCtrl.Controls

           If TypeOf ctrl Is TextBox Then
               ctrl.BackColor = Color.Black
               ctrl.ForeColor = Color.White

           ElseIf TypeOf ctrl Is Button Then
               ctrl.BackColor = Color.Black
               ctrl.ForeColor = Color.White

           ElseIf TypeOf ctrl Is ComboBox Then
               ctrl.BackColor = Color.Black
               ctrl.ForeColor = Color.White

           ElseIf ctrl.HasChildren = True And IncludeChildsWithChilds Then
               StyleControls(ctrl)

           End If

       Next
   End Sub

الاستخدام :

كود :

       StyleControls(Me) 'للفورم وكل الأدوات الحاوية بداخله
       StyleControls(Me, False) 'للأدوات على الفورم فقط مع استثناء الأدوات الحاوية بداخله

       StyleControls(Panel1) 'لأدوات بانل معين فقط
       StyleControls(GroupBox1) 'لأدوات قروب بوكس معين