Listbox Sortieren

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Pixxxas.

    @Pixxxas Da müsstest Du Dir eine eigene ListBox mit Deinem Sortieralgorithmus schreiben, gugst Du hier.
    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!

    im Grunde hab ich ja ein Lösung;

    Das steht im Form Load Event, sortiert so wie ich gern möchte.

    VB.NET-Quellcode

    1. Label14.Text = "auftrag wählen..."
    2. Dim directory1 As New System.IO.DirectoryInfo("\\****")
    3. Dim Files1() As FileInfo = directory1.GetFiles
    4. Array.Sort(Files1, New Sorter)
    5. For Each file1 As System.IO.FileInfo In Files1
    6. If file1.Name <> "~*.*" And file1.Name <> "Thumbs.db" Then
    7. ListBox2.Items.Add(file1.Name)
    8. End If
    9. ListBox2.SelectedIndex = 0
    10. Next


    mache ich aber den selben Code in ein Button, lädt er die liste nicht mehr.


    Pixxxas schrieb:

    VB.NET-Quellcode

    1. Array.Sort(Files1, New Sorter)
    Poste mal den Sorter
    ======================

    VB.NET-Quellcode

    1. Array.Sort(Files1, New Sorter())
    Diese Zeile wirft eine Exception, die Form_Load ignoriert die und macht einfach da ein Return.
    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!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „RodFromGermany“ ()

    und wie kann ich das auf mein Button anwenden?

    VB.NET-Quellcode

    1. Public Class Sorter
    2. Implements IComparer
    3. Public Function CompareDesc(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
    4. Dim F1 As FileInfo = DirectCast(x, FileInfo)
    5. Dim F2 As FileInfo = DirectCast(y, FileInfo)
    6. CompareDesc = DateTime.Compare(F2.LastWriteTime, F1.LastWriteTime)
    7. End Function
    8. End Class

    @Pixxxas Probier mal dies, 2 Button, 2 Sortierungen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. ListBox2.Items.Clear()
    7. Dim directory1 As New System.IO.DirectoryInfo("c:\Temp")
    8. Dim Files1() As FileInfo = directory1.GetFiles
    9. Array.Sort(Files1, New Sorter(1))
    10. For Each file1 As System.IO.FileInfo In Files1
    11. If file1.Name <> "~*.*" And file1.Name <> "Thumbs.db" Then
    12. ListBox2.Items.Add(file1.Name)
    13. End If
    14. Next
    15. ListBox2.SelectedIndex = 0
    16. End Sub
    18. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    19. ListBox2.Items.Clear()
    20. Dim directory1 As New System.IO.DirectoryInfo("c:\Temp")
    21. Dim Files1() As FileInfo = directory1.GetFiles
    22. Array.Sort(Files1, New Sorter(-1))
    23. For Each file1 As System.IO.FileInfo In Files1
    24. If file1.Name <> "~*.*" And file1.Name <> "Thumbs.db" Then
    25. ListBox2.Items.Add(file1.Name)
    26. End If
    27. Next
    28. ListBox2.SelectedIndex = 0
    29. End Sub
    31. Public Class Sorter
    32. Implements IComparer
    33. Private direction As Integer
    34. Public Sub New(dir As Integer)
    35. Me.direction = dir
    36. End Sub
    38. Public Function CompareDesc(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
    39. Dim F1 As FileInfo = DirectCast(x, FileInfo)
    40. Dim F2 As FileInfo = DirectCast(y, FileInfo)
    41. Return Me.direction * DateTime.Compare(F2.LastWriteTime, F1.LastWriteTime)
    42. End Function
    44. End Class
    45. End Class
    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 dir, Funktioniert mit;

    VB.NET-Quellcode

    1. ListBox2.Items.Clear()
    2. Dim directory1 As New System.IO.DirectoryInfo("\\internal.novero.com\dab\Production\SMD\Ablage\Bereitstellung-Ablage")
    3. Dim Files1() As FileInfo = directory1.GetFiles
    4. Array.Sort(Files1, New Sorter2(1))
    5. For Each file1 As System.IO.FileInfo In Files1
    6. If file1.Name <> "~*.*" And file1.Name <> "Thumbs.db" Then
    7. ListBox2.Items.Add(file1.Name)
    8. End If
    9. Next
    10. ListBox2.SelectedIndex = 0