[bidaya]

(25-10-22, 12:11 AM)عماد سلمان منذر كتب : اخواني الكرام عندي 3/ ليبل لونهم اصفر كيف بقدر احول الليبل الاول للون الاخضر وبعد ثانية واحدة الليبل الثاني والاول ايضا يتحول للاخضر وبعد ثانية الليبل الاول والثاني والثالث ثم بعد ثانيه يعودوا للون الاصفر ويبدؤوا من جديد بشكل دائم

كود :

Public Class Form1
   Dim tes As IntPtr
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       tes = tes + 1
       If tes = 10 Then
           Me.Label1.ForeColor = System.Drawing.Color.Green
       ElseIf tes = 20
           Me.Label2.ForeColor = System.Drawing.Color.Green

       ElseIf tes = 30
           Me.Label3.ForeColor = System.Drawing.Color.Green
       ElseIf tes = 40
           Me.Label1.ForeColor = System.Drawing.Color.Yellow
           Me.Label2.ForeColor = System.Drawing.Color.Yellow
           Me.Label3.ForeColor = System.Drawing.Color.Yellow
           tes = 0

       End If
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
End Class