[Taha Okla]

لو كل الأزرار التي تريد تلوينها فيها شيء مشترك غير موجود في غيرها ..
مثلاً كلها تحتوي في تسميتها (خاصية (Name)) الكلمة ("BTNRG")
فيصبح الكود المسؤول عن تلوين الأزار :

كود :

Dim xBt = From bt In Controls.OfType(Of ButtonBase)()
           Where bt.Name.Contains("BTNRG")
           Select bt
For Each b1 In xBt
   b1.BackColor = Color.FromArgb(255, 200, 200, 20)
Next

 
ملاحظة1 : هذا الكود حساس لحالة الأحرف، فإن تغير شكل الحرف (من كبير لصغير أو العكس) توقف عن العمل..
فيفضل حينها استخدام خاصية شكل الحرف الموحد بإستخدام خاصية (ToUpper)  أو (ToLower)..


ملاحظة 2 : هنالك أكواد أفضل من هذا  بكثير وفيها إبداع ملحوظ،، ولكن تحتاج أن تبحث ضمن المنتدى وتجرب بنفسك ..