تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تغير لون مربع النص
#1
ما هي المشكله في عدم الاستطاعه في تغير لون مربعات النص للعلم استخدمت الكود
بالاخص إذا كان في 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


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


الملفات المرفقة
.zip   WindowsApplication2.zip (الحجم : 72.28 ك ب / التحميلات : 11)
الرد
تم الشكر بواسطة:
#2
لأنك بتعدل خلفية الأدوات اللي في الفورم مباشرة
ولكن التكست بوكس المطلوبة موجودة في بانل
لهذا يجب البحث داخل أدوات البانل أيضا

يمكنك انشاء 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

الرد
#3
(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
الرد
#4
(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) 'لأدوات قروب بوكس معين فقط

الرد
#5
لك مني خالص الشكر والتقدير أخي محمد كريم
الرد
#6
اختصار جديد للكود :

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''لأدوات قروب بوكس معين فقط 
الرد
#7
إضافة جميلة أخي عاصم شكرا لك

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

الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تحويل النص الى صوت mne3000 5 112 , 05:19 PM
آخر رد: ابو روضة
  طلب كود لحذف الجزء المظلل عليه من النص في التيكست بوكس waelalmsry75 4 151 26-03-20, 01:53 AM
آخر رد: Mahmoud_2020
  [سؤال] فتح الفورم بحسب اسم الفورم الموجود في مربع النص بسام هزاع 2 83 24-03-20, 11:22 PM
آخر رد: kiki
  تغير ترتيب السجلات بعد الحفظ من خلال الداتاقريدفيو جيولوجي مبتدئ 2 66 19-03-20, 03:23 AM
آخر رد: جيولوجي مبتدئ
  [VB.NET] البحث عن اي جزء من أي كلمة في مربع نص واحد waelalmsry75 9 1,904 13-03-20, 02:49 AM
آخر رد: waelalmsry75
  تغير هذا الكود من ListBox الى ال ListView ابو روضة 9 284 07-02-20, 10:49 PM
آخر رد: alsalamoni
  محتاج برنامج جاهز او كود تغير ال الاي بي كل ثانيه اتوماتيك ahmedhhh2 10 619 07-02-20, 01:44 PM
آخر رد: ahmedhhh2
  طلب كود يقوم مقام (دبل كليك).. وكود للانتقال إلى الكلمة التالية في النص waelalmsry75 2 169 31-01-20, 03:54 AM
آخر رد: waelalmsry75
  النص الطويل للكرستال ريبورت DOX.1 3 247 20-11-19, 02:12 AM
آخر رد: DOX.1
  سؤال في تغير كود هل تنفع هذه الطريقه ام لا اليوم السابع 1 167 16-11-19, 02:18 PM
آخر رد: 3booody

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم