تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التحكم فى لون خلفية الازرار من خلال الكود
#1
السلام عليكم اخواني .

هل من الممكن تغير لون خلفية جميع الازرار الموجودة على FORM بكود واحد .

انا استخدم هذا الكود لتغير لون كل زر منفصل .

  Button7.BackColor = Color.LightSteelBlue
        Button11.BackColor = Color.LightSteelBlue
        Button15.BackColor = Color.LightSteelBlue
       Button19.BackColor = Color.LightSteelBlue
       Button23.BackColor = Color.LightSteelBlue
      Button25.BackColor = Color.LightSteelBlue
        Button26.BackColor = Color.LightSteelBlue
   
فهل تغير الون لجميع Button على FORM بكود واحد

و شكرا
الرد
تم الشكر بواسطة:
#2
(26-04-22, 08:22 PM)nabil.1710 كتب : السلام عليكم اخواني .

هل من الممكن تغير لون خلفية جميع الازرار الموجودة على FORM بكود واحد .

انا استخدم هذا الكود لتغير لون كل زر منفصل .

  Button7.BackColor = Color.LightSteelBlue
        Button11.BackColor = Color.LightSteelBlue
        Button15.BackColor = Color.LightSteelBlue
       Button19.BackColor = Color.LightSteelBlue
       Button23.BackColor = Color.LightSteelBlue
      Button25.BackColor = Color.LightSteelBlue
        Button26.BackColor = Color.LightSteelBlue
   
فهل تغير الون لجميع Button على FORM بكود واحد

و شكرا
 و عليكم السلام و رحمة الله و بركاته
استعمل الكود التالي في حدث form on load  او زر منفصل
كود :
For Each ctl As Control In Me.Controls
           If TypeOf ctl Is Button Then
               ctl.BackColor = Color.LightSteelBlue
           End If
       Next
الرد
تم الشكر بواسطة: ابو روضة , ابو انس , Taha Okla
#3
(26-04-22, 10:57 PM)asmarsou كتب :
(26-04-22, 08:22 PM)nabil.1710 كتب : السلام عليكم اخواني .

هل من الممكن تغير لون خلفية جميع الازرار الموجودة على FORM بكود واحد .

انا استخدم هذا الكود لتغير لون كل زر منفصل .

  Button7.BackColor = Color.LightSteelBlue
        Button11.BackColor = Color.LightSteelBlue
        Button15.BackColor = Color.LightSteelBlue
       Button19.BackColor = Color.LightSteelBlue
       Button23.BackColor = Color.LightSteelBlue
      Button25.BackColor = Color.LightSteelBlue
        Button26.BackColor = Color.LightSteelBlue
   
فهل تغير الون لجميع Button على FORM بكود واحد

و شكرا
 و عليكم السلام و رحمة الله و بركاته
استعمل الكود التالي في حدث form on load  او زر منفصل
كود :
For Each ctl As Control In Me.Controls
           If TypeOf ctl Is Button Then
               ctl.BackColor = Color.LightSteelBlue
           End If
       Next
جزاك الله خيرا يعمل جيدا .
فضلا منك اريد ايضا ان استخدم كود كهذا لتغير لون جميع الازرار فى جميع فورم البرنامج حيث 12 فورم * 6 ازرار .
وشكرا
الرد
تم الشكر بواسطة:
#4
(01-05-22, 04:08 AM)nabil.1710 كتب :
(26-04-22, 10:57 PM)asmarsou كتب :
(26-04-22, 08:22 PM)nabil.1710 كتب : السلام عليكم اخواني .

هل من الممكن تغير لون خلفية جميع الازرار الموجودة على FORM بكود واحد .

انا استخدم هذا الكود لتغير لون كل زر منفصل .

  Button7.BackColor = Color.LightSteelBlue
        Button11.BackColor = Color.LightSteelBlue
        Button15.BackColor = Color.LightSteelBlue
       Button19.BackColor = Color.LightSteelBlue
       Button23.BackColor = Color.LightSteelBlue
      Button25.BackColor = Color.LightSteelBlue
        Button26.BackColor = Color.LightSteelBlue
   
فهل تغير الون لجميع Button على FORM بكود واحد

و شكرا
 و عليكم السلام و رحمة الله و بركاته
استعمل الكود التالي في حدث form on load  او زر منفصل
كود :
For Each ctl As Control In Me.Controls
           If TypeOf ctl Is Button Then
               ctl.BackColor = Color.LightSteelBlue
           End If
       Next
جزاك الله خيرا يعمل جيدا .
فضلا منك اريد ايضا ان استخدم كود كهذا لتغير لون جميع الازرار فى جميع فورم البرنامج حيث 12 فورم * 6 ازرار .
وشكرا
 لك ذلك ... فقط ا ضف مؤقت على ان يكون مفعلا ثم ضع به الكود التالي ليصبح هكذا
كود :
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       For Each F As Form In Application.OpenForms
           For Each ctl As Control In F.Controls
               If TypeOf ctl Is Button Then
                   ctl.BackColor = Color.LightSteelBlue
               End If
           Next
       Next
   End Sub
الرد
تم الشكر بواسطة: ابو روضة
#5
وعليكم السلام ورحمة الله وبركاته

قم بإضافة (Module1) للمشروع إن لم تكن قد أضفت واحدة حتى الآن، وضع فيها الكود التالي :
كود :
Sub ChangeButtonColor(pForm As Form, pColor As Color)
       For Each ctl As Control In pForm.Controls
           If TypeOf ctl Is Button Then
               ctl.BackColor = pColor
           End If
       Next
   End Sub

وفي حدث الـ (Load) لكل فورم ضع فيه الكود التالي :
كود :
ChangeButtonColor(Me, Color.LightSteelBlue)


لاحظ بإمكانك تخصيص اللون للازرار في كل نافذة على حدى.. بدون أن تجعل كل النوافذ متشابهة بألوان الازرار..

قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد
تم الشكر بواسطة: asmarsou , ابو روضة , nabil.1710 , nabil.1710
#6
(01-05-22, 11:26 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

قم بإضافة (Module1) للمشروع إن لم تكن قد أضفت واحدة حتى الآن، وضع فيها الكود التالي :
كود :
Sub ChangeButtonColor(pForm As Form, pColor As Color)
       For Each ctl As Control In pForm.Controls
           If TypeOf ctl Is Button Then
               ctl.BackColor = pColor
           End If
       Next
   End Sub

وفي حدث الـ (Load) لكل فورم ضع فيه الكود التالي :
كود :
ChangeButtonColor(Me, Color.LightSteelBlue)


لاحظ بإمكانك تخصيص اللون للازرار في كل نافذة على حدى.. بدون أن تجعل كل النوافذ متشابهة بألوان الازرار..
بارك الله لك و فيك
الرد
تم الشكر بواسطة: ابو روضة , Taha Okla
#7
(01-05-22, 11:26 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

قم بإضافة (Module1) للمشروع إن لم تكن قد أضفت واحدة حتى الآن، وضع فيها الكود التالي :
كود :
Sub ChangeButtonColor(pForm As Form, pColor As Color)
       For Each ctl As Control In pForm.Controls
           If TypeOf ctl Is Button Then
               ctl.BackColor = pColor
           End If
       Next
   End Sub

وفي حدث الـ (Load) لكل فورم ضع فيه الكود التالي :
كود :
ChangeButtonColor(Me, Color.LightSteelBlue)


لاحظ بإمكانك تخصيص اللون للازرار في كل نافذة على حدى.. بدون أن تجعل كل النوافذ متشابهة بألوان الازرار..

شكرا لك اخي وجعله الله فى ميزان حسناتك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] التحديث من خلال الـ DropBox متوقف ما الحل؟ abomo3ath 1 150 06-05-22, 09:11 PM
آخر رد: سعود
Question عمل برنامج يقوم بارسال رسايل واتساب من خلال الاكسل نسيم الشباطي 1 618 20-03-22, 01:21 PM
آخر رد: عدنان الشمري
  السلام عليكم 2 مشكله حقل data type نوع text لو الكود اكثر من 10احرف لا يضيف ahmedhhh2 4 544 17-03-22, 12:52 AM
آخر رد: ahmedhhh2
  شرح تحزيم وتوزيع برنامج فيجوال بازيك2012 من خلال Setup Factory 9 مع العلم انو يتضمن ahmedbezia 14 3,376 15-03-22, 10:37 PM
آخر رد: Moham
  [VB.NET] كيفية تنفد كود من خلال زر في form ثانيه hafid33 4 645 11-03-22, 10:22 PM
آخر رد: hafid33
  جملة الاتصال من خلال ملف txt atefkhalf2004 7 703 22-02-22, 09:26 PM
آخر رد: atefkhalf2004
  انشاء مستخدم لقواعد البيانات اوراكل من خلال الفيجول ابراهيم الضبري 0 367 16-02-22, 08:36 PM
آخر رد: ابراهيم الضبري
  كيف يمكن نسخ ولصق خلية من خلال لوحة المفاتيح في datagridview البراء 4 2,612 12-02-22, 06:48 PM
آخر رد: رضوان الجماعي
  [كود] مساعدة في حل مشكل هذا الكود Necro PC 3 512 01-02-22, 01:12 PM
آخر رد: Necro PC
  كيف اجعل خلفية اداة Label1 شفافة aftfm 8 3,244 29-01-22, 01:42 AM
آخر رد: محمود الصياد

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


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