ListView nach Spalten sortieren

    • VB.NET

    Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

      ListView nach Spalten sortieren

      Hi
      Hier mal eine Möglichkeit ein ListView nach Spalten zu sortieren:

      Als erstes benötigen wir einen Comparer, der später die ListViewItems vergleicht:

      VB.NET-Quellcode

      1. Public Class ListViewComparer
      2. Implements IComparer
      3. Private intColumn As Integer
      4. Private soSortOrder As SortOrder
      5. Private cicComparer As CaseInsensitiveComparer
      7. Public Sub New(ByVal ParentListView As ListView)
      8. intColumn = 0
      9. soSortOrder = SortOrder.None
      10. cicComparer = New CaseInsensitiveComparer()
      11. ParentListView.ListViewItemSorter = Me
      12. End Sub
      14. Public Property SortOrder() As SortOrder
      15. Get
      16. Return soSortOrder
      17. End Get
      18. Set(ByVal value As SortOrder)
      19. soSortOrder = value
      20. End Set
      21. End Property
      23. Public Property SortColumn() As Integer
      24. Get
      25. Return intColumn
      26. End Get
      27. Set(ByVal value As Integer)
      28. intColumn = value
      29. End Set
      30. End Property
      32. Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
      33. Dim compareResult As Integer
      34. Dim listviewX As ListViewItem, listviewY As ListViewItem
      35. listviewX = CType(x, ListViewItem)
      36. listviewY = CType(y, ListViewItem)
      38. compareResult = cicComparer.Compare(listviewX.SubItems(intColumn).Text, listviewY.SubItems(intColumn).Text)
      39. If soSortOrder = SortOrder.Ascending Then
      40. Return compareResult
      41. ElseIf soSortOrder = SortOrder.Descending Then
      42. Return compareResult * -1
      43. Else
      44. Return 0
      45. End If
      46. End Function
      47. End Class


      Bei einer Neu-Generierung wird der ListViewComparer instantiiert(Im SourceCode cmpFileListViewComparer):

      VB.NET-Quellcode

      1. Private cmpFileListViewComparer As ListViewComparer
      3. Public Sub New()
      5. ' This call is required by the Windows Form Designer.
      6. InitializeComponent()
      8. ' Add any initialization after the InitializeComponent() call.
      9. cmpFileListViewComparer = New ListViewComparer(ListViewFiles)
      10. End Sub

      Bei ListViewFiles übergibt man das ListView, das sortiert werden soll.

      Zum Schluss nimmt man das ListView und schreibt in das ColumnClick-Event den Code, der zum sortieren gebraucht wird:

      VB.NET-Quellcode

      1. If e.Column = cmpFileListViewComparer.SortColumn Then
      2. If cmpFileListViewComparer.SortOrder = SortOrder.Ascending Then
      3. cmpFileListViewComparer.SortOrder = SortOrder.Descending
      4. Else
      5. cmpFileListViewComparer.SortOrder = SortOrder.Ascending
      6. End If
      7. Else
      8. cmpFileListViewComparer.SortOrder = SortOrder.Ascending
      9. End If
      11. cmpFileListViewComparer.SortColumn = e.Column
      12. ListViewFiles.Sort()


      Gruß
      ~blaze~

      Ich setze jetzt meinen auch noch rein. Der gefällt mir sowieso am Besten.
      Für die Typen String, Integer, Long, Date.

      VB.NET-Quellcode

      1. Private colIndex As Int32 = -1
      2. Private sortord As SortOrder = SortOrder.Ascending


      VB.NET-Quellcode

      1. Private Sub LvMain_ColumnClick(ByVal sender As Object, ByVal e As ColumnClickEventArgs) Handles LvMain.ColumnClick
      2. Me.ColumnSort(e.Column)
      3. End Sub


      VB.NET-Quellcode

      1. Private Sub ColumnSort(ByVal columnindex As Int32)
      2. Dim idx As Int32 = columnindex
      3. If Not idx = colIndex Then
      4. colIndex = idx
      5. sortord = SortOrder.Descending
      6. End If
      7. 'Sortierung umkehren
      8. If Not sortord = SortOrder.Ascending Then
      9. sortord = SortOrder.Ascending
      10. Else : sortord = SortOrder.Descending
      11. End If
      12. Dim typ As Type = Me.GetColumnType(idx)
      13. Me.LvMain.ListViewItemSorter = New ListViewItemComparer(idx, typ, sortord)
      14. End Sub
      15. Private Function GetColumnType(ByVal idx As Int32) As Type
      16. 'Den Type per Designer (oder per Code) in das Tag-Property des ColumnHeader
      17. 'schreiben, dann kann man so drauf greifen.
      18. Return DirectCast(Me.LvMain.Columns(idx).Tag, Type)
      19. End Function


      ListViewItemComparer

      VB.NET-Quellcode

      1. Public Class ListViewItemComparer
      2. Implements IComparer
      3. Private sorttype As Type, index As Int32, sortord As SortOrder
      4. Public Function Compare(ByVal x As Object, ByVal y As Object) As Int32 Implements IComparer.Compare
      5. If GetType(String) = Me.sorttype Then
      6. If Me.sortord = SortOrder.Ascending Then
      7. Return [String].Compare(CType(x, ListViewItem).SubItems(Me.index).Text, CType(y, ListViewItem).SubItems(Me.index).Text)
      8. Else : Return [String].Compare(CType(y, ListViewItem).SubItems(Me.index).Text, CType(x, ListViewItem).SubItems(Me.index).Text)
      9. End If
      10. End If
      11. If GetType(Decimal) = Me.sorttype Then
      12. If Me.sortord = SortOrder.Ascending Then
      13. Return Decimal.Compare(CDec(CType(x, ListViewItem).SubItems(Me.index).Text), CDec(CType(y, ListViewItem).SubItems(Me.index).Text))
      14. Else : Return Decimal.Compare(CDec(CType(y, ListViewItem).SubItems(Me.index).Text), CDec(CType(x, ListViewItem).SubItems(Me.index).Text))
      15. End If
      16. End If
      17. If GetType(Date) = Me.sorttype Then
      18. If Me.sortord = SortOrder.Ascending Then
      19. Return Date.Compare(CDate(CType(x, ListViewItem).SubItems(Me.index).Text), CDate(CType(y, ListViewItem).SubItems(Me.index).Text))
      20. Else : Return Date.Compare(CDate(CType(y, ListViewItem).SubItems(Me.index).Text), CDate(CType(x, ListViewItem).SubItems(Me.index).Text))
      21. End If
      22. End If
      23. Return -1
      24. End Function
      25. Private Function IsNumericType(ByVal typ As Type) As Boolean
      26. If typ Is Nothing Then Return False
      27. Select Case Type.GetTypeCode(typ)
      28. Case TypeCode.Byte, TypeCode.Decimal, TypeCode.Double, TypeCode.Int16, TypeCode.Int32, TypeCode.Int64, _
      29. TypeCode.SByte, TypeCode.Single, TypeCode.UInt16, TypeCode.UInt32, TypeCode.UInt64
      30. Return True
      31. Case TypeCode.Object
      32. If typ.IsGenericType AndAlso typ.GetGenericTypeDefinition() = GetType(Nullable(Of )) Then
      33. Return IsNumericType(Nullable.GetUnderlyingType(typ))
      34. End If
      35. Return False
      36. End Select
      37. Return False
      38. End Function
      39. Public Sub New(ByVal idx As Int32, ByVal typ As Type, ByVal sortorde As SortOrder)
      40. Me.index = idx : Me.sorttype = typ : Me.sortord = sortorde
      41. If IsNumericType(typ) Then
      42. Me.sorttype = GetType(Decimal)
      43. End If
      44. End Sub
      45. End Class


      Frendliche Grüsse

      exc-jdbi

      Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „exc-jdbi“ ()

      Hey, das Thema ist schon ur-alt aber gerade interessant für mich.
      Ich hab das Handling mal mit in die Klasse gepackt und wollte das so vorbereiten, dass ich mehrere ListViews übergeben kann,
      leider sortiert er mir immer nur das zuletzt angegebene. Hat jemand Rat?

      Im Beispiel hier sortiert er mir "lv3", die anderen beiden nicht. Man sieht aber am "Flackern", dass eigentlich was passieren sollte - es tut' sich aber nix

      Aufruf auf Form_Load:
      Dim cmpListViewComparer = New ListViewComparer(lv1, lv2, lv3)
      sieht mit dem Dim auch ein bisschen komisch aus... aber ich kenn' keinen anderen Weg eine Klasse aufzurufen, die bereits alles beinhaltet ;)

      Die Klasse:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Imports System.Collections
      2. Public Class ListViewComparer
      3. Implements IComparer
      4. Private intColumn As Integer = 0
      5. Private soSortOrder As SortOrder = SortOrder.None
      6. Private cicComparer As CaseInsensitiveComparer
      7. Private _lv As ListView
      8. 'TODO klappt nicht für mehrere ListView's
      9. Public Sub New(ParamArray lvS As ListView())
      10. For Each lv In lvS
      11. cicComparer = New CaseInsensitiveComparer()
      12. lv.ListViewItemSorter = Me
      13. _lv = lv
      14. AddHandler lv.ColumnClick, AddressOf colSort
      15. Next
      16. End Sub
      18. Private Sub colSort(sender As Object, e As ColumnClickEventArgs)
      19. If e.Column = Me.SortColumn Then
      20. If Me.SortOrder = SortOrder.Ascending Then
      21. Me.SortOrder = SortOrder.Descending
      22. Else
      23. Me.SortOrder = SortOrder.Ascending
      24. End If
      25. Else
      26. Me.SortOrder = SortOrder.Ascending
      27. End If
      28. Me.SortColumn = e.Column
      29. _lv.Sort()
      30. End Sub
      32. Private Property SortOrder() As SortOrder
      33. Get
      34. Return soSortOrder
      35. End Get
      36. Set(ByVal value As SortOrder)
      37. soSortOrder = value
      38. End Set
      39. End Property
      41. Private Property SortColumn() As Integer
      42. Get
      43. Return intColumn
      44. End Get
      45. Set(ByVal value As Integer)
      46. intColumn = value
      47. End Set
      48. End Property
      50. Private Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
      51. Dim compareResult As Integer
      52. Dim listviewX As ListViewItem, listviewY As ListViewItem
      53. listviewX = CType(x, ListViewItem)
      54. listviewY = CType(y, ListViewItem)
      55. compareResult = cicComparer.Compare(listviewX.SubItems(intColumn).Text, listviewY.SubItems(intColumn).Text)
      56. If soSortOrder = SortOrder.Ascending Then
      57. Return compareResult
      58. ElseIf soSortOrder = SortOrder.Descending Then
      59. Return compareResult * -1
      60. Else
      61. Return 0
      62. End If
      63. End Function
      64. End Class


      Edit: Hab's. Auf der Form braucht's folgendes Handling: (Das von oben [/b]Dim cmpListViewComparer = New ListViewComparer(lv1, lv2, lv3)[b] aus Form_Load entfernen!)

      VB.NET-Quellcode

      1. Private Sub lv_GotFocus(sender As Object, e As EventArgs) Handles lv1.GotFocus, lv2.GotFocus, lv3.GotFocus
      2. Dim cmp As ListViewComparer
      3. Dim lv = DirectCast(sender, ListView)
      4. cmp = New ListViewComparer(lv)
      5. End Sub


      Dann die Klasse wie folgt:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Imports System.Collections
      2. Public Class ListViewComparer
      3. Implements IComparer
      4. Private intColumn As Integer = 0
      5. Private soSortOrder As SortOrder = SortOrder.None
      6. Private cicComparer As CaseInsensitiveComparer
      7. Private _lv As ListView
      8. Public Sub New(lv As ListView)
      9. cicComparer = New CaseInsensitiveComparer()
      10. lv.ListViewItemSorter = Me
      11. _lv = lv
      12. AddHandler lv.ColumnClick, AddressOf colSort
      13. End Sub
      15. Private Sub colSort(sender As Object, e As ColumnClickEventArgs)
      16. If e.Column = Me.SortColumn Then
      17. If Me.SortOrder = SortOrder.Ascending Then
      18. Me.SortOrder = SortOrder.Descending
      19. Else
      20. Me.SortOrder = SortOrder.Ascending
      21. End If
      22. Else
      23. Me.SortOrder = SortOrder.Ascending
      24. End If
      25. Me.SortColumn = e.Column
      26. _lv.Sort()
      27. End Sub
      29. Private Property SortOrder() As SortOrder
      30. Get
      31. Return soSortOrder
      32. End Get
      33. Set(ByVal value As SortOrder)
      34. soSortOrder = value
      35. End Set
      36. End Property
      38. Private Property SortColumn() As Integer
      39. Get
      40. Return intColumn
      41. End Get
      42. Set(ByVal value As Integer)
      43. intColumn = value
      44. End Set
      45. End Property
      47. Private Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
      48. Dim compareResult As Integer
      49. Dim listviewX As ListViewItem, listviewY As ListViewItem
      50. listviewX = CType(x, ListViewItem)
      51. listviewY = CType(y, ListViewItem)
      52. compareResult = cicComparer.Compare(listviewX.SubItems(intColumn).Text, listviewY.SubItems(intColumn).Text)
      53. If soSortOrder = SortOrder.Ascending Then
      54. Return compareResult
      55. ElseIf soSortOrder = SortOrder.Descending Then
      56. Return compareResult * -1
      57. Else
      58. Return 0
      59. End If
      60. End Function
      61. End Class


      vielleicht kann das ja jemand gebrauchen :thumbup:
      "Na, wie ist das Wetter bei dir?"
      "Caps Lock."
      "Hä?"
      "Shift ohne Ende!" :thumbsup:

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „tragl“ ()

      ErfinderDesRades schrieb:

      und jedes mal, wenn ein Listview den Focus bekommt, bekommt es einen weiteren Sorter?

      was gibt's für ne sinnvolle Alternative Aktion? Paint?

      ErfinderDesRades schrieb:

      Nein, was du geschrieben hast, ist ein "Behavior". Und das sollte man ein einziges ma dranmachen ans Control und gut - etwa im Form_Load.

      hatte ich vorher mit dem Grundgerüst vom TE probiert, da hat's dann aber auch nur mit dem zuletzt angegebenen Funktioniert :(
      "Na, wie ist das Wetter bei dir?"
      "Caps Lock."
      "Hä?"
      "Shift ohne Ende!" :thumbsup:

      tragl schrieb:

      was gibt's für ne sinnvolle Alternative Aktion?
      Nach dem Instanziieren des Controls.
      Der Sorter wird dem Control genau ein Mal zugewiesen, und wenn sortiert werden muss, wird genau diese eine einzige Instanz verwendet.
      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:

      Nach dem Instanziieren des Controls.

      jo und jetzt steh' ich mit meinem LaienWissen mal wieder vor der Wand:
      Wann werden genau die 13 ListView's instanziiert, die ich im Form-Designer erstellt hab' ? :/
      Etwa im Form_Load mit For Each jedes ListView durchgehen?
      "Na, wie ist das Wetter bei dir?"
      "Caps Lock."
      "Hä?"
      "Shift ohne Ende!" :thumbsup:

      tragl schrieb:

      Wann werden genau die 13 ListView's instanziiert
      Füge Deiner Klasse den Standard-Konstruktor hinzu (kannst Du hinterher wieder löschen, wird vom Framework aufgerufen):

      In der Prozedur InitializeComponents(), sie liegt in der Datei FormX.Designer.vb:

      VB.NET-Quellcode

      1. Public Sub New()
      3. ' Dieser Aufruf ist für den Designer erforderlich.
      4. InitializeComponent() ' <== Hier
      6. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
      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:

      Füge Deiner Klasse den Standard-Konstruktor hinzu (kannst Du hinterher wieder löschen, wird vom Framework aufgerufen):

      Ich muss mich dringend mal schlau machen, wo genau Im Fall der Form-Classe der Unterschied zwischen Form_Load und Sub New() liegt - bewirkt nach meinem Wissen nämlich
      das Gleiche.
      Edit: also mir ist schon bewusst, dass Sub New() der Konstruktor für eine neue Instanz der Form ist, aber Form_Load sollte in dem Fall das gleiche tun, so war das gemeint ;)

      Ich hab das inzwischen so gelöst:

      VB.NET-Quellcode

      1. Private Sub frm_Load(sender As Object, e As EventArgs) Handles Me.Load
      2. Dim cmp As ListViewComparer
      3. Dim getChilds As Func(Of Control, IEnumerable) = Function(ctl) ctl.Controls
      4. For Each ctl In getChilds.All(Me)
      5. Dim lv = TryCast(ctl, ListView)
      6. If lv.NotNull Then
      7. cmp = New ListViewComparer(lv)
      8. End If
      9. Next
      10. End Sub

      "Na, wie ist das Wetter bei dir?"
      "Caps Lock."
      "Hä?"
      "Shift ohne Ende!" :thumbsup:

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

      tragl schrieb:

      Unterschied zwischen Form_Load und Sub New()
      ist ein riesiger.
      New() instanziiert die Form, wie jede andere Klasse auch, nur dass in VB.NET der Konstruktor per Default nicht angezeigt, wohl aber aufgerufen wird.
      Setze einen Haltepunkt in die Prozedur InitializeComponents(), dann wird dort angehalten.
      Die Form_Load wird vom Framework aufgerufen als letzte Prozedur, wo die Form noch nicht dargestellt, also unsichtbar, ist.
      Diese Prozedur kann man getrost weglassen, zumal das Framework dort etwas rumspinnt und einige (nicht alle) Exceptions verschluckt.
      Was passiert eigentlich mit Deiner ListViewComparer-Instanz?
      Die wird erstens für jedes weitere ListView überschrieben und ist zweitens nach Beendigung von Form_Load weg.
      Und:
      Verstehe dieses Snippet:

      VB.NET-Quellcode

      1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      2. For Each pb In Panel1.Controls.OfType(Of PictureBox)()
      3. pb.BackColor = Color.Black
      4. Next
      5. 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:

      Was passiert eigentlich mit Deiner ListViewComparer-Instanz?
      Die wird erstens für jedes weitere ListView überschrieben und ist zweitens nach Beendigung von Form_Load weg.


      Die Sortierung lässt sich trotzdem auf jedem ListView durchführen... :whistling:

      RodFromGermany schrieb:

      Verstehe dieses Snippet:


      wird wohl bei jeder PictureBox den Hintergrund schwarz färben, aber was willst du mir damit sagen? 8| ah, dass ich den Code noch verkürzen kann, in etwa so:

      VB.NET-Quellcode

      1. For Each lv In Me.Controls.OfType(Of ListView)
      2. cmp = New ListViewComparer(lv)
      3. Next


      Damit klappt aber keine Sortierung mehr
      "Na, wie ist das Wetter bei dir?"
      "Caps Lock."
      "Hä?"
      "Shift ohne Ende!" :thumbsup:

      Jou, die Verkürzung Deines Codes.

      tragl schrieb:

      Damit klappt aber keine Sortierung mehr
      Kann ich nicht nachvollziehen.
      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!

      Wenn wir uns mal den Designer anschauen:

      VB.NET-Quellcode

      1. Me.Controls.Add(Me.GroupBox1)
      2. Me.Controls.Add(Me.tabMonate)
      3. Me.Controls.Add(Me.msTabbedMonatsweise)
      5. Me.tabMonate.Controls.Add(Me.tpMitarbeiter)
      7. Me.tpMitarbeiter.Controls.Add(Me.lvMitarbeiter)


      Der Aufruf Me.Controls.OfType(Of ListView) erfragt aus der Auflistung Me.Controls alle Objekte vom Typ ListView. Die Listviews die du ansprechen möchtest, befinden sich allerdings nicht direkt auf der Form, sondern sind verschachtelt in anderen Controls. lvMitarbeiter befindet sich beispielsweise an Postion Me.Controls -> Me.tabMonate -> Me.tpMitarbeiter -> Me.lvMitarbeiter. Also musst du - wie in Post 11 richtig erkannt - die Controls rekursiv nach ihren Untercontrols befragen.

      kleine Verbesserung:

      VB.NET-Quellcode

      1. Dim getChilds As Func(Of Control, IEnumerable) = Function(ctl) ctl.Controls
      2. For Each lv In getChilds.All(Me).OfType(Of ListView)
      3. Dim cmp = New ListViewComparer(lv)
      4. Next


      Die Controls die du berücksichtigen möchtest, stehen ja sowieso schon fest. Warum dann den Aufwand mit dem rekursiven Durchsuchen?

      VB.NET-Quellcode

      1. Dim lvs = {Me.lvMitarbeiter,
      2. Me.lvJanuar}
      3. For Each lv In lvs
      4. Dim cmp = New ListViewComparer(lv)
      5. Next

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ChristianT.“ ()

      ChristianT. schrieb:

      Die Controls die du berücksichtigen möchtest, stehen ja sowieso schon fest. Warum dann den Aufwand mit dem rekursiven Durchsuchen?

      Weil das insgesamt 13 ListView's (1x Übersicht Mitarbeiter und dann pro Monat 1x) sind, dann wäre der Code länger als die aktuelle Variante ;)
      Aber ja, ist richtig. Die ListViews sitzen auf einem TabControl in unterschiedlichen TabPages - daran hab' ich dann aber auch nicht mehr gedacht.
      "Na, wie ist das Wetter bei dir?"
      "Caps Lock."
      "Hä?"
      "Shift ohne Ende!" :thumbsup:

    Facebook
    Telefonspende