[asmarsou]

(25-10-22, 07:03 PM)Taha Okla كتب :

(25-10-22, 06:40 PM)asmarsou كتب :  بارك الله فيك اخي الكريم و جزاك كل خير
كنت بصدد العمل على نفس الفكرة و لكن بشكل مختلف فهل ممكن اللون الاخضر ينتقل تباعا في كل مرة اي ليبل واحد اخضر
في كل مرة لعدد غير محدد لليبل اكون شاكر ... وبارك الله فيك مرة اخرى

نفس الكود لكن بعد إعادة الترتيب :

كود :

   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
           Me.Label2.ForeColor = System.Drawing.Color.Yellow
           Me.Label3.ForeColor = System.Drawing.Color.Yellow
       ElseIf tes = 20 Then
           Me.Label2.ForeColor = System.Drawing.Color.Green
           Me.Label1.ForeColor = System.Drawing.Color.Yellow
           Me.Label3.ForeColor = System.Drawing.Color.Yellow
       ElseIf tes = 30 Then
           Me.Label3.ForeColor = System.Drawing.Color.Green
           Me.Label1.ForeColor = System.Drawing.Color.Yellow
           Me.Label2.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()
       Me.Label1.ForeColor = System.Drawing.Color.Yellow
       Me.Label2.ForeColor = System.Drawing.Color.Yellow
       Me.Label3.ForeColor = System.Drawing.Color.Yellow
   End Sub

بارك الله فيك