تلاشي أداة النصوص Label
صفحة 1 من اصل 1
تلاشي أداة النصوص 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)
أضف الكود اتالي إلى قسم التصريحات 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
مواضيع مماثلة» كود لتحرير النصوص كمشروع اولى لبرنامج الوورد
» كيف تجعل النص يظهر بشكل عمودي في الأداة Label
» اريد تحميل أداة text to speech تدعم اللغة القبطية
» كيف تجعل النص يظهر بشكل عمودي في الأداة Label
» اريد تحميل أداة text to speech تدعم اللغة القبطية
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى