Label mit Pfeiltasten steuern

  • VB.NET

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

    Label mit Pfeiltasten steuern

    Hallo
    Ich habe bei meiner Form ca.10 Labels
    die sind alle untereinander geordnet.
    Ich will das wenn man mit der Pfeiltaste nach unten geht das dann
    bei Label1 ein > davor ist.
    Beispiel :
    Label1
    Label2
    Label3
    Label4

    Gehe ich jetzt mit der Pfeiltaste nach unten soll es so sein :
    >Label1
    Label2
    Label3
    Label4

    Und wenn mann nochmal nach unten klickt :
    Label1
    >Label2
    Label3
    Label4


    Das gleiche soll auch passieren wenn ich nach oben gehe mit den Pfeiltasten.
    wenn ich dann zb. bei Label1 bin mit diesen > und dann mit den Pfeiltasten nach Rechts drücke soll bei
    label5 was gegenüber von Label1 ist ON stehen und wenn ich nach Links wieder klicke soll dort OFF stehen!!

    Danke im Voraus

    50Hayvan schrieb:

    die sind alle untereinander geordnet.
    Nimm ein DataGridView.
    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!

    50Hayvan schrieb:

    komm ich leider nicht weit
    Poste bitte mal eine vollständige Problem- oder Aufgabenbeschreibung.
    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!

    50Hayvan schrieb:

    könntest du mir nicht eine vorlage schicken nur ein beispiel mit einem Label ?
    Mit Label nicht - das ist zuviel Arbeit.
    Aber mit DGV geht das schon, nur siehts anders aus, und wird anders gesteuert (mit Space-Taste an/ab-wählen). Die Steuerung ist also anders aber besser, und ist Windows-Standard.

    Setze in den Form-Eigenschaften KeyPreview auf True

    Und füge diesen Code ein:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim labelnum As Integer = 1
    4. Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
    5. 'Hoch
    6. If e.KeyCode = Keys.Down Then
    7. labelnum += 1
    9. If labelnum = 6 Then
    10. labelnum = 1
    11. End If
    12. End If
    14. If e.KeyCode = Keys.Up Then
    15. labelnum -= 1
    17. If labelnum = 0 Then
    18. labelnum = 5
    19. End If
    20. End If
    22. 'Zeichen Setzen
    23. If labelnum = 2 Then
    24. Label2.Text = ">Label2"
    25. Else
    26. Label2.Text = "Label2"
    27. End If
    28. '
    29. If labelnum = 1 Then
    30. Label1.Text = ">Label1"
    31. Else
    32. Label1.Text = "Label1"
    33. End If
    34. '
    35. If labelnum = 3 Then
    36. Label3.Text = ">Label3"
    37. Else
    38. Label3.Text = "Label3"
    39. End If
    40. '
    41. If labelnum = 4 Then
    42. Label4.Text = ">Label4"
    43. Else
    44. Label4.Text = "Label4"
    45. End If
    46. '
    47. If labelnum = 5 Then
    48. Label5.Text = ">Label5"
    49. Else
    50. Label5.Text = "Label5"
    51. End If
    52. End Sub
    54. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    55. Label1.Text = ">Label1"
    56. End Sub
    57. End Class

    DEVICEHIGH=C:\DOS\CAT.SYS ...der schnellste Maustreiber der Welt! :thumbsup:

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

    Schon hier wird mir übel:

    VB.NET-Quellcode

    1. Dim labelnum As String = 1
    „Was ich gerade mache? Ich reite Hand in Hand mit dem Matthäus-Effekt auf einer Exponentialfunktion.“ ^^