دخول

**عماد سلمان منذر**

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

**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

**asmarsou** · 25-10-22, 06:40 PM

(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

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

**Taha Okla** · 25-10-22, 07:03 PM

(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

**asmarsou** · 25-10-22, 07:21 PM

(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

بارك الله فيك

**asmarsou** · 02-11-22, 11:16 PM

(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 

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	تحول نص الي كود	SaedAmer	1	1,174	12-03-20, 05:22 PM آخر رد: سعود
	[سؤال] طريقة جعل الكتابه تظهر في الليبل افقياً بلتوالي كما في شريط الاخبار في القنوات؟	alshamy	3	2,393	07-09-19, 06:09 PM آخر رد: ابراهيم ايبو
	هل يمكن ان اجعل جدول على شكل مسودة اي بعد الحذف تحول البيانات الى المسودة	hassan 14	1	1,614	09-06-18, 03:48 PM آخر رد: elgokr
	اريد تحول الكود لفيجوال 2008	abudawoodd	6	2,744	15-01-17, 02:11 PM آخر رد: abudawoodd
	[VB.NET] Label1.Parent=PictureBox1 يختفي الليبل تماما	thevirus	1	1,630	21-11-16, 10:56 PM آخر رد: السرور
	[سؤال] السببل الى جعل الليبل بالمنتصف؟	kafi2030	5	3,099	28-10-13, 01:41 AM آخر رد: kafi2030