26-04-16, 09:53 AM
السلام عليكم
مرحبا شباب كيف حالكم
هذا كود يغير لك لون النص والخلفية لكل تيكست بوكس في الفورم بدون الحاجة لكتابته بإسم كل تكست بوك
مثلا textbox1 , textbox2 في الكود ستكتب textbox فقط وسيقوم بتغيير كل التيكست بوكس في الفورم
مثال
عندي فورم فيها 3 تيكست بوكس لون النص والخلفية فيها بالون الافتراضي نريد تغيير لون النص والخلفية لكل تيكست بوكس الى اللون الاسود للخلفية والاحمر للنص في مرة واحدة دون الحاجة لكتابة كود التغيير لكل تيكست بوكس بإسمه
بهذا الكود يمكنك فعل ذلك بكل سهولة
ويمكنك أيضاً تغيير كل خصائص التكيست بوكس كنوع الخط أيضاً ليس فقط اللون ويمكنك تغيير خصائص كل عنصر تحكم في الفرم بتغيير كلمة TextBox الى سم العنصر الذي تريد مثلا Label أو ComboBox
ارجوا أن ينال اعجابكم وأن تستفيدوا منه وفي إنتظار النقد البناء من الخبراء
مرحبا شباب كيف حالكم
هذا كود يغير لك لون النص والخلفية لكل تيكست بوكس في الفورم بدون الحاجة لكتابته بإسم كل تكست بوك
مثلا 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
ارجوا أن ينال اعجابكم وأن تستفيدوا منه وفي إنتظار النقد البناء من الخبراء