[aboezzat84]

السلام عليكم
أريد كود لتغيير لون الليبل لعدة ألوان ( اسود / أحمر / أزرق / أخضر / أبيض / ..... ) كل 5 ثوانى 
حتى انتهاء مدة تشغيل الفورم - أو لمدة دقيقة 

شكرا

[سعود]

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
i = 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 


[aboezzat84]

(19-03-21, 09:10 PM)سعود كتب :

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
i = 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 


للأسف لم يعمل معى الكود

[مصمم هاوي]

(19-03-21, 11:46 PM)aboezzat84 كتب :

(19-03-21, 09:10 PM)سعود كتب :

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
i = 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 


للأسف لم يعمل معى الكود

قمتُ بتجربة الكود واشتغل تمام

[aboezzat84]

الحمد لله 
الكود يعمل بنجاح الآن

ألف شكر