Also ich habe eine Sub gemacht um eine ListBox zu sortieren.
Ein Eintrag sieht z.B. so aus: 54x klaksfjkdlkafj.fkd
und es sollte nach den zahlen sortiert weden, die größeren oben, aber hier werden die zahlen komisch verteilt...
Wäre dankbar falls jemand einen Fehler entdeckt.
Ein Eintrag sieht z.B. so aus: 54x klaksfjkdlkafj.fkd
und es sollte nach den zahlen sortiert weden, die größeren oben, aber hier werden die zahlen komisch verteilt...
VB.NET-Quellcode
- If (ListBox1.Items.Count > 1) Then
- Dim TempList As New List(Of String)
- Dim MaxValue As Long = 0
- Dim MaxItem As Long = 0
- Dim YVal = 0
- For X As Long = 0 To ListBox1.Items.Count - 1
- For Y As Long = X To ListBox1.Items.Count - 1
- If Val(ListBox1.Items(Y).ToString) > MaxValue Then MaxValue = Val(ListBox1.Items(Y)) : MaxItem = Y
- Next
- TempList.Add(ListBox1.Items(MaxItem))
- ListBox1.Items.RemoveAt(MaxItem)
- MaxValue = 0
- MaxItem = 0
- Next
- ListBox1.DataSource = TempList
- End If
Wäre dankbar falls jemand einen Fehler entdeckt.