+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [سؤال] تغيير لون الاداة لفترة محددة (/showthread.php?tid=38081)
تغيير لون الاداة لفترة محددة - aboezzat84 - 19-03-21
السلام عليكم
أريد كود لتغيير لون الليبل لعدة ألوان ( اسود / أحمر / أزرق / أخضر / أبيض / ..... ) كل 5 ثوانى
حتى انتهاء مدة تشغيل الفورم - أو لمدة دقيقة
شكرا
RE: تغيير لون الاداة لفترة محددة - سعود - 19-03-21
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
RE: تغيير لون الاداة لفترة محددة - aboezzat84 - 19-03-21
(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
RE: تغيير لون الاداة لفترة محددة - مصمم هاوي - 20-03-21
(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
قمتُ بتجربة الكود واشتغل تمام
RE: تغيير لون الاداة لفترة محددة - aboezzat84 - 20-03-21
الحمد لله
الكود يعمل بنجاح الآن
ألف شكر