Forecolor wechsel mehrerer Labels

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Fakiz.

    Forecolor wechsel mehrerer Labels

    Hallo zusammen
    Habe eine dumme Frage. Ich Habe mehrere Labels die ich per Button Klick nacheinander in eine andere Farbe wechseln möchte.

    Wer kann mir helfen...

    Das war meine Idee, klappt natürlich nicht. :S

    VB.NET-Quellcode

    1. Dim Wechsel(6)
    2. Wechsel(0) = L1.Text
    3. Wechsel(1) = L2.Text
    4. Wechsel(2) = L3.Text
    5. Wechsel(3) = L4.Text
    6. Wechsel(4) = L5.Text
    7. Wechsel(5) = L6.Text
    9. Static Wählen As Integer = 0
    10. ForeColor.Red= Wechsel(Wählen)
    11. Wählen = Wählen + 1
    12. If Wählen > 5 Then Wählen = 0

    @Otti So was:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private index As Integer = 0
    3. Private Sub Button_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. Dim lbl() = {Label1, Label2, Label3}
    5. Dim col() = {Color.Red, Color.Lime, Color.Blue}
    7. For i = 0 To lbl.Length - 1
    8. Dim ii = (i + index) Mod lbl.Length
    9. lbl(i).ForeColor = col(ii)
    10. Next
    11. index += 1
    12. End Sub
    13. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dann kannste das so machen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private labels() As Label
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. Static counter As Integer = -1
    5. counter += 1
    6. If counter > labels.Length - 1 Then
    7. counter = 0
    8. End If
    9. For i As Integer = 0 To labels.Length - 1
    10. If i = counter Then
    11. labels(i).ForeColor = Color.Red
    12. Else
    13. labels(i).ForeColor = SystemColors.ControlText
    14. End If
    15. Next
    16. End Sub
    18. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    19. labels = {Label1, Label2, Label3, Label4, Label5, Label6}
    20. End Sub


    Oder auch vorm erhöhen der counter Variable lables(counter) die default color zuweisen(wenn counter > -1), dann counter erhöhen und lables(counter).ForeColor = Color.Red
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private labels() As Label
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. Static counter As Integer = -1
    5. If counter > -1 Then
    6. labels(counter).ForeColor = SystemColors.ControlText
    7. End If
    8. counter += 1
    9. If counter > labels.Length - 1 Then
    10. counter = 0
    11. End If
    12. labels(counter).ForeColor = Color.Red
    13. End Sub
    15. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    16. labels = {Label1, Label2, Label3, Label4, Label5, Label6}
    17. End Sub

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Takafusa“ ()

    Wenn das in einer anderen Funktion/Methode sein soll, pack counter auf Klassen-Ebene, labels ist schon auf klassenebene, dann ist labels(counter) das mit Forecolor.Red

    Ansonsten siehe den 2. Code, da setze ich erst das Label das Rot ist wieder auf default color.

    Otti schrieb:

    Bei 6 Labels, pro Klick, soll erst Label1 rot werden, beim zweiten Klick Label 2 rot usw.
    Du hast die Variable Index, somit ist doch alles vorgegeben.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Otti ForeColor.Red= Wechsel(Wählen) das funktioniert natürlich nicht. Du versuchst hier ja der Farbe Rot deinen Text aufzudrücken.
    Du willst ja deinem Text die Farbe Rot aufdrücken also müsstest du das umdrehen: Wechsel(Wählen).ForeColor = Color.Red

Facebook
Telefonspende