منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
هل يمكن طلب كود تغير لون النص في label عند الضغط على رز الأمر سيتغير لون النص تتابعيا الى أحمر-أخضر-أصفر-أزرق- بنفسجي- ثم يعود للأسود

كود :

Public Class Form1

    Dim ClickCount As Integer = 0

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        If Not ClickCount = 5 Then

            ClickCount += 1

        Else

            ClickCount = 1

        End If

        Select Case ClickCount

            Case Is = 1

                Label1.ForeColor = Color.Orange

            Case Is = 2

                Label1.ForeColor = Color.Red

            Case Is = 3

                Label1.ForeColor = Color.Blue

            Case Is = 4

                Label1.ForeColor = Color.Yellow

        End Select

    End Sub

End Class

السلام عليكم و رحمة الله و بركاته
بالاضافة لحل الاخ aljzazy
يمكنك عملها وفق تقنية Async كما يلي:

PHP كود :

   Private Async Function ChangeColor(Perod As Integer, Lb As Label) As Task
        Dim Coloor As New List(Of Color) From
            {Color.Red, Color.Green, Color.Yellow, Color.Blue, Color.Purple, Color.Black}

        For Each itm In Coloor
            Lb.ForeColor = itm
            Await Task.Delay(Perod)
        Next

    End Function 

الاستدعاء

PHP كود :

   Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Await ChangeColor(1700, Label1)
    End Sub 

شكراا لكم
الله يجزيكم الخير يا رب
ولكن ما تغير الا للون واحد !

(10-04-20, 06:34 PM)tasnem shhadaha كتب : [ -> ]السلام عليكم
هل يمكن طلب كود تغير لون النص في label عند الضغط على رز الأمر سيتغير لون النص تتابعيا الى أحمر-أخضر-أصفر-أزرق- بنفسجي- ثم يعود للأسود

بما أني بعتبر نفسي مبتدئ فاسمحلي أشارك بكود بسيط

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If Label1.ForeColor = Color.Black Then

            Label1.ForeColor = Color.Red

        ElseIf Label1.ForeColor = Color.Red Then

            Label1.ForeColor = Color.Green

        ElseIf Label1.ForeColor = Color.Green Then

            Label1.ForeColor = Color.Yellow

        ElseIf Label1.ForeColor = Color.Yellow Then

            Label1.ForeColor = Color.Blue

        ElseIf Label1.ForeColor = Color.Blue

            Label1.ForeColor = Color.Violet

        ElseIf Label1.ForeColor = Color.Violet Then

            Label1.ForeColor = Color.Black

        End If

طبعا في كود تحميل الفورم تتأكد ان لونه اسود
Label1.ForeColor = Color.Black

مشاركة لاخواني اضع اجتهادي

وهذا محتوى الفورم

PHP كود :

Public Class Form1
    Dim count As Integer = 0
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        count = 0


        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If count = 3 Then
            l3.ForeColor = Color.Black
            Timer1.Stop()
            Exit Sub
        End If

        'l3.ForeColor = Color.Red
        Select Case count
            Case 0
                l3.ForeColor = Color.Red
            Case 1
                l3.ForeColor = Color.Yellow
            Case 2
                l3.ForeColor = Color.Blue
        End Select
        count += 1
    End Sub
End Class 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

tasnem shhadaha

aljzazy

ابو ليلى

tasnem shhadaha

WaeLx

سعود