تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تغيير لون الاداة لفترة محددة
#2
PHP كود :
Private Sub cmdstart_Click()
Timer1.Enabled Not (Timer1.Enabled)
End Sub
Private Sub Form_Load()
Randomize
End Sub
Private Sub Timer1_Timer()
Dim i As Integer
Int(Rnd() * 5)
Select Case i
Case 0
Label1
.ForeColor vbBlack
Case 1
Label1
.ForeColor vbRed
Case 2
Label1
.ForeColor vbBlue
Case 3
Label1
.ForeColor vbGreen
Case 4
Label1
.ForeColor vbWhite
End Select
End Sub 
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: Ronald


الردود في هذا الموضوع
RE: تغيير لون الاداة لفترة محددة - بواسطة سعود - 19-03-21, 09:10 PM


التنقل السريع :


يقوم بقرائة الموضوع: