تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تغيير لون الاداة لفترة محددة
#1
السلام عليكم
أريد كود لتغيير لون الليبل لعدة ألوان ( اسود / أحمر / أزرق / أخضر / أبيض / ..... ) كل 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
#3
(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
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 
للأسف لم يعمل معى الكود
الرد
تم الشكر بواسطة:
#4
(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
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
#5
الحمد لله 
الكود يعمل بنجاح الآن

ألف شكر
الرد
تم الشكر بواسطة:



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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم