التحكم فى لون خلفية الازرار من خلال الكود

التحكم فى لون خلفية الازرار من خلال الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=41326)

التحكم فى لون خلفية الازرار من خلال الكود - nabil.1710 - 26-04-22

السلام عليكم اخواني .

هل من الممكن تغير لون خلفية جميع الازرار الموجودة على 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 بكود واحد

و شكرا

RE: التحكم فى لون خلفية الازرار من خلال الكود - asmarsou - 26-04-22

(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

RE: التحكم فى لون خلفية الازرار من خلال الكود - nabil.1710 - 01-05-22

(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 ازرار .
وشكرا

RE: التحكم فى لون خلفية الازرار من خلال الكود - asmarsou - 01-05-22

(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

RE: التحكم فى لون خلفية الازرار من خلال الكود - Taha Okla - 01-05-22

وعليكم السلام ورحمة الله وبركاته

قم بإضافة (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)

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

RE: التحكم فى لون خلفية الازرار من خلال الكود - asmarsou - 02-05-22

(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)

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

بارك الله لك و فيك

RE: التحكم فى لون خلفية الازرار من خلال الكود - nabil.1710 - 03-05-22

(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)

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

شكرا لك اخي وجعله الله فى ميزان حسناتك