Do While Loop / RemoveAt aus Listbox

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von MacPiet.

    Do While Loop / RemoveAt aus Listbox

    Hallo ihr Profis.

    Ich hänge an einem Punkt fest und weiß als ursprünglicher VBA in excel Nutzer gerade nicht weiter und hoffe,
    dass ihr mir den entscheidenden Hinweis geben könnt.

    ich habe im Grunde diese Ausgangslage

    Es kam jetzt eine Textbox dazu, in der ich einen Wert eintrage. Um sicher zu gehen, dass da kein Unfug passiert,
    sieht das Textfeld im Code so aus:

    VB.NET-Quellcode

    1. 'FilterBox
    3. Private Sub TBFilter_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbFilter.KeyPress
    5. Select Case Asc(e.KeyChar)
    7. Case 48 To 57, 8
    9. ' Zahlen, Backspace zulassen / für space -> ,32
    11. Case Else
    13. ' alle anderen Eingaben unterdrücken
    15. e.Handled = True
    17. End Select
    19. End Sub


    Jetzt soll dieser Wert die x-letzten Eingaben vorgeben,
    die in der zweiten Listbox ausgewertet werden sollen. und da hänge ich,
    denn trotz Option Strict On bekomme ich einen Fehler, wie im Screenshot zu sehen ist.

    Was ist an diesem Code denn jetzt falsch, und wie bekomm ich das richtig hin?

    VB.NET-Quellcode

    1. Private Sub BtnReload_Click(sender As Object, e As EventArgs) Handles BtnReload.Click
    3. If ListBox1.Items.Count.ToString <= tbFilter.Text Then
    5. FilterRunden = ListBox1.Items.Count
    7. Else
    9. FilterRunden = CInt(tbFilter.Text.ToString)
    11. End If
    13. Do While ListBox1.Items.Count >= FilterRunden
    15. OriginalListe.RemoveAt(OriginalListe.Count -1)
    17. Loop
    19. End Sub


    Vielen lieben Dank im Voraus
    MacPiet

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

    So etwas(löschen aus einer Auflistung) macht man immer von hinten weg...
    Du willst ein Element aus einer Liste löschen, die nicht es mehr oder nicht gibt...
    Versuche es mit:
    OriginalListe.RemoveAt(OriginalListe.Count-1)
    Grund: der Index einer Auflistung ist immer 0-basiert! ... Index des 1.Eintrags ist 0 usw...
    Frage: hat die OriginalListe überhaupt Einträge?

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

    Wie stehen denn ListBox1 und Originalliste im Zusammenhang, in Form von DataBinding? Wenn da keiner besteht, ändert sich ja die Item-Anzahl in der ListBox nie - und das Löschen aus Originalliste geht weiter und weiter. Bis zum bitteren Exception-Ende.
    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.

    Danke erstmal für eure Antworten.
    ich hatte oben schon die verlinkung gepostet, aber hier einmal der code komplett:

    VB.NET-Quellcode

    1. ​Public Class Form1
    3. Dim OriginalListe As New List(Of Integer)
    4. Dim ZaehlListe(4, 1) As Integer
    5. Dim Anzeigeliste As New List(Of String)
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. OriginalListe.Insert(0, 1)
    9. ListBoxenNeuErstellen()
    10. End Sub
    12. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    13. OriginalListe.Insert(0, 2)
    14. ListBoxenNeuErstellen()
    15. End Sub
    17. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    18. OriginalListe.Insert(0, 3)
    19. ListBoxenNeuErstellen()
    20. End Sub
    22. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    23. OriginalListe.Insert(0, 4)
    24. ListBoxenNeuErstellen()
    25. End Sub
    27. Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
    28. OriginalListe.RemoveAt(0)
    29. ListBoxenNeuErstellen()
    30. End Sub
    32. Sub ListBoxenNeuErstellen()
    33. 'ListBox1
    34. ListBox1.Items.Clear()
    35. For eintraege As Integer = 0 To OriginalListe.Count - 1
    36. ListBox1.Items.Add(OriginalListe(eintraege))
    37. Next
    39. 'ListBox2
    40. 'Array leeren
    41. For i = 0 To 4
    42. ZaehlListe(i, 0) = 0
    43. Next i
    44. 'Array füllen
    45. For eintraege As Integer = 0 To OriginalListe.Count - 1
    46. If OriginalListe(eintraege) = 1 Then
    47. ZaehlListe(1, 0) = ZaehlListe(1, 0) + 1
    48. ElseIf OriginalListe(eintraege) = 2 Then
    49. ZaehlListe(2, 0) = ZaehlListe(2, 0) + 1
    50. ElseIf OriginalListe(eintraege) = 3 Then
    51. ZaehlListe(3, 0) = ZaehlListe(3, 0) + 1
    52. ElseIf OriginalListe(eintraege) = 4 Then
    53. ZaehlListe(4, 0) = ZaehlListe(4, 0) + 1
    54. End If
    55. Next
    57. 'Übergeben und sortieren
    58. Anzeigeliste.Clear()
    59. Anzeigeliste.Add(ZaehlListe(1, 0) & " Eins")
    60. Anzeigeliste.Add(ZaehlListe(2, 0) & " Zwei")
    61. Anzeigeliste.Add(ZaehlListe(3, 0) & " Drei")
    62. Anzeigeliste.Add(ZaehlListe(4, 0) & " Vier")
    63. Anzeigeliste.Sort()
    64. Anzeigeliste.Reverse()
    66. ListBox2.Items.Clear()
    67. For eintraege As Integer = 0 To Anzeigeliste.Count - 1
    68. ListBox2.Items.Add(Anzeigeliste(eintraege))
    69. Next
    70. End Sub
    71. End Class


    OriginalListe.RemoveAt(OriginalListe.Count -1 ) steht auch in meinem code… keine Ahnung, warum ich es im op nicht schrieb. ich ändere das mal

    Es bleibt dabei: Dein Code

    VB.NET-Quellcode

    1. Do While ListBox1.Items.Count >= FilterRunden
    2. OriginalListe.RemoveAt(OriginalListe.Count -1)
    3. Loop

    bleibt so gesehen Mumpitz. Wenn in der ListBox1 5 Einträge sind und in der TextBox für den "Filter" 3 steht, dann wird durch Umwandlung des Filtertextes in eine Zahl folgendes ausgeführt:
    Solange 5 >= 3: Entferne das letzte Element aus der "Originalliste". Da die 5 und die 3 sich nie ändern, da Du den ListBox1-Inhalt nicht mitänderst, wird irgendwann die Originalliste leer sein. Und würde die Exception nicht kommen, ginge das ganze wohl bis in die Unendlichkeit so weiter.
    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.

Facebook
Telefonspende