Listbox leeres Item ?

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von TVX.

    Listbox leeres Item ?

    Hallo erstmal,

    Ich habe in meinen From eine Listbox, Einträge können ohne probleme geadded werden, jedoch habe ich immer eine Leerzeile in der Listbox ( immer wenn neue Einträge kommen, speichert die Listbox ein Item, was nichts enthält, um euch mein Problem genau zu erläutern poste ich euch denn Quellcode und ein Bild )




    Zum Code :

    VB.NET-Quellcode

    1. Private Sub _synChat(Optional ByVal sp() As String = Nothing, Optional ByVal s As String = Nothing, Optional ByVal k As String = Nothing)
    2. Do
    3. If __spyNew(__getID)._getServerReady(__getID) = True Then
    4. s = __spyNew(__getID)._getServerChat(__getID, True)
    5. If String.IsNullOrEmpty(s) = False Then
    6. If __func._searchInString(vbNewLine, s, True) = True Then
    7. sp = __func._explodeString(s.ToString, vbNewLine)
    8. For p As Integer = 0 To sp.Length - 1
    9. k = __func._doReplace(sp(p), vbNewLine, "")
    10. If String.IsNullOrEmpty(k) = False And __func._countText(k) > 0 Then
    11. _LBC.Items.Add(__func._doReplace(k, vbNewLine, ""))
    12. _LBC.TopIndex = _LBC.Items.Count - 1
    13. End If
    14. Next
    15. Else
    16. _LBC.Items.Add(s)
    17. _LBC.TopIndex = _LBC.Items.Count - 1
    18. End If
    19. Threading.Thread.Sleep(10000)
    20. Me.Refresh()
    21. End If
    22. Else
    23. Threading.Thread.Sleep(1000)
    24. Me.Refresh()
    25. End If
    26. Loop
    27. End Sub


    Um euch zu erklären was der sub macht
    Dieser Sub ist ein Thread der alle 10 sec ausgeführt wird
    In der Zeile 4, bekomme ich die Daten
    In der Zeile 6, überprüfe ich ob "vbNewLine" im String vorhanden ist
    In der Zeile 9 wird die "vbNewLine" vom String entfernt
    In der Zeile 10+11, überprüf ich nochmal ob Daten vorhanden sind

    Da ich aber nicht genau sagen kann ob hier der Fehler ist, Poste ich noch denn Code wo ich die Daten bekomme, sprich wie der String zusammengesetzt wird

    VB.NET-Quellcode

    1. __serverChat(i) = __serverChat(i) + CStr(sp(CInt(4)).Trim) + " " + CStr(sp(CInt(1)).Trim) + " : " + CStr(_replaceChat(sp(CInt(5)).Trim)) + vbNewLine


    Aufgerufen wird sie über diese Funktion

    VB.NET-Quellcode

    1. Public Function _getServerChat(ByVal i As Integer, ByVal k As Boolean, Optional ByVal s As String = Nothing)
    2. If _checkID(i) = False Then
    3. Return Nothing
    4. End If
    5. If k = True Then
    6. s = __serverChat(i)
    7. __serverChat(i) = Nothing
    8. Return s
    9. End If
    10. Return __serverChat(i)
    11. End Function


    Bitte respektiert auch das ich Visual Basic immer nur nebenbei als "Hobby Coder" unterwegs bin, und deswegen auch nicht die besten Funktionen oder schnellere arten kenne

    Ich hoffe einer von euch kann mir dabei helfen

    Grüße, Flo


    Nachtrag : Problem gelöst

    Zeile 10 :

    VB.NET-Quellcode

    1. If String.IsNullOrEmpty(k) = False And __func._countText(k) > 0 And String.IsNullOrWhiteSpace(k) = False Then

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

    Leere items aus Listbox entfernen !!!

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. For i As Integer = ListBox1.Items.Count - 1 To 0 Step -1
    3. If ListBox1.Items.Item(i) = "" Then
    4. ListBox1.Items.RemoveAt(i)
    5. End If
    6. Next
    7. End Sub