[tasnem shhadaha]

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

[aljzazy]

كود :

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 


[tasnem shhadaha]

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

[WaeLx]

(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