[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