Listboxeinträge sortieren

  • VB.NET

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

    Listboxeinträge sortieren

    Hi,

    ich habe ein kleines Problem:

    Ich habe eine ListBox mit diversen vordeffinierten Werten/ Einträgen. jetzt möchte ich gerne die Einträge dynamisch mittels eines Buttons um eine Stelle nach oben, bzw unten verschieben ( also 2 Buttons ) .

    Weis nicht genau wie ich das machen soll.

    Ich habe schon etwas mit dem Index eines Elements welches ich selektiert habe probiert, das klappt aber nicht so wie gewünscht.

    Kann mir villeicht jeman helfen?

    So ähnlich müsste es gehen:

    VB.NET-Quellcode

    1. Private Sub nachoben_Click()
    3. Dim Puffer As String, n As Integer
    5. With ListBox1
    6. n = .ListIndex
    7. If n > 0 Then
    8. Puffer = .List(n - 1)
    9. .List(n - 1) = .List(n)
    10. .List(n) = Puffer
    11. .ListIndex = n - 1
    12. End If
    13. End With
    15. End Sub
    18. Private Sub nachunten_Click()
    20. Dim Puffer As String, n As Integer
    22. With ListBox1
    23. n = .ListIndex
    24. If n >= 0 And n < .ListCount - 1 Then
    25. Puffer = .List(n + 1)
    26. .List(n + 1) = .List(n)
    27. .List(n) = Puffer
    28. .ListIndex = n + 1
    29. End If
    30. End With
    32. End Sub


    Das ist zwar VBA-Code, aber ich denke das Prinzip ist klar.

    Also das ist zum Direktverschieben:

    Nach oben (direkt nach Public Class...)

    Quellcode

    1. Dim move As Boolean
    2. Dim eintrag As String


    Und dann folgenden Hauptcode:

    Quellcode

    1. Private Sub ListBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
    3. eintrag = ListBox1.SelectedItem
    4. move = True
    6. End Sub
    8. Private Sub ListBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseUp
    9. Dim pos As Integer = Me.ListBox1.IndexFromPoint(e.Location)
    11. If pos = "-1" Then
    13. Else
    15. Try
    16. If move = True Then
    17. ListBox1.Items.Remove(eintrag)
    18. ListBox1.Items.Insert(pos, eintrag)
    19. move = False
    20. ListBox1.SelectedIndex = pos
    21. End If
    23. Catch
    25. End Try
    27. End If

Facebook
Telefonspende