بســم الله الـرحمــن الرحيــم
الزملاء الأفاضل السلام عليكم ورحمة الله وبركاته
انا مشترك في هذا المنتدى المحترم منذ فترة طويلة ولا أنكر أني استفدت منه الكثير والكثير.فجزى الله القائمين عليه والمشاركين خير الجزاء
واليوم احتجت لمعرفة كيفية التحكم في لون الخلفية لبعض الكائنات من خلال VB.net مثل Label , Textbox ... عن طريق الكود. والحقيقة لم أوفق في العثور على مرادي في منتدانا هذا أو غيره من منتديات كثيرة (ربما كان موجوداً فعلاً ولكني لم أوفق في العثور عليه)
والآن وبعد أن هداني الله إليه أحببت أن تشاركوني فيه عسى الله أن يفعكم به وينفعني بدعائكم
يمكن التحكم باللون باستخدام هذا الكود
TextBox1.BackColor = Color.Red
Label1.BackColor = Color.Green
أما إذا أردته بدلالة قيم رقمية فقد تعودنا استخدام دالة RGB في VB6 أما في دوت نت فيمكن استخدام الدالة الشبيهة
FromArgb بالصيغة الآتية
Label1.BackColor = System.Drawing.Color.FromArgb(80, 170, 240)
ويمكن تنفيذ هذا المثال البسيط كتطبيق ظريف
الكائنات المطلوبة Label باسم Label1
عدد 3 شريط تمرير أفقي Horizontal scroll bar بأسماء HS1 , HS2 , HS3
بالنقر المزدوج على كل واحد من أشرطة التمرير الثلاثة وبالدخول إلى صفحة الكود نكتب هذا السطر
Label1.BackColor = System.Drawing.Color.FromArgb(Me.HS1.Value, HS2.Value, HS3.Value)
سنلاحظ عند التشغيل (بضغط مفتاح F5 )عند الضغط على أشرطة التمرير سيتغير لون الـ Label
يمكن إذا أحببت إضافة الكود الآتي وذلك بالنقر المزدوج على الـ Label في شاشة التصميم للدخول إلى شاشة الكود ونكتب الكود الآتي
Me.BackColor = Me.Label1.BackColor
ولاحظ النتيجة
أرجو أن أكون قد أفدت
ولكم جزيل الشكر