ListView SortOrder

  • VB.NET

Es gibt 30 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    ListView SortOrder

    Hallo,

    folgendes Problem; ich lade mein ListView mittels:

    VB.NET-Quellcode

    1. Dim li As New ListViewItem
    2. Dim Filename As String
    3. Dim TFile As System.IO.StreamReader
    4. Dim sRGB As String()
    5. Dim S As String
    6. Dim X, Y As Integer
    7. Dim S1, S2, S3, S4, S5, S6, S7, S8, S9, S10 As String
    9. Try
    10. Filename = "F:\Mechaniker\MechanikerDB2017.lst"
    11. ListView1.Items.Clear()
    13. TFile = My.Computer.FileSystem.OpenTextFileReader(Filename)
    15. Do While (TFile.Peek() > -1)
    16. X = ListView1.Items.Count
    17. S = Trim(TFile.ReadLine)
    18. sRGB = S.Split(",")
    20. S1 = sRGB(0)
    21. S2 = sRGB(1)
    22. S3 = sRGB(2)
    23. S4 = sRGB(3)
    24. S5 = sRGB(4)
    25. S6 = sRGB(5)
    26. S7 = sRGB(6)
    27. S8 = sRGB(7)
    28. S9 = sRGB(8)
    29. S10 = sRGB(9)
    31. Dim item As ListViewItem = ListView1.Items.Add(S1)
    32. item.SubItems.Add(S2)
    33. item.SubItems.Add(S3)
    34. item.SubItems.Add(S4)
    35. item.SubItems.Add(S5)
    36. item.SubItems.Add(S6)
    37. item.SubItems.Add(S7)
    38. item.SubItems.Add(S8)
    39. item.SubItems.Add(S9)
    40. item.SubItems.Add(S10)
    41. item.ImageIndex = 1
    42. Loop
    43. Catch ex As Exception
    44. End Try
    45. li.Checked = True
    46. ToolStripStatusLabel2.Text = "Aufträge: " & ListView1.Items.Count.ToString
    47. TFile.Close()
    48. ListView1.Sort()


    VB.NET-Quellcode

    1. [b][/b]ListView1.Sort()[b][/b]
    verwende ich damit die Items in Colum 4 Absteigend Sortiert werden.

    Meine Klasse zum Sortieren;

    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
    6. Public Sub New(ByVal ParentListView As ListView)
    7. intColumn = 4
    8. soSortOrder = SortOrder.Descending
    10. cicComparer = New CaseInsensitiveComparer()
    11. ParentListView.ListViewItemSorter = Me
    12. End Sub
    13. Public Property SortOrder() As SortOrder
    14. Get
    15. Return soSortOrder
    16. End Get
    17. Set(ByVal value As SortOrder)
    18. soSortOrder = value
    19. End Set
    20. End Property
    21. Public Property SortColumn() As Integer
    22. Get
    23. Return intColumn
    24. End Get
    25. Set(ByVal value As Integer)
    26. intColumn = value
    27. End Set
    28. End Property
    29. Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
    30. Dim compareResult As Integer
    31. Dim listviewX As ListViewItem, listviewY As ListViewItem
    32. listviewX = CType(x, ListViewItem)
    33. listviewY = CType(y, ListViewItem)
    34. compareResult = cicComparer.Compare(listviewX.SubItems(intColumn).Text, listviewY.SubItems(intColumn).Text)
    35. If soSortOrder = SortOrder.Ascending Then
    36. Return compareResult
    37. ElseIf soSortOrder = SortOrder.Descending Then
    38. Return compareResult * -1
    39. Else
    40. Return 0
    41. End If
    42. End Function
    43. End Class


    Aber beim Starten kommt immer der Fehler: InvalidArgument=Value mit dem Wert 4 ist für index ungültig. Parametername: index

    Ich hab keine Ahnung woran das liegt :(

    @VB1963 bei

    VB.NET-Quellcode

    1. compareResult = cicComparer.Compare(listviewX.SubItems(intColumn).Text, listviewY.SubItems(intColumn).Text)


    Hab das hier gefunden, aber wie wende ich das bei mir an? :/

    Fehler beim sortieren von listview

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

    @Pixxxas Setz in die Funktion Function Compare() einen Haltepunkt rein und kläre auf, was da mit den Parametern x und y ühaupt reinkommt.
    Und:

    Pixxxas schrieb:

    VB.NET-Quellcode

    1. Return compareResult * -1
    machst Du

    VB.NET-Quellcode

    1. Return -compareResult
    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
    @VB1963

    So beim laden scheint alles zu klappen, aber wenn ich mit einem Button die Liste neu laden möchte (anderer User hat ein neues Item Hinzugefügt) kommt der selbe Fehler.
    Müssen irgendwelche Einstellungen zurück gesetzt werden?
    So sieht jetzt mein Load Event aus und das habe ich im Button so ein zu ein übernommen.

    VB.NET-Quellcode

    1. 'ListView1.OwnerDraw = True
    2. ProgressBar1.Maximum = 1000
    3. 'Me.Show()
    5. 'Control.CheckForIllegalCrossThreadCalls = False
    6. 'Me.ListView1.ListViewItemSorter = lvwColumnSorter
    8. Dim li As New ListViewItem
    9. Dim Filename As String
    10. Dim TFile As System.IO.StreamReader
    11. Dim sRGB As String()
    12. Dim S As String
    13. Dim X, Y As Integer
    14. Dim S1, S2, S3, S4, S5, S6, S7, S8, S9, S10 As String
    16. 'Filename = "F:\Mechaniker\MechanikerDB2017.lst"
    18. Filename = "\\internal.novero.com\dab\Data\PostkastenNOVERO\Sarra\Mechaniker\MechanikerDB2017.lst"
    20. ListView1.Items.Clear()
    22. TFile = My.Computer.FileSystem.OpenTextFileReader(Filename)
    24. Do While (TFile.Peek() > -1)
    25. X = ListView1.Items.Count
    26. S = Trim(TFile.ReadLine)
    27. sRGB = S.Split(",")
    29. S1 = sRGB(0)
    30. S2 = sRGB(1)
    31. S3 = sRGB(2)
    32. S4 = sRGB(3)
    33. S5 = sRGB(4)
    34. S6 = sRGB(5)
    35. S7 = sRGB(6)
    36. S8 = sRGB(7)
    37. S9 = sRGB(8)
    38. S10 = sRGB(9)
    40. Dim item As ListViewItem = ListView1.Items.Add(S1)
    41. item.SubItems.Add(S2)
    42. item.SubItems.Add(S3)
    43. item.SubItems.Add(S4)
    44. item.SubItems.Add(S5)
    45. item.SubItems.Add(S6)
    46. item.SubItems.Add(S7)
    47. item.SubItems.Add(S8)
    48. item.SubItems.Add(S9)
    49. item.SubItems.Add(S10)
    50. item.ImageIndex = 1
    52. Loop
    54. li.Checked = True
    55. ToolStripStatusLabel2.Text = "Aufträge: " & ListView1.Items.Count.ToString
    56. TFile.Close()
    57. 'lvwColumnSorter.SortColumn = 4
    58. 'lvwColumnSorter.Order = SortOrder.Descending
    59. 'Me.ListView1.Sort()
    60. 'ListView1.Sort()
    62. cmpFileListViewComparer.SortOrder = SortOrder.Descending
    63. cmpFileListViewComparer.SortColumn = 4
    64. ListView1.Sort()



    Du hast recht, die Liste muss erst Fertig geladen werden.
    Wenn ich die Liste fertig laden lasse und dann per Button, die liste Sortieren lasse, klappt alles.

    VB.NET-Quellcode

    1. cmpFileListViewComparer.SortOrder = SortOrder.Descending
    2. cmpFileListViewComparer.SortColumn = 4
    3. ListView1.Sort()



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

    @Pixxxas Poste mal ein Testprojekt als ZIP (vorher ausprobieren und bereinigen), das den Effekt reproduziert.
    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!

    @Pixxxas Wenn Du Fehler beseitigen willst, musst Du zunächst das Try/Catch rausnehmen.
    Ich hab mal Deine Comparer-Klasse etwas gestylt:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class ListViewComparer
    2. Implements IComparer
    4. Private cicComparer As CaseInsensitiveComparer
    5. Public Sub New(ByVal ParentListView As ListView)
    6. SortColumn = 0
    7. SortOrder = SortOrder.None
    9. cicComparer = New CaseInsensitiveComparer()
    10. ParentListView.ListViewItemSorter = Me
    11. End Sub
    12. Public Property SortOrder() As SortOrder
    13. Public Property SortColumn() As Integer
    14. Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
    15. Dim listviewX = CType(x, ListViewItem)
    16. Dim listviewY = CType(y, ListViewItem)
    18. Console.WriteLine("Anzahl: {0}, {1}", listviewX.SubItems.Count, listviewY.SubItems.Count)
    19. 'Console.WriteLine("1: {0}, {1}, {2}", listviewX.SubItems(0).Text, listviewX.SubItems(1).Text, listviewX.SubItems(2).Text)
    20. 'Console.WriteLine("2: {0}, {1}, {2}", listviewY.SubItems(0).Text, listviewY.SubItems(1).Text, listviewY.SubItems(2).Text)
    22. Dim compareResult = cicComparer.Compare(listviewX.SubItems(SortColumn).Text, listviewY.SubItems(SortColumn).Text)
    23. If SortOrder = SortOrder.Ascending Then
    24. Return compareResult
    25. ElseIf SortOrder = SortOrder.Descending Then
    26. Return -compareResult
    27. Else
    28. Return 0
    29. End If
    30. End Function
    31. End Class
    Es zeigt sich, dass bereits sortiert wird, obwohl die Zeile noch nicht fertig hinzugefügt ist.
    Anzahl: 3, 1

    Das passiert bei Dir in diesem Code:

    VB.NET-Quellcode

    1. ListView1.Items.Add(S1)
    2. ListView1.Items(X).SubItems.Add(S2)
    3. ListView1.Items(X).SubItems.Add(S3)
    Wenn Du diese Zeilen durch diesen Code ersetzt, spricht die Nachbarin wieder mit Dir: ;)

    VB.NET-Quellcode

    1. Dim lvi = New ListViewItem(S1)
    2. lvi.SubItems.Add(S2)
    3. lvi.SubItems.Add(S3)
    4. ListView1.Items.Add(lvi)
    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!

    Neues Problem :(

    Ich sortiere meine Liste Absteigend;

    9
    8
    7 usw....

    Trage ich aber 10 oder 11 ein setzt er die Zahl zwischen 1 und 2

    also er sortiert nur von 1-9 nicht von 1-10 oder 11 usw...

    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
    6. Public Sub New(ByVal ParentListView As ListView)
    7. intColumn = 0
    8. soSortOrder = SortOrder.None
    10. cicComparer = New CaseInsensitiveComparer()
    11. ParentListView.ListViewItemSorter = Me
    12. End Sub
    13. Public Property SortOrder() As SortOrder
    14. Get
    15. Return soSortOrder
    16. End Get
    17. Set(ByVal value As SortOrder)
    18. soSortOrder = value
    19. End Set
    20. End Property
    21. Public Property SortColumn() As Integer
    22. Get
    23. Return intColumn
    24. End Get
    25. Set(ByVal value As Integer)
    26. intColumn = value
    27. End Set
    28. End Property
    29. Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
    30. Dim compareResult As Integer
    31. Dim listviewX As ListViewItem, listviewY As ListViewItem
    32. listviewX = CType(x, ListViewItem)
    33. listviewY = CType(y, ListViewItem)
    34. compareResult = cicComparer.Compare(listviewX.SubItems(intColumn).Text, listviewY.SubItems(intColumn).Text)
    35. If soSortOrder = SortOrder.Ascending Then
    36. Return compareResult
    37. ElseIf soSortOrder = SortOrder.Descending Then
    38. 'Return compareResult * -1
    39. Return -compareResult
    40. Else
    41. Return 0
    42. End If
    43. End Function
    45. End Class


    Im Load event

    VB.NET-Quellcode

    1. cmpFileListViewComparer.SortOrder = SortOrder.Descending
    2. cmpFileListViewComparer.SortColumn = 4
    3. ListView1.Sort()

    Pixxxas schrieb:

    compareResult = cicComparer.Compare(listviewX.SubItems(intColumn).Text, listviewY.SubItems(intColumn).Text)


    Ein Textvergleich. Was erwartest Du? Die einzelnen Zeichen der jeweiligen Zeichenfolge werden natürlich verglichen. Woher soll das Programm auch wissen, dass die Werte anders interpretiert werden sollen, also in diesem Fall als Zahlen?
    Entweder Du gibst Deiner Klasse einen zusätzlichen Parameter, der dann angibt, wie eine Sortierung erfolgen soll/als welcher Variablentyp die ListViewItem-Texte interpretiert werden sollen oder Du machst Deinen ListViewComparer generisch, indem Du schreibst

    VB.NET-Quellcode

    1. Public Class ListViewComparer (Of T As IComparable)
    , später in Compare Deine ListViewItemTexte in T konvertierst und dann den Vergleich zwischen den zu T gewordenen Werten durchfühst.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @Pixxxas Hast Du reine numerische Werte oder Strings, in denen auch Zahlen vorkommen?
    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 werf mal ein paar Stichworte in den Raum:
    - DataGrid
    - DataTable (Datentypen vergeben)
    - DataSource

    Ich wunder mich eh immer, warum hier viele mit dem ListView rum werkeln um das Grid zu umgehen... Gibts da entscheidende Vorteile oder warum ist das so?
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Ich bekomme es einfach nicht hin :(

    Ich speicher alles in eine Access DB, er soll die Spalte ID (9) Absteigend Sortieren.

    Felddatentyp ist Zahl

    So schreibe ich in die DB:

    VB.NET-Quellcode

    1. OleDa.InsertCommand.Parameters.Add("@ID", OleDbType.VarWChar, 50, "ID").Value = (CStr(CInt(comp.ListView1.Items.Count.ToString) + 1))


    So lade ich die ID wieder:

    VB.NET-Quellcode

    1. Item.SubItems.Add(Oledr("ID").ToString())
    3. cmpFileListViewComparer.SortOrder = SortOrder.Descending
    4. cmpFileListViewComparer.SortColumn = 9
    5. ListView1.Sort()

    VB.NET-Quellcode



    Beim Starten, alles wunderbar, wenn ich die Liste neu Lade kommt der Fehler;
    Zusätzliche Informationen: InvalidArgument=Value mit dem Wert 9 ist für index ungültig.

    Sorter

    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
    6. Public Sub New(ByVal ParentListView As ListView)
    7. intColumn = 0
    8. soSortOrder = SortOrder.None
    10. cicComparer = New CaseInsensitiveComparer()
    11. ParentListView.ListViewItemSorter = Me
    12. End Sub
    13. Public Property SortOrder() As SortOrder
    14. Get
    15. Return soSortOrder
    16. End Get
    17. Set(ByVal value As SortOrder)
    18. soSortOrder = value
    19. End Set
    20. End Property
    21. Public Property SortColumn() As Integer
    22. Get
    23. Return intColumn
    24. End Get
    25. Set(ByVal value As Integer)
    26. intColumn = value
    27. End Set
    28. End Property
    29. Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
    30. Dim compareResult As Integer
    31. Dim listviewX As ListViewItem, listviewY As ListViewItem
    32. Dim bListviewX As Boolean, bListviewY As Boolean
    34. listviewX = CType(x, ListViewItem)
    35. listviewY = CType(y, ListViewItem)
    36. Try
    37. bListviewX = IsNumeric(listviewX.SubItems(intColumn).Text)
    38. bListviewY = IsNumeric(listviewY.SubItems(intColumn).Text)
    39. Catch ex As Exception
    41. End Try
    43. compareResult = 0
    44. If (bListviewX And bListviewY) Then
    45. compareResult = cicComparer.Compare(CInt(listviewX.SubItems(intColumn).Text), CInt(listviewY.SubItems(intColumn).Text))
    46. Else
    47. compareResult = cicComparer.Compare(listviewX.SubItems(intColumn).Text, listviewY.SubItems(intColumn).Text)
    48. End If
    50. If soSortOrder = SortOrder.Ascending Then
    51. Return compareResult
    52. ElseIf soSortOrder = SortOrder.Descending Then
    53. 'Return compareResult * -1
    54. Return -compareResult
    55. Else
    56. Return 0
    57. End If
    58. End Function
    60. End Class

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

    Ich kann zwar grad nix mit dem Laden-Befehl anfangen, aber bevor Du sortierst, schau doch erstmal per MessageBox.Show oder per If ListView1.Columns.Count() < 10 Then Stop, ob da wirklich 10 Spalten (nämlich 0-9) in dem ListView drin sind. Denn bei meinem Test-ListView funktioniert Dein Sorter.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Ja es sind wirklich 9 ^^

    Hier mal ein Test Projekt, wenn man das erste mal Startet geht alles, trage ich alles ein oder möchte ein Item Löschen kommt der Fehler.
    Irgend was ist mit der ID, er kann dann nicht mehr Sortieren.
    Dateien

    • Datenbank.rar

      (177,32 kB, 87 mal heruntergeladen, zuletzt: )

    Wenn es 9 Spalten sind, geht der index von 0-8, nicht aber von 0-9(!).

    Spalte 1 = index 0
    ...
    Spalte 9 = index 8
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

Facebook
Telefonspende