كود بسيط لتغيير لون النص والخلفية لكل ليبل وا تيكست بوكس في الفرم

[غزوان خليل]

هذا كود يغير لك لون النص والخلفية لكل تيكست بوكس في الفورم بدون الحاجة لكتابته بإسم كل تكست بوك 
مثلا  textbox1 , textbox2  في الكود ستكتب  textbox  فقط   وسيقوم بتغيير كل التيكست بوكس في الفورم

مثال   

عندي  فورم فيها  3 تيكست بوكس  لون النص والخلفية فيها بالون الافتراضي  نريد تغيير لون النص والخلفية لكل تيكست بوكس الى اللون الاسود للخلفية والاحمر للنص في مرة واحدة دون الحاجة لكتابة كود التغيير لكل تيكست بوكس بإسمه

بهذا الكود يمكنك فعل ذلك بكل سهولة 

For Each ctrl As Control In Me.Controls
           If TypeOf ctrl Is TextBox Then
               ctrl.BackColor = Color.Black
               ctrl.ForeColor = Color.Red

           End If
       Next

ويمكنك أيضاً تغيير كل خصائص التكيست بوكس كنوع الخط أيضاً ليس فقط اللون ويمكنك تغيير خصائص كل عنصر تحكم في الفرم بتغيير  كلمة  TextBox الى سم العنصر الذي تريد مثلا Label أو  ComboBox

ارجوا أن ينال اعجابكم وأن تستفيدوا منه