Items aus Listbox in Settings speichern/laden

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Derfuhr.

    Items aus Listbox in Settings speichern/laden

    Hallo,
    Da ich mich mit dem ganzen Zeug nicht so auskenne, haben mir die Suchtreffer nicht wirklich was gebracht, weshalb ich jetzt leider einen Thread erstellen muss...

    Also, ich habe in meiner Form eine Listbox, in die durch Button-Klick Items eingefügt werden. Nun möchte ich alle Items, die in dieser Listbox stehen, mit den Settings speichern.
    Ich habe das ganze so versucht:

    VB.NET-Quellcode

    1. Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
    2. Dim GespeicherteErgebnisseValue As String
    3. GespeicherteErgebnisseValue = ListBox1.Items
    4. My.Settings.Gespeicherte_Ergebnisse = GespeicherteErgebnisseValue
    5. My.Settings.Save()
    6. Application.Exit()
    7. End Sub


    Und zum laden so:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    2. ListBox1.Text = My.Settings.Gespeicherte_Ergebnisse
    3. End If
    4. End Sub


    Das ganze funktioniert natürlich nicht. Wie muss ich das bei ListBox machen?

    Knato schrieb:

    Das ganze funktioniert natürlich nicht. Wie muss ich das bei ListBox machen?

    zunächst mal Option Strict On!

    Dir scheint überhaupt nicht klar zu sein, mit welchen Datentypen du arbeitest, bzw. was ein Datentyp ühaupt ist.

    Herantasten kannst du dich an das Thema, indem du wie gesagt Option Strict On! aktivierst.

    Dazu sehe ich keine Alternative, denn wenn du eine Auflistung nicht erkennen kannst, wie willst du sie dann abspeichern und wieder neu befüllen?

    Also Option Strict On!, und dann die offenbar gewordenen Fehler berichtigen - auch mit Hilfe aussm Forum, denn dabei lernt man die Datentypen kennen.

    du kannst einstellungen in eine ini, xml, json speichern.
    oder du kannst deine einstellungen auch so speichern und lesen:

    Kategorie.Name=Wert
    Kategorie.anderekategorie.anderername=andererwert

    wenn du das haben willst, ich habe einen Parser gebaut, schreib mich dann einfach an, ich gebe dir den code gerne

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

    Ich würde es auch in einer Externen Datei machen,

    Items aus Listbox in Settings speichern/laden
    aber mit My.settings geht es auch.


    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim zuspeichern As String
    4. Dim zuladen As String
    5. Dim ladebuffer As String
    7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    8. BtnLoad.PerformClick()
    9. End Sub
    11. Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
    12. If Not TextBox1.Text = Nothing Then
    13. ListBox1.Items.Add(TextBox1.Text)
    14. TextBox1.Text = Nothing
    15. End If
    16. End Sub
    18. Private Sub BtbSafe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtbSafe.Click
    19. If ListBox1.Items.Count > 0 Then
    20. zuspeichern = Nothing
    21. Do While ListBox1.Items.Count > 0
    22. ListBox1.SelectedIndex = 0
    23. zuspeichern += "::::" & ListBox1.SelectedItem.ToString
    24. ListBox1.Items.RemoveAt(0)
    25. Loop
    26. My.Settings.Inhalt = zuspeichern
    27. My.Settings.Save()
    28. zuladen = My.Settings.Inhalt
    29. BtnLoad.PerformClick()
    30. Else : My.Settings.Inhalt = ""
    31. My.Settings.Save()
    32. End If
    33. End Sub
    35. Private Sub BtnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLoad.Click
    36. ListBox1.Items.Clear()
    37. zuladen = My.Settings.Inhalt
    38. If zuladen.Contains("::::") Then
    39. Do While zuladen.Contains("::::")
    40. zuladen = zuladen.Substring(4)
    41. Dim X As Object
    42. X = Split(zuladen, "::::")
    43. ladebuffer = X(0)
    44. zuladen = zuladen.Substring(ladebuffer.Length)
    45. ListBox1.Items.Add(ladebuffer)
    46. Loop
    47. End If
    48. End Sub
    50. Private Sub BtnDelSel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDelSel.Click
    51. ListBox1.Items.Remove(Me.ListBox1.SelectedItem)
    52. End Sub
    54. Private Sub BtnDelAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDelAll.Click
    55. ListBox1.Items.Clear()
    56. End Sub
    58. End Class




    Projektmappe:

    Listbox zu Settings.7z

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Derfuhr“ ()

Facebook
Telefonspende