[VB.NET] تحول الليبل للون الاخضر - نسخة قابلة للطباعة

[VB.NET] تحول الليبل للون الاخضر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تحول الليبل للون الاخضر (/showthread.php?tid=44170)

تحول الليبل للون الاخضر - عماد سلمان منذر - 25-10-22

اخواني الكرام عندي 3/ ليبل لونهم اصفر كيف بقدر احول الليبل الاول للون الاخضر وبعد ثانية واحدة الليبل الثاني والاول ايضا يتحول للاخضر وبعد ثانية الليبل الاول والثاني والثالث ثم بعد ثانيه يعودوا للون الاصفر ويبدؤوا من جديد بشكل دائم

RE: تحول الليبل للون الاخضر - bidaya - 25-10-22

(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

RE: تحول الليبل للون الاخضر - asmarsou - 25-10-22

(25-10-22, 01:39 AM)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

بارك الله فيك اخي الكريم و جزاك كل خير
كنت بصدد العمل على نفس الفكرة و لكن بشكل مختلف فهل ممكن اللون الاخضر ينتقل تباعا في كل مرة اي ليبل واحد اخضر
في كل مرة لعدد غير محدد لليبل اكون شاكر ... وبارك الله فيك مرة اخرى

RE: تحول الليبل للون الاخضر - Taha Okla - 25-10-22

(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

RE: تحول الليبل للون الاخضر - asmarsou - 25-10-22

(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

بارك الله فيك

RE: تحول الليبل للون الاخضر - asmarsou - 02-11-22

(25-10-22, 07:21 PM)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

بارك الله فيك

هذه طريقة اخرى عن طريق قائمة لاداة النص

PHP كود :

Public Class Form1

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

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim lbls As Label() = New Label() {Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8, Label9, Label10, Label11, Label12}
        Static idx As Integer = 0 'لاخذ رقم او اندكس النص من القائمة
        If idx < lbls.Count Then
            'تمرير اللون   بالتتابع
            idx += 1
            For Each lbl As Label In lbls
                lbl.ForeColor = Color.Yellow 'لتضمين اللون الاصفر للنص لو لم يكن النص الحالي 
                Dim currentLbl = lbl ' تعريف النص الحالي
                If currentLbl.Name = "Label" & idx Then
                    currentLbl.ForeColor = Color.Lime
                End If
            Next
        Else

            ' Timer1.Stop() 'لايقاف العملية فور الانتهاءاي عند آخر نص
            idx = 0 'للبدء من جديد
        End If
    End Sub
End Class 