Listbox , Mehrere Listboxen speichern und laden

  • VB.NET

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

    Listbox , Mehrere Listboxen speichern und laden

    Hey guten abend,

    Ich möchte 4 listboxen abspeichern
    in den my.settings oder .dat datei. und natürlich auch wieder
    readen :)

    denke ich müsste splitten,
    habe aber keinen plan wie dass geht :O

    aktueller source code:möchte aber 4 listboxen saven und readen :(

    VB.NET-Quellcode

    1. Public Sub ListBox_Save(ByVal ListBox As ListBox, _
    2. ByVal sFile As String)
    4. ' Inhalt einer ListBox speichern
    5. Dim oStream As IO.StreamWriter
    6. Dim i As Short
    8. oStream = New IO.StreamWriter(sFile)
    10. For i = 0 To ListBox.Items.Count - 1
    11. oStream.WriteLine(ListBox.Items(i))
    12. Next
    13. oStream.Close()
    14. End Sub
    16. Public Sub ListBox_Read(ByVal ListBox As ListBox, _
    17. ByVal sFile As String)
    19. ' Inhalt einer ListBox speichern
    20. Dim oStream As IO.StreamReader
    21. Dim sLine As String
    23. ' ListBox löschen
    24. ListBox.Items.Clear()
    26. ' Existsiert die Datei?
    27. Dim oFile As New IO.FileInfo(sFile)
    29. If oFile.Exists() = True Then
    30. oStream = New IO.StreamReader(sFile)
    31. ' Datei zeilenweise auslesen
    32. Do
    33. sLine = oStream.ReadLine()
    34. If IsNothing(sLine) Then Exit Do
    35. ListBox.Items.Add(sLine)
    36. Loop
    37. oStream.Close()
    38. End If
    39. End Sub
    41. Private Sub cmdSave_Click(ByVal sender As System.Object, _
    42. ByVal e As System.EventArgs) Handles cmdSave.Click
    44. ' ListBox speichern
    45. Dim sFile As String
    47. sFile = Application.StartupPath & "\Liste.dat"
    48. ListBox_Save(ListBox1, sFile)
    49. End Sub
    51. Private Sub cmdClear_Click(ByVal sender As System.Object, _
    52. ByVal e As System.EventArgs) Handles cmdClear.Click
    54. ' Inhalt der ListBox löschen
    55. ' (dient nur zur besseren Demonstration)
    56. ListBox1.Items.Clear()
    57. End Sub
    59. Private Sub cmdRead_Click(ByVal sender As System.Object, _
    60. ByVal e As System.EventArgs) Handles cmdRead.Click
    62. ' ListBox einlesen
    63. Dim sFile As String
    65. sFile = Application.StartupPath & "\Liste.dat"
    66. ListBox_Read(ListBox1, sFile)
    67. End Sub

    mfg .weed

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „.weed“ ()

    Listboxen kann man nicht abspeichern - man kann nur Daten abspeichern (auf den tieferen Sinn dieses Klugschisses kommste erst, wenndedich mal dafür interessierst, Daten und Gui getrennt zu behandeln)

    Ansonsten vermute ich mal, dass in deine Listboxen einfache Strings drinne sind?

    die könnteste in eine StringCollection kopieren, und pro Listbox an ein als StringCollection angelegtes Setting zuweisen.

    Das ganze ist im Prinzip einfach und elegant ... ;)

    VB.NET-Quellcode

    1. Dim b As New Formatters.Binary.BinaryFormatter
    2. Dim ms As New IO.MemoryStream
    4. Dim lb As New ListBox
    5. lb.Items.Add("ABC")
    6. lb.Items.Add("CDE")
    8. Dim r = From p In lb.Items Select p
    10. b.Serialize(ms, r.ToArray)
    11. lb.Items.Clear()
    12. ms.Seek(0, IO.SeekOrigin.Begin)
    13. lb.Items.AddRange(DirectCast(b.Deserialize(ms), Object()))
    14. Debug.Print(lb.Items(0).ToString)


    Den Stream kann man dann natürlich speichern wo man will.

    bräuchte eventuell
    kommentare mit saven der 4 listboxen und readen der 4 listboxen
    einen source, da meiner irgendwie ein fehler enthält..
    und er will es nicht speichern und readen :O
    brauche immer noch hilfe..
    danke erstmal für die leute die helfen wollten! :thumbsup:

    .weed schrieb:

    da meiner irgendwie ein fehler enthält..
    Ersetze nicht Deinen Code mit Fehlern durch einen C&P-Code, den Du ggf. nicht verstehst.
    Poste Deinen Code und schreibe, wie es gehen soll und was nicht geht.
    Dann wird Dir geholfen. :thumbup:
    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!

Facebook
Telefonspende