ListView sortierung

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von Remi Lay.

    ListView sortierung

    Hallo Zusammen



    Ich habe eine Listview erstellt und ich würde gerne die Zahlen nach der grössen nach anzeigen lassen.

    Ich habe als Einstellung für die ListView (Sorting - Descending) gewählt aber ich erhlate die Zahlen nicht nach grösse nach sortiert (siehe Bild)

    Könnt Ihr mir villeicht einen Tipp geben wie ich das erledigen kann.

    Freundliche Grüsse Remi Lay
    Bilder

    • ansicht.png

      5,77 kB, 141×450, 568 mal angesehen

    Momentan wird die Text-Darstellung Deiner Zahlen aplhabetisch sortiert. :D
    Du musst Deinem ListView beibringen, diese beim Sortieren als Zahlen aufzufassen.
    Such mal auf der Startseite nach ListViewSorter.
    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 für die schnelle Antwort.

    Ich glaube es wird ein bisschen komplizierter, denn mein jetziger Code sieht so aus :

    VB.NET-Quellcode

    1. Dim content As String() = System.IO.File.ReadAllLines("C:\Data\Auswertung_Strecke.txt") ' Erstellt ein Array "content" vom Typ String und füllt es mit den Zeilen
    2. For Each line As String In content ' Die foreach Schleife geht jede Zeile in dem Array content durch
    3. Dim startnummer As String = line.Split("_")(0) 'Hier wird eine Variable "startnummer" vom Typ String erstellt und mit mit dem Wert des 1. Spliteintrags gefüllt. (line.Split("_") gibt ein Array zurück und mit dem (0) lese ich den ersten Eintrag direkt aus dem Array
    4. Dim punkte As String = line.Split("_")(1).Replace(";", "") ' Hier wird das gleiche wie oben gemacht, nur das der 2. Eintrag des line.Split("_") Arrays ausgelesen wird und zusätzlich das Zeichen ";" mit "" (nichts) ersetzt wird.
    5. 'Hier wird die Variable "startnummer" zu einem Integer konvertiert und abgefragt ob es 2 ist. Ohne CIn geht das so: If startnummer = "2" Then
    6. ListView7.Items.Add(punkte).SubItems.Add(startnummer) 'Hier geb ich eine MessageBox mit einem Formatierten String aus, die Zeichenfolgen: {0} und {1} sind Platzhalter für die darauf folgenden Variablen startnummer und punkte.
    8. Next
    9. Else
    10. MsgBox("Keine Daten verfügbar. Bitte erstellen Sie eine Startnummer")
    11. End If


    Ich habe die Funktion ListViewSorter im Web nachgegoogelt und jetzt versuche ich es ein bisschen aus.



    Freundliche Grüsse Rémi Lay

    Für DataGridView ist mir zu umständlich jetzt noch alles umzuwechseln aber beim nächsten Programm werde ich besser mit DataGridView arbeiten.

    Ich habe im google nachgeschaut über Numerische Sortierung der ListView aber es viel zu kompliziert. Kann mir jemmand es genau erklären oder einen leicht verständlicher Code geben xD.



    Danke für eine rasche Antwort.



    Freundliche Grüsse Rémi Lay

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

    Du hast da wohl etwas zu viel abgeschrieben.
    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!

    Ich habe hier ein Bild was er als Fehler markiert.

    Könnt ihr villeicht ein beispiel machen ? ich suche schon den ganzen morgen nach einer Lösung aber ich habe keine erfolgreiche lösung gefunden.

    Freundliche Grüsse Rémi Lay
    Bilder

    • fehler1.png

      51,11 kB, 539×591, 540 mal angesehen

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

    Wo muss ich das hier kopieren damit es funktioniert ? In Private Sub xXX_Load geht es nicht.

    VB.NET-Quellcode

    1. Public Class ListViewComparer Implements IComparer Private col As Integer Private order As SortOrder Public Sub New(ByVal col As Integer, _ ByVal order As SortOrder)
    2. Me.col = col
    3. Me.order = order End Sub Public Function Compare(ByVal x As Object, _ ByVal y As Object) As Integer _ Implements System.Collections.IComparer.Compare Dim item1, item2 As ListViewItem item1 = x item2 = y
    4. If Me.order = SortOrder.Ascending Then Return item1.SubItems(col).Text.CompareTo( _ item2.SubItems(col).Text)
    5. Else Return item2.SubItems(col).Text.CompareTo( _ item1.SubItems(col).Text)
    6. End If
    7. End Function
    8. End Class




    Das Kopieren ich bei einem Button wo ich die Treevies anzeige lasse

    VB.NET-Quellcode

    1. If ListView7.Sorting = SortOrder.Ascending Then
    2. ListView7.Sorting = SortOrder.Descending
    3. ListView7.ListViewItemSorter = _
    4. New ListViewComparer(e.Column, SortOrder.Descending)
    5. Else
    6. ListView7.Sorting = SortOrder.Ascending
    7. ListView7.ListViewItemSorter = _
    8. New ListViewComparer(e.Column, SortOrder.Ascending)
    9. End If


    Freundliche Grüsse Rémi Lay

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

    Sieh Dir mal das an:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. ' configure Listview
    4. ListView1.View = View.Details
    5. ListView1.Columns.Add(New ColumnHeader())
    6. Me.ListView1.Columns(0).Text = "Column 0"
    7. ListView1.Columns.Add(New ColumnHeader())
    8. Me.ListView1.Columns(1).Text = "Column 1"
    9. ListView1.Columns.Add(New ColumnHeader())
    10. Me.ListView1.Columns(2).Text = "Column 2"
    12. ' SET SORT
    13. ListView1.Sorting = SortOrder.Ascending
    15. ' add some values
    16. ListView1.Items.Add(New ListViewItem(New String() {"9", "A", "e"}))
    17. ListView1.Items.Add(New ListViewItem(New String() {"1", "b", "D"}))
    18. ListView1.Items.Add(New ListViewItem(New String() {"-1", "C", "c"}))
    19. ListView1.Items.Add(New ListViewItem(New String() {"-5", "d", "B"}))
    20. ListView1.Items.Add(New ListViewItem(New String() {"100", "E", "a"}))
    21. End Sub
    23. Private Sub ListView1_ColumnClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick
    24. Select Case e.Column
    25. Case 0
    26. Me.ListView1.ListViewItemSorter = New ListViewItemComparer123(0)
    27. Case Else
    28. Me.ListView1.ListViewItemSorter = New ListViewItemComparerABC(e.Column)
    29. End Select
    30. End Sub
    31. End Class
    33. ' LV Sorter: sorts 1.column numeric
    34. Class ListViewItemComparer123
    35. Implements IComparer
    36. Private col As Integer
    38. Public Sub New()
    39. col = 0
    40. End Sub
    42. Public Sub New(ByVal column As Integer)
    43. col = column
    44. End Sub
    46. Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
    47. Dim lviX As ListViewItem = CType(x, ListViewItem)
    48. Dim lviY As ListViewItem = CType(y, ListViewItem)
    49. ' compare number in 1. Column
    50. Return CInt(lviX.Text) - CInt(lviY.Text)
    51. End Function
    52. End Class
    54. ' Implements the manual sorting of items by columns.
    55. Class ListViewItemComparerABC
    56. Implements IComparer
    58. Private col As Integer
    60. Public Sub New()
    61. col = 0
    62. End Sub
    64. Public Sub New(ByVal column As Integer)
    65. col = column
    66. End Sub
    68. Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
    69. Implements IComparer.Compare
    70. Return [String].Compare(CType(x, ListViewItem).SubItems(col).Text, CType(y, ListViewItem).SubItems(col).Text)
    71. End Function
    72. 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 für die Antwort. Ich habe es als test so getestet und es funktioniert.
    Mein Code :

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. If Not Directory.Exists("C:\Data") Then
    3. ' Nein! Jetzt erstellen...
    4. Directory.CreateDirectory("C:\Data")
    5. End If
    6. MsgBox("Die Daten werden auf C:\Data gespeichert.")
    8. ListView1.View = View.Details
    9. ListView1.Columns.Add(New ColumnHeader())
    10. Me.ListView1.Columns(0).Text = "Startnummer"
    11. ListView1.Columns.Add(New ColumnHeader())
    12. Me.ListView1.Columns(1).Text = "Punktezahl"
    13. 'Daten einlesen
    15. If File.Exists("C:\Data\Auswertung_Punktetotal.txt") Then
    16. Dim content As String() = System.IO.File.ReadAllLines("C:\Data\Auswertung_Punktetotal.txt") ' Erstellt ein Array "content" vom Typ String und füllt es mit den Zeilen
    17. For Each line As String In content ' Die foreach Schleife geht jede Zeile in dem Array content durch
    18. Dim startnummer As String = line.Split("_")(0) 'Hier wird eine Variable "startnummer" vom Typ String erstellt und mit mit dem Wert des 1. Spliteintrags gefüllt. (line.Split("_") gibt ein Array zurück und mit dem (0) lese ich den ersten Eintrag direkt aus dem Array
    19. Dim punkte As String = line.Split("_")(1).Replace(";", "") ' Hier wird das gleiche wie oben gemacht, nur das der 2. Eintrag des line.Split("_") Arrays ausgelesen wird und zusätzlich das Zeichen ";" mit "" (nichts) ersetzt wird.
    20. 'Hier wird die Variable "startnummer" zu einem Integer konvertiert und abgefragt ob es 2 ist. Ohne CIn geht das so: If startnummer = "2" Then
    21. ListView1.Items.Add(punkte).SubItems.Add(startnummer) 'Hier geb ich eine MessageBox mit einem Formatierten String aus, die Zeichenfolgen: {0} und {1} sind Platzhalter für die darauf folgenden Variablen startnummer und punkte.
    22. Next
    23. End If
    25. ListView1.Sorting = SortOrder.Ascending
    26. End Sub
    27. Private Sub ListView1_ColumnClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick
    28. Select Case e.Column
    29. Case 0
    30. Me.ListView1.ListViewItemSorter = New ListViewItemComparer123(0)
    31. Case Else
    32. Me.ListView1.ListViewItemSorter = New ListViewItemComparerABC(e.Column)
    33. End Select
    34. End Sub
    36. Class ListViewItemComparer123
    37. Implements IComparer
    38. Private col As Integer
    39. Public Sub New()
    40. col = 0
    41. End Sub
    42. Public Sub New(ByVal column As Integer)
    43. col = column
    44. End Sub
    45. Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
    46. Dim lviX As ListViewItem = CType(x, ListViewItem)
    47. Dim lviY As ListViewItem = CType(y, ListViewItem)
    48. ' compare number in 1. Column
    49. Return CInt(lviX.Text) - CInt(lviY.Text)
    50. End Function
    51. End Class
    52. Class ListViewItemComparerABC
    53. Implements IComparer
    54. Private col As Integer
    55. Public Sub New()
    56. col = 0
    57. End Sub
    58. Public Sub New(ByVal column As Integer)
    59. col = column
    60. End Sub
    61. Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
    62. Implements IComparer.Compare
    63. Return [String].Compare(CType(x, ListViewItem).SubItems(col).Text, CType(y, ListViewItem).SubItems(col).Text)
    64. End Function
    65. End Class


    Das Problem wo ich habe, ist das ich mit diesem Code die Spalte 1 sortiere, aber ich möchte die Spalte 2 sortieren. Wo muss ich die Funktion so umtauschen das ich die Spalte 2 sortieren kann und nicht die Spalte 1. Wenn jemand den Code noch auskommentieren könnte, wüsste ich auch was der Code machen würde aber der Ansatz ist supper.



    Habs gefunden :) Me.ListView1.ListViewItemSorter = New ListViewItemComparer123(1)



    Freundliche Grüsse Rémi Lay

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

    Da:

    RodFromGermany schrieb:

    VB.NET-Quellcode

    1. Private Sub ListView1_ColumnClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick
    2. Select Case e.Column
    3. Case 0
    4. Me.ListView1.ListViewItemSorter = New ListViewItemComparer123(0)
    5. Case Else
    6. Me.ListView1.ListViewItemSorter = New ListViewItemComparerABC(e.Column)
    7. End Select
    8. End Sub
    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!

    RodFromGermany schrieb:

    Da:

    RodFromGermany schrieb:

    VB.NET-Quellcode

    1. Private Sub ListView1_ColumnClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick
    2. Select Case e.Column
    3. Case 0
    4. Me.ListView1.ListViewItemSorter = New ListViewItemComparer123(0)
    5. Case Else
    6. Me.ListView1.ListViewItemSorter = New ListViewItemComparerABC(e.Column)
    7. End Select
    8. End Sub




    Danke für die rasche Antwort. Du bist mir sehr Hilfreich.

    Die sortierung erfolgt nur wenn ich auf die bestimmte Spalte klicke, doch was ist wenn ich die Sortierung durch ein Button erfolgen soll.

    VB.NET-Quellcode

    1. Me.ListView1.ListViewItemSorter = New ListViewItemComparerABC(e.Column)


    VB.NET-Quellcode

    1. Private Sub ListView1_ColumnClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick


    Ich rufe die Funktion mit Listview1_ColumnClick doch wenn ich ButtonClick nehme, ist ja der ColumnClickEventArgs nicht vorhanden. Gibt es da eine Lösung ?

    Und ist e.Column ein Platzhalter (e.) für die Spaltennummer ?

    Freundliche Grüsse Rémi

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

    (Zwischen-Unk): Der ListView-Holzweg

    Als nächstes bekommst du noch eine Datum-Spalte, und dann schreibst du den dritten ListViewSorter.

    Dassis eben das Prinzip Holzweg: Jedes "Vorankommen" macht einen noch weniger geneigt, alles nochmal neu und diesmal richtig aufzuziehen.

    Remi Lay schrieb:

    Und ist e.Column ein Platzhalter (e.) für die Spaltennummer ?
    Column ist englisch und heißt auf deutsch ...
    Mach statt

    VB.NET-Quellcode

    1. Select Case e.Column
    ==>

    VB.NET-Quellcode

    1. Select Case MEINE_SPALTENNUMMER
    wobei MEINE_SPALTENNUMMER die Nummer der zu sortierenden Spalte ist.
    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!

    ErfinderDesRades schrieb:

    (Zwischen-Unk): Der ListView-Holzweg

    Als nächstes bekommst du noch eine Datum-Spalte, und dann schreibst du den dritten ListViewSorter.

    Dassis eben das Prinzip Holzweg: Jedes "Vorankommen" macht einen noch weniger geneigt, alles nochmal neu und diesmal richtig aufzuziehen.
    Danke für die Antwort. Diese Antwort hast du mir schon mal gegebenen, doch ich habe leider keine Nerven mehr und wenn ich wieder von vorne beginne, dann platz mir den Kragen völlig. Freundliche Grüsse Rémi Lay

Facebook
Telefonspende