منتديات المبرمجون الاقباط
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

تلاشي أداة النصوص Label

اذهب الى الأسفل

تلاشي أداة النصوص Label Empty تلاشي أداة النصوص Label

مُساهمة من طرف Coptic_Programmer الجمعة يوليو 03, 2009 9:40 am

أضف إلى الفورم Label1 وTimer1 وغير خاصية Interval إلى 50 مثلاً

أضف الكود اتالي إلى قسم التصريحات General:

Dim a As Integer
Dim b As Boolean

أضف الكود التالي إلى التايمر

If a > 455 Then b = True
If a < 10 Then b = False
If b Then a = a - 10 Else a = a + 10
Label1.ForeColor = RGB(a, a, a)

Coptic_Programmer
مشرف برامج
مشرف برامج

المساهمات : 43
تاريخ التسجيل : 29/10/2008

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى