Numerisches Sortieren in ListView/Code umschreiben von VB6 zu VB 2005

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von soulreafer.

    Numerisches Sortieren in ListView/Code umschreiben von VB6 zu VB 2005

    Hallo,
    ich möchte gern meine Listview numerisch Sortieren. Normalerweise sortiert die Listview meist alphanumerisch.

    Bei vb@rchiv hab ich jetzt für VB6 einen solchen Code gefunden, um das selber zu machen bin ich etwas zu sehr Anfänger.
    Wie kann ich diesen Code den für Visual Basic 2005 umschreiben? Manche Codes und Anweisungen gibt es ja einfach nicht mehr und andere heißen einfach anders. Probleme zeigt mein Programm vor allem bei diesem "hWnd" und bei "String" als Befehl benutzt.

    VB.NET-Quellcode

    1. Private Declare Function LockWindowUpdate Lib "user32.dll" ( _
    2. ByVal hWnd As Long) As Long
    4. Public Sub SortListViewColumn(ByVal Index As Integer, _
    5. ByVal CurrentListView As ListView)
    7. Dim I As Integer
    8. Dim strFormat As String
    9. Dim strData() As String
    10. Dim lRet As Long
    12. On Error GoTo ErrorHandler
    14. ' Benutzerdefinierter Formatstring für die
    15. ' Format-Funktion
    16. strFormat = String(30, "0") & "." & String(30, "0")
    18. ' Automatische Aktualisierung des Fensters sperren
    19. lRet = LockWindowUpdate(CurrentListView.Parent.hWnd)
    20. If lRet = 0& Then
    21. Call MsgBox("Can't lock window " & _
    22. CurrentListView.Parent.hWnd, _
    23. vbOKOnly + vbCritical)
    24. Exit Sub
    25. End If
    27. With CurrentListView
    28. With .ListItems
    29. If (Index > 0) Then ' Sortierung nach Subitems
    30. For I = 1 To .Count
    31. With .Item(I).ListSubItems(Index)
    32. ' Sichern des aktuellen Wertes der
    33. ' Text-Eigenschaft in der Tag-Eigenschaft,
    34. ' ohne einen evtl. Inhalt der Tag-Eigenschaft
    35. ' zu überschreiben
    36. .Tag = .Text & vbNullChar & .Tag
    37. ' Falls die Text-Eigenschaft der SubItems
    38. ' eine Zahl ist, so formatiere mit dem oben
    39. ' definierten Formatstring.
    41. If IsNumeric(.Text) Then
    42. .Text = Format$(CDbl("1" & String$(14, "0")) + CDbl(.Text), strFormat)
    43. End If End With
    44. Next I
    45. Else ' Sortierung nach Mainitem
    46. For I = 1 To .Count
    47. With .Item(I)
    48. ' Sichern des aktuellen Wertes der
    49. ' Text-Eigenschaft in der Tag-Eigenschaft,
    50. ' ohne einen evtl. Inhalt der Tag-Eigenschaft
    51. ' zu überschreiben
    52. .Tag = .Text & vbNullChar & .Tag
    53. ' Falls die Text-Eigenschaft der SubItems
    54. ' eine Zahl ist, so formatiere mit dem oben
    55. ' definierten Formatstring.
    56. If IsNumeric(.Text) Then
    57. .Text = Format$(CDbl(.Text), strFormat)
    58. End If
    59. End With
    60. Next I
    61. End If
    62. End With
    64. ' Sortiere die umformatierten Spalten neu
    65. .SortKey = Index
    66. .Sorted = True
    67. .SortOrder = 1 - .SortOrder
    69. With .ListItems
    70. If (Index > 0) Then ' Sortierung nach SubItem
    71. For I = 1 To .Count
    72. With .Item(I).ListSubItems(Index)
    73. ' Extrahiere den ursprünglichen Inhalt des
    74. ' Subitems aus der Tag Eingeschaft und
    75. ' stelle ihn wieder in die Text-Eigenschaft
    76. ' ein.
    77. strData = Split(.Tag, vbNullChar)
    78. .Text = strData(0)
    79. .Tag = strData(1)
    80. End With
    81. Next I
    82. Else ' Sortierung nach MainItem
    83. For I = 1 To .Count
    84. With .Item(I)
    85. ' Extrahiere den ursprünglichen Inhalt des
    86. ' Subitems aus der Tag Eingeschaft und
    87. ' stelle ihn wieder in die Text-Eigenschaft
    88. ' ein.
    89. strData = Split(.Tag, vbNullChar)
    90. .Text = strData(0)
    91. .Tag = strData(1)
    92. End With
    93. Next I
    94. End If
    95. End With
    96. End With
    98. ' Aufheben der Aktualisierungssperre für das Fenster
    99. lRet = LockWindowUpdate(0&)
    100. Exit Sub
    102. ErrorHandler:
    103. lRet = LockWindowUpdate(0&)
    104. Call MsgBox("Runtime error " & Err.Number & ": " & _
    105. vbCrLf & Err.Description, vbOKOnly + vbCritical)
    106. End Sub

    Nia24 schrieb:

    ich möchte gern meine Listview numerisch Sortieren. Normalerweise sortiert die Listview meist alphanumerisch.

    Den alten VB6 Code würde ich mal lieber vergessen. In .NET gibt es für diesen Zweck die ListViewItemSorter Property

    Vielleicht sagst Du einmal nach welcher Spalte Du sortieren willst und wie das "numerische Sortieren" vorgehen soll. Im oben genannten Link ist auch ein Beispiel, was aber vielleicht noch zu schwierig für Dich sein mag.

    ich schreibe die daten in eine Listview, dort möchte ich numerisch die erste Spalte sortieren, sodass erst die negativen, dann die positiven WErte gezeigt werden. Schwierigkeit ist aber, dass ich beim reinschreiben, die Werte zum Teil verdoppel.
    Also sollen die Werte bereits beim Reinschreiben richtig einsortiert werden.

    Nia24 schrieb:

    Also sollen die Werte bereits beim Reinschreiben richtig einsortiert werden.

    Benutze die Klasse NumericLVSorter aus dem folgenden Beispiel und setze die beiden Properties ListView1.Sorting, ListView1.ListViewItemSorter in Deinem projekt genauso:

    Beispiel für eigenen Listview Sorter

    VB.NET-Quellcode

    1. Option Strict On
    2. ' ListView1 must exist on Form
    3. Class Form1
    4. Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. ' configure Listview
    6. ListView1.View = View.Details
    7. ListView1.Columns.Add(New ColumnHeader())
    8. Me.ListView1.Columns(0).Text = "Column 0"
    9. ListView1.Columns.Add(New ColumnHeader())
    10. Me.ListView1.Columns(1).Text = "Column 1"
    11. ListView1.Columns.Add(New ColumnHeader())
    12. Me.ListView1.Columns(2).Text = "Column 2"
    14. ' SET SORT
    15. ListView1.Sorting = SortOrder.Ascending
    16. ListView1.ListViewItemSorter = New NumericLVSorter ' the SORTER
    18. ' add some values
    19. ListView1.Items.Add(New ListViewItem(New String() {"9", "A", "B"}))
    20. ListView1.Items.Add(New ListViewItem(New String() {"1", "A", "B"}))
    21. ListView1.Items.Add(New ListViewItem(New String() {"-1", "A", "B"}))
    22. ListView1.Items.Add(New ListViewItem(New String() {"-5", "A", "B"}))
    23. ListView1.Items.Add(New ListViewItem(New String() {"100", "A", "B"}))
    24. End Sub
    25. End Class
    27. ' LV Sorter: sorts 1.column numeric
    28. Class NumericLVSorter
    29. Implements IComparer
    30. Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
    31. Dim lviX As ListViewItem = CType(x, ListViewItem)
    32. Dim lviY As ListViewItem = CType(y, ListViewItem)
    33. ' compare number in 1. Column
    34. Return CInt(lviX.Text) - CInt(lviY.Text)
    35. End Function
    36. End Class

    danke, in deiner forn funktionierts schon super, jetzt muss ich mir nur noch ne anpassung an meine eingabe überlegen, irgenwie mag er nicht, wenn er nur den ersten wert zum sortieren hat ;)

    Momentan sieht es so aus:

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class Form1
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. MessageBox.Show("Numerik", Application.ProductName, MessageBoxButtons.OK)
    7. 'Geforderte Box mit Informationen
    8. 'anschließend werden die Stützstellen eingegeben
    9. End Sub
    10. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    12. End Sub
    14. Private Sub Stützstelle_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Stützstelle.TextChanged
    18. End Sub
    20. Private Sub Funktionswert_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Funktionswert.TextChanged
    23. End Sub
    25. Private Sub Ableitung_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ableitung.TextChanged
    27. End Sub
    29. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    35. Dim item As New ListViewItem
    36. 'If Ableitung.TextLength > 0 Then
    38. item.Text = Stützstelle.Text
    39. item.SubItems.Add(Funktionswert.Text)
    40. item.SubItems.Add(Ableitung.Text)
    41. Me.ListView1.Items.Add(item)
    43. 'item.Text = Stützstelle.Text
    44. 'item.SubItems.Add(Funktionswert.Text)
    45. 'Me.ListView1.Items.Add(item)
    47. Stützstelle.Text = ""
    48. Funktionswert.Text = ""
    49. Ableitung.Text = ""
    50. 'Else
    51. 'item.Text = Stützstelle.Text
    52. 'item.SubItems.Add(Funktionswert.Text)
    53. 'item.SubItems.Add(Ableitung.Text)
    54. 'Me.ListView1.Items.Add(item)
    56. 'Stützstelle.Text = ""
    57. 'Funktionswert.Text = ""
    58. 'Ableitung.Text = ""
    59. 'End If
    61. ' SET SORT
    62. ListView1.Sorting = SortOrder.Ascending
    63. ListView1.ListViewItemSorter = New NumericLVSorter ' the SORTER
    67. End Sub
    69. Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
    73. End Sub
    78. Private Sub Button2_Wechsel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    79. check = True
    80. Me.Hide()
    81. Form2.Show()
    83. End Sub
    88. End Class
    89. ' LV Sorter: sorts 1.column numeric
    90. Class NumericLVSorter
    91. Implements IComparer
    92. Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
    93. Dim lviX As ListViewItem = CType(x, ListViewItem)
    94. Dim lviY As ListViewItem = CType(y, ListViewItem)
    95. ' compare number in 1. Column
    96. Return CInt(lviX.Text) - CInt(lviY.Text)
    97. End Function
    98. End Class

    Hi Nia24!
    Versuche doch bitte, beim Posten des Quellcodes die leeren (=unnötigen) Subs sowie unnötige Leerzeilen wegzulassen.
    Das macht es allen einfacher, diese Codes zu lesen. Außerdem ist bei längeren Codesequenzen der Expander zu empfehlen.
    dein Code um 30 Zeilen kürzer

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class Form1
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. MessageBox.Show("Numerik", Application.ProductName, MessageBoxButtons.OK)
    7. 'Geforderte Box mit Informationen
    8. 'anschließend werden die Stützstellen eingegeben
    9. End Sub
    11. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    13. Dim item As New ListViewItem
    14. 'If Ableitung.TextLength > 0 Then
    16. item.Text = Stützstelle.Text
    17. item.SubItems.Add(Funktionswert.Text)
    18. item.SubItems.Add(Ableitung.Text)
    19. Me.ListView1.Items.Add(item)
    21. 'item.Text = Stützstelle.Text
    22. 'item.SubItems.Add(Funktionswert.Text)
    23. 'Me.ListView1.Items.Add(item)
    25. Stützstelle.Text = ""
    26. Funktionswert.Text = ""
    27. Ableitung.Text = ""
    28. 'Else
    29. 'item.Text = Stützstelle.Text
    30. 'item.SubItems.Add(Funktionswert.Text)
    31. 'item.SubItems.Add(Ableitung.Text)
    32. 'Me.ListView1.Items.Add(item)
    34. 'Stützstelle.Text = ""
    35. 'Funktionswert.Text = ""
    36. 'Ableitung.Text = ""
    37. 'End If
    39. ' SET SORT
    40. ListView1.Sorting = SortOrder.Ascending
    41. ListView1.ListViewItemSorter = New NumericLVSorter ' the SORTER
    43. End Sub
    45. Private Sub Button2_Wechsel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    46. check = True
    47. Me.Hide()
    48. Form2.Show()
    49. End Sub
    51. End Class
    52. ' LV Sorter: sorts 1.column numeric
    53. Class NumericLVSorter
    54. Implements IComparer
    55. Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
    56. Dim lviX As ListViewItem = CType(x, ListViewItem)
    57. Dim lviY As ListViewItem = CType(y, ListViewItem)
    58. ' compare number in 1. Column
    59. Return CInt(lviX.Text) - CInt(lviY.Text)
    60. End Function
    61. End Class

    ich ab jetzt ne weile damit rumprobiert, aber immer noch ein problem.
    zweitens: hab ich keine ahnung,aber es kommt immer, wenn ich es laufen lasse:
    "Ungültige Konvertierung von der Zeichenfolge in Typ Integer." bei der Zeile 59/96.
    im moment lasse ich werte eingeben und sobald der zweite wert kommt, soll sortiert werden, dabei stoppt das programm und zeigt die invalidcastexception an.
    kann das an "option strict on" liegen?

    Nia24 schrieb:

    kann das an "option strict on" liegen

    Nein, die Option Strict On verhindert sogar eher Laufzeitfehler , indem sie auf mögliche Konvertierungsfehler während des Designs hinweist.

    Dein Problem wird eher sein, dass Du in der Spalte 0 einen Wert hast der nicht in einen Integer - Wert umgewandelt werden kann. Entweder einen Leerstring (="") oder einen nichtnumerischen String. Damit kommt in Zeile 96 eine Laufzeit-Exception.

    Die beiden Zeilen

    VB.NET-Quellcode

    1. ' SET SORT
    2. ListView1.Sorting = SortOrder.Ascending
    3. ListView1.ListViewItemSorter = New NumericLVSorter ' the SORTER

    sollten übrigens in das Form-Load Event der Form. Der NumericSorter sorgt schon beim Einsetzen eines neuen Wertes für die richtige Sortierung.

    den hab ich schon versucht, leider hatte ich da etwas mehr probleme.
    Ich vermute, dass es an einer Leerzeile in der Listview liegt, diese ist bereits von Anfang an drin und ich hab sie noch nicht raus bekommen. habt ihr da noch eine IDee?

    Andere Frage noch, die WErte sind eigentlich Double-WErte, aber durch Option Strict on will es diese dauernd in Integer WErte konvertieren, dabei wird ja aber gerundet, die Werte werden falsch. Kann ich das Irgendwie verhindern?

    SystemUnknow schrieb:

    hier hast noch ein Beispiel...vieleicht kriegst den zum laufen:
    activevb.de/cgi-bin/tippupload…h_String_Numeric_DateTime


    den link haste mir ja auch in einem thema gegeben. kannst du mir ggf sagen wie ich auf die classe zugreife ohne auf den column der entsprechenden spalte klicken zu müssen.
    denn ich will das sortieren iwie automatisieren per formload oder button.

    sprich spalte 1 enthält zahlen mit dem die sortierung nichts anfangen kann. spalte 2 besitzt durchnummerierte zahlen . aber ich bekomm mit den ganzen hier angebotenen vorschlägen nur spalte 1 sortiert.

Facebook