+- الفريق العربي للهندسة العكسية (https://www.at4re.net/f)
+-- قسم : منتديات البرمجة - Programming Forums (https://www.at4re.net/f/forum-5.html)
+--- قسم : قسم البرمجة العام - General Programming Section (https://www.at4re.net/f/forum-15.html)
+--- الموضوع : كود بسيط لتغيير لون النص والخلفية لكل ليبل وا تيكست بوكس في الفرم (/thread-772.html)
كود بسيط لتغيير لون النص والخلفية لكل ليبل وا تيكست بوكس في الفرم - غزوان خليل - 12-05-2019
هذا كود يغير لك لون النص والخلفية لكل تيكست بوكس في الفورم بدون الحاجة لكتابته بإسم كل تكست بوك
مثلا 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
ارجوا أن ينال اعجابكم وأن تستفيدوا منه