01-05-22, 07:09 PM
(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
