Label Text ändert sich trotz Anweisung nicht!

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

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Label Text ändert sich trotz Anweisung nicht!

    Moin Leute, ich habe ein Problem... Und zwar ich habe Labels eingefügt und sobald z.B. Label1 die Farbe Blau hat, soll sich Label2 auf die Farbe Grün ändern und der Text dazu dann auch anders sein. Problem: Programm macht es nicht! Ich habe das gleiche bei vorherigen Labels ebenfalls gemacht und bei dem geht das dann nicht mehr. Das ganze wird von Hotkeys unterstützt heißt, wenn ich Pfeiltaste rechts drücke und Label1 Blau ist --> Label2 Grün und anderer Text. Ich zeig euch mal den Code!

    Das sind die Farben, die die Labels per Taste runter und hoch bekommen

    Quellcode

    1. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    3. If GetAsyncKeyState(Keys.Down) = -32767 Then
    5. If Label1.ForeColor = Color.Blue Then
    6. Label1.ForeColor = Color.Silver
    7. Label2.ForeColor = Color.Blue
    8. Label10.ForeColor = Color.Silver
    9. Label14.ForeColor = Color.Silver
    10. Exit Sub
    11. End If
    12. If Label2.ForeColor = Color.Blue Then
    13. Label2.ForeColor = Color.Silver
    14. Label1.ForeColor = Color.Silver
    15. Label10.ForeColor = Color.Blue
    16. Label14.ForeColor = Color.Silver
    17. Exit Sub
    18. End If
    20. If Label10.ForeColor = Color.Blue Then
    21. Label10.ForeColor = Color.Silver
    22. Label2.ForeColor = Color.Silver
    23. Label1.ForeColor = Color.Silver
    24. Label14.ForeColor = Color.Blue
    25. Exit Sub
    26. End If
    28. If Label14.ForeColor = Color.Blue Then
    29. Label14.ForeColor = Color.Silver
    30. Label1.ForeColor = Color.Blue
    31. Label10.ForeColor = Color.Silver
    32. Label2.ForeColor = Color.Silver
    33. Exit Sub
    34. End If
    36. End If
    38. 'Pfeiltaste hoch
    40. If GetAsyncKeyState(Keys.Up) = -32767 Then
    42. If Label2.ForeColor = Color.Blue Then
    43. Label2.ForeColor = Color.Silver
    44. Label1.ForeColor = Color.Blue
    45. Label10.ForeColor = Color.Silver
    46. Exit Sub
    47. End If
    49. If Label1.ForeColor = Color.Blue Then
    50. Label1.ForeColor = Color.Silver
    51. Label2.ForeColor = Color.Silver
    52. Label10.ForeColor = Color.Silver
    53. Label14.ForeColor = Color.Blue
    54. Exit Sub
    55. End If
    57. If Label14.ForeColor = Color.Blue Then
    58. Label14.ForeColor = Color.Silver
    59. Label1.ForeColor = Color.Silver
    60. Label2.ForeColor = Color.Silver
    61. Label10.ForeColor = Color.Blue
    62. Exit Sub
    63. End If
    65. If Label10.ForeColor = Color.Blue
    66. Label10.ForeColor = Color.Silver
    67. Label2.ForeColor = Color.Blue
    68. Label14.ForeColor = Color.Silver
    69. Label1.ForeColor = Color.Silver
    70. Exit Sub
    71. End If
    73. End If



    Und das ist der Code wenn ich nach links und rechts drücke! Und da hab ich euch markiert ab wo es nicht mehr geht!

    Quellcode

    1. Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    3. If GetAsyncKeyState(Keys.Right) = -32767 Then
    5. If Label1.ForeColor = Color.Blue Then
    6. Label3.ForeColor = Color.Lime
    7. Label3.Text = "[On]"
    8. 'Funktion
    9. Exit Sub
    10. End If
    12. If Label2.ForeColor = Color.Blue Then
    13. Label4.ForeColor = Color.Lime
    14. Label4.Text = "[On]"
    15. 'Funktion
    16. Exit Sub
    17. End If
    19. If Label10.ForeColor = Color.Blue Then
    20. Label9.ForeColor = Color.Lime
    21. Label9.Text = "[On]"
    22. 'Funktion
    23. End If
    24. Exit Sub
    26. If Label14.ForeColor = Color.Blue Then '//////////AB HIER TRITT DER FEHLER AUF!!
    27. Label15.ForeColor = Color.Lime
    28. Label15.Text = "[On]"
    29. 'Funktion
    30. Exit Sub
    31. End If
    33. End If
    37. '///////////////////////OFF///////////////////
    39. If GetAsyncKeyState(Keys.Left) = -32767 Then
    40. If Label1.ForeColor = Color.Blue Then
    41. Label3.ForeColor = Color.Red
    42. Label3.Text = "[Off]"
    43. 'Funktion
    44. Exit Sub
    45. End If
    47. If Label2.ForeColor = Color.Blue Then
    48. Label4.ForeColor = Color.Red
    49. Label4.Text = "[Off]"
    50. 'Funktion
    51. Exit Sub
    52. End If
    54. If Label10.ForeColor = Color.Blue Then
    55. Label9.ForeColor = Color.Red
    56. Label9.Text = "[Off]"
    57. ForceHostTMR.Stop()
    58. Exit Sub
    59. End If
    61. If Label14.ForeColor = Color.Blue Then
    62. Label15.ForeColor = Color.Red
    63. Label15.Text = "[Off]"
    64. 'Funktion
    65. End If
    66. Exit Sub
    68. End If
    70. End Sub



    Ich hoffe ihr könnt mir helfen! ?(

    @ViiperCoding Willkommen im Forum. :thumbup:
    Ich nehme mal an, dass Dein Timer mit 10 Millisekunden da losrattert.
    Solch Code hat in einer Timer-Tick nix zu suchen, denn primär fragst Du die Cursortasten ab, nicht aber Du hast eine Timing-Vorgabe.
    Wie wäre es, wenn Du das KeyDown-Event Deiner Form abfragst, gib der Form zusätzlich im Designer KeyPreview = True.

    VB.NET-Quellcode

    1. Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
    2. If e.KeyCode = Keys.Up Then
    3. '...
    4. End If
    5. '...
    6. End Sub

    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!

    Danke für deine Antwort! Die Idee von dir sieht irgendwie sogar noch "geschmeidiger" aus und ich glaub dann mach ich es auf diese Art :thumbsup: Aber hast du evtl trotzdem eine Ahnung, was der Grund sein könnte, dass es bei den ersten 3 Labels Funktioniert aber dann ab dem 4. nicht mehr? ?(

    @ViiperCoding Wie groß ist Dein Timer-Interrvall?
    Ändere es mal auf 100.
    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!

    Post 1, Zeile 5-7: "Wenn Label1 blau ist, mach es silber und Label 2 blau"; Zeile 12-14: "Wenn Label2 blau ist, mach es silber und Label 1 blau" -> Deine Anweisungen machen Deine Erstveränderungen wieder rückgängig. Ist da vielleicht in Zeile 12 ein ElseIf gemeint, wobei das End If in Zeile 11 weg sollte?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VaporiZed schrieb:

    Post 1, Zeile 5-7: "Wenn Label1 blau ist, mach es silber und Label 2 blau"; Zeile 12-14: "Wenn Label2 blau ist, mach es silber und Label 1 blau" -> Deine Anweisungen machen Deine Erstveränderungen wieder rückgängig. Ist da vielleicht in Zeile 12 ein ElseIf gemeint, wobei das End If in Zeile 11 weg sollte?


    Da hast du dich glaube ich verschaut :D Das ist Label10, das als nächstes Blau wird und nicht 1 :D

    Inwieweit bist du mittm Visualstudio vertraut?
    Normal sollteste den Fehler mit Leichtigkeit im Einzelschrittmodus finden können - erst Threading oder sich gegenseitig beeinflussende Events können derlei Debugging erschweren.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Um die Ursprungsfrage zu beantworten: Post 1, Codeblock 2, Zeile 23, 24: Da hast Du Exit Sub und End If vertauscht, das Exit Sub gehört in den If-Block. Sonst wird der letzte SwitchOn-Teil gar nicht ausgeführt.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Potzblitz - AdlerAuge!! :thumbsup:

    @TE: nochmal die Empfehlung, dich mit Debugging vertraut zu machen.
    Weil Eiglich müsste die Codestelle bei dir unterkringelt sein, mit der Intellisense-Information: "Unreachable Code detected!"
    (Und natürlich wärst du im Einzelschritt-Modus ebenfalls sofort darauf gestossen)

    ViiperCoding schrieb:

    Habs auf 1 gestellt, da es direkt nach drücken der Taste umstellen soll
    Das ist eine Millisekunde, da kann nix laufen :!:

    RodFromGermany schrieb:

    Ändere es mal auf 100.
    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!

Facebook
Telefonspende