منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تغير لون مربع النص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تغير لون مربع النص (/showthread.php?tid=32392)

تغير لون مربع النص - alshandodi - 06-12-19

ما هي المشكله في عدم الاستطاعه في تغير لون مربعات النص للعلم استخدمت الكود
بالاخص إذا كان في Panel 
كود :
      For Each ctrl As Control In Me.Controls
           If TypeOf ctrl Is TextBox Then
               ctrl.BackColor = My.Settings.color4
               ctrl.ForeColor = My.Settings.color9
           End If
       Next


ولكم مني جزيل الشكر والتقدير اخوتي الاعزاء


RE: تغير لون مربع النص - محمد كريّم - 06-12-19

لأنك بتعدل خلفية الأدوات اللي في الفورم مباشرة
ولكن التكست بوكس المطلوبة موجودة في بانل
لهذا يجب البحث داخل أدوات البانل أيضا

يمكنك انشاء function خاصة بالبحث في أدوات الفورم إذا كانت تكست بوكس فيغير الخلفية واذا كانت بانل او قروب بوكس فيبحث داخلها ثم يغير اللون اذا وجد ادوات تريد تغييرها

كود :
       For Each ctrl As Control In Panel1.Controls
           If TypeOf ctrl Is TextBox Then
               ctrl.BackColor = Color.Black
               ctrl.ForeColor = Color.White
           End If
       Next


RE: تغير لون مربع النص - alshandodi - 06-12-19

(06-12-19, 04:29 PM)محمد كريّم كتب : لأنك بتعدل خلفية الأدوات اللي في الفورم مباشرة
ولكن التكست بوكس المطلوبة موجودة في بانل
لهذا يجب البحث داخل أدوات البانل أيضا

يمكنك انشاء function خاصة بالبحث في أدوات الفورم إذا كانت تكست بوكس فيغير الخلفية واذا كانت بانل او قروب بوكس فيبحث داخلها ثم يغير اللون اذا وجد ادوات تريد تغييرها

كود :
       For Each ctrl As Control In Panel1.Controls
           If TypeOf ctrl Is TextBox Then
               ctrl.BackColor = Color.Black
               ctrl.ForeColor = Color.White
           End If
       Next


شكرا جزيلا لك اخي العزيز محمد كريّم
ما هو Function للبحث داخل كامل الفورم لان يوجد لدي اكثر من panel

RE: تغير لون مربع النص - محمد كريّم - 06-12-19

(06-12-19, 05:28 PM)alshandodi كتب : شكرا جزيلا لك اخي العزيز محمد كريّم
ما هو Function للبحث داخل كامل الفورم لان يوجد لدي اكثر من panel



آسف هو Sub لا يرجع قيمة وليس Function

كود :
   
    Private Sub StyleControls(ParentCtrl As Control)

        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 TypeOf ctrl Is Panel Then
                StyleControls(ctrl)

            ElseIf TypeOf ctrl Is GroupBox Then
                StyleControls(ctrl)

            End If

        Next
    End Sub



طريقة الاستخدام :


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


RE: تغير لون مربع النص - alshandodi - 06-12-19

لك مني خالص الشكر والتقدير أخي محمد كريم


RE: تغير لون مربع النص - asemshahen5 - 12-12-19

اختصار جديد للكود :

PHP كود :
   Public Sub StyleControls(ParentCtrl As Control)
        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 Then
                StyleControls(ctrl)
            End If
        Next
    End Sub 

نفس طريقة الاستخدام .

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


RE: تغير لون مربع النص - محمد كريّم - 13-12-19

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

أول مرة أتعرف على الـ 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) 'لأدوات قروب بوكس معين