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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تلاشي أداة النصوص 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

معاينة صفحة البيانات الشخصي للعضو

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة

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

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