ListView - Über einen Button scrollen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Mechatron.

    ListView - Über einen Button scrollen

    Hallo zusammen,

    ich bin dabei eine Anwendung zu schreiben, die über einen Touchscreen bedienbar sein soll.
    In einer meiner Forms habe ich ein ListView Control, in dem viele Elemente angezeigt werden.

    Das bedeutet auch, dass der Scrobblaklen ziemlich klein werden kann.
    Ist es mögloch, dass Scrollen über Buttons zu Steuern?

    Ich stelle mir das Ergebnis so vor:

    Ich habe 4 Buttons, jeweils zwei zum hoch scrollen und zum runter scrollen.
    Jeweils einer wiederum soll große und der andere kleine Sprünge machen.

    Ich hab mich bei MSDN mit dem ListView beschäftigt, jedoch springt mir nicht mal ein Lösungsansatz ins Auge!

    Danke schon mal für eure Mühe :)

    Gruß Mechatron.

    Danke [font='&quot']jvbsl[/font]!

    Aber ich hab, das jetzt so hingebogen:

    VB.NET-Quellcode

    1. Private position As Integer = 0
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. ListScroll(-10)
    5. End Sub
    7. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    8. ListScroll(-1)
    9. End Sub
    11. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    12. ListScroll(1)
    13. End Sub
    15. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    16. ListScroll(10)
    17. End Sub
    19. Private Sub ListScroll(ByVal value As Integer)
    20. If (value + position) >= 0 Then
    21. ListView1.TopItem = ListView1.Items(position + value)
    22. position += value
    23. End If
    24. If (value + position) < 0 Then
    25. ListView1.TopItem = ListView1.Items(0)
    26. position = 0
    27. End If
    28. End Sub


    Funktioniert auch super, bis auf die Tatsache, dass eine "ArgumentOutOfRangeException" geworfen wird, wenn ich auf einen Wert für "position + value" komme, der größer ist, als die Anzahl der Elemente in dem ListView. Gibt es auch eine Möglichkeit, den Index des letzten Elementes abzufragen?
    oder das über Umwege mit einer Liste zu machen??

    Gruß Mechatron

    Meine Lösung

    So, jetzt hab ich mal ein paar Minuten...
    also:

    Meine Buttons:


    VB.NET-Quellcode

    1. Private Sub bup1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bup1.Click
    2. Scroll(-1)
    3. End Sub
    5. Private Sub bdown1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bdown1.Click
    6. Scroll(1)
    7. End Sub


    Man kann hier selbstverständlich auch andere Parameter übergeben. je nach dem wie weit man mit einem Click-Event Scrollen will.

    VB.NET-Quellcode

    1. Private Sub Scroll(ByVal value As Integer)
    3. For i As Integer = 0 To ListView1.Items.Count - 1
    4. ListView1.Items(i).BackColor = Color.White
    5. Next
    7. If (value + Position) >= ListView1.Items.Count Then
    8. ListView1.TopItem = ListView1.Items(ListView1.Items.Count - 1)
    9. Position = ListView1.Items.Count - 1
    10. ListView1.Items(Position).BackColor = Color.Blue
    11. Exit Sub
    12. End If
    13. If ((value + Position) >= 0) = True And ((value + Position) > ListView1.Items.Count) = False Then
    14. ListView1.TopItem = ListView1.Items(Position + value)
    15. Position += value
    16. ListView1.Items(Position).BackColor = Color.LightBlue
    17. Exit Sub
    18. End If
    19. If (value + Position) < 0 Then
    20. ListView1.TopItem = ListView1.Items(0)
    21. Position = 0
    22. ListView1.Items(Position).BackColor = Color.LightBlue
    23. Exit Sub
    24. End Sub


    Die Farbe dient hier dazu, dass man den Anwender erkennen lassen sollte, welcher Eintrag grad aktiv ist. Sonst sorgt das für Verwirrung, wenn man "scheinbar" an unterster stelle ist.

    Es ist eine Lösung von vielen denke ich.

    Gruß Mechatron.