[FRAGE]Alle Comboboxeinträge speichern?!

  • VB.NET

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

    [FRAGE]Alle Comboboxeinträge speichern?!

    Hallo liebe com,
    ich habe eine Frage und zwar: Ich möchte ein programm schreiben, dass wenn man auf den Button1 klickt, dass dann der gesammte Inhalt einer Combobox gespeichert wird. Ist das mit dem Streamwriter möglich? Würde mich sehr dankbar zeigen , wenn jemand sogar einen Code hochladen könnte.


    MfG

    Du kannst alle Items mit einer Schleife durchgehen lassen und in eine String Collection hinzufügen. Diese Collection danach ab speichern.
    Sinngemäss:
    Col As String
    For i As Integer = 0 To Combobox1.Items.Count-1
    col &= Combobox1.Items(i).tostring & vbCrLf
    Next
    IO:File.WriteAllText(pfad, col)


    Grüsse
    Pascal

    Besser durch Serialisierung, dabei wird eine ComboBox erst in eine Liste gelesen und die dann serialisiert:

    VB.NET-Quellcode

    1. ' speichert eine Combobox in eine Datei
    2. Sub Speichern()
    3. ' combobox in Liste auslesen, da Controls nicht serialisierbar sind
    4. Dim lst As New List(Of String)
    5. For Each item As String In cmbBox.Items
    6. lst.Add(item)
    7. Next
    8. ' stream und serializer definieren
    9. Dim xs As New System.Xml.Serialization.XmlSerializer(lst.GetType)
    10. Dim fs As Stream = New FileStream("comboBox.xml", FileMode.Create)
    11. ' serialisieren
    12. xs.Serialize(fs, lst)
    13. fs.Close()
    14. End Sub
    15. ' Liest eine ComboBox aus einer Datei
    16. Sub Lesen()
    17. ' Liste einlesen
    18. Dim lst As New List(Of String)
    19. ' stream und serializer definieren
    20. Dim fs As Stream = New FileStream("comboBox.xml", FileMode.OpenOrCreate)
    21. Dim xs As New System.Xml.Serialization.XmlSerializer(lst.GetType)
    22. ' deserialisieren
    23. lst = CType(xs.Deserialize(fs), List(Of String))
    24. fs.Close()
    25. ' combobox fuellen
    26. cmbBox.Items.Clear()
    27. For Each item As String In lst
    28. cmbBox.Items.Add(item)
    29. Next
    30. ' 1.Element anzeigen
    31. cmbBox.SelectedIndex = 0
    32. End Sub

    Dann lieber so:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim eArray As ArrayList
    4. Private Sub Save_ComboBox()
    5. eArray = New ArrayList(ComboBox1.Items)
    6. End Sub
    7. End Class

    ruft man so auf:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Call Save_ComboBox() 'bzw. Save_ComboBox()
    3. End Sub


    2.Methode falls die andere nicht funktioniert:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim eArray As ArrayList
    4. Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. eArray = New ArrayList
    6. For Each item As String In ComboBox1.Items
    7. eArray.Items.Add(item)
    8. Next
    9. End Sub
    10. End Class


    Um es wieder hineinzuladen:

    VB.NET-Quellcode

    1. Private Sub Load_in()
    2. ComboBox1.Items.Clear()
    3. ComboBox1.Items.AddRange(eArray)
    4. End Sub
    5. 'oder
    6. Private Sub Button2_Click(ByVal sender as Object, ByVal e As System.EventArgs) Handles Button2.Click
    7. ComboBox1.Items.Clear()
    8. ComboBox1.Items.AddRange(eArray)
    9. End Sub


    mfg Tim ;)

    Da es Arrays gibt braucht man die auch nicht zu serialisieren...
    Deshalb nützt der einfache code:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim eArray As ArrayList
    4. Sub Speichern()
    5. 'eArray erstellen
    6. eArray = New ArrayList
    8. For Each item As String In ComboBox1.Items
    9. eArray.Add(item)'fügt einzelne Items hinzu
    10. Next 'schließt die For-Schleife
    12. 'deklariert einen Dialog
    13. Dim sfd As new SaveFileDialog
    14. 'deklariert den StreamWriter der das Textdokument streamen soll.
    15. Dim sw As IO.StreamWriter
    16. With sfd 'with vereinfachung
    17. .Filter = "Textdokument(*.txt)|*.txt"
    18. If .ShowDialog = DialogResult.OK Then 'frägt ab ob der Dialog mit OK geschlossen wurde
    19. sw = New IO.StreamWriter(.FileName) 'deklariert den StreamWriter erneut um den Pfad anzugeben
    20. For Each item As String In eArray 'öffnet For Schleife was das streamen des dokuments ausführt
    21. sw.WriteLine(item)
    22. Next
    23. sw.Close()
    24. End If
    25. End With
    26. End Sub
    28. Sub Öffnen()
    29. Dim ofd As New OpenFileDialog
    30. Dim openText As String()
    31. With ofd 'vereinfachung mit with schleife
    32. .Filter = "Textdokument(*.txt)|*.txt"
    33. If .ShowDialog = DialogResult.OK Then
    34. openText = IO.File.ReadAllLines(.FileName)
    35. ComboBox1.Items.Clear()
    36. For Each text As String In openText
    37. ComboBox1.Items.Add(text)
    38. Next
    39. End If
    40. End With
    41. End Sub
    42. End Class


    Habe ich jetzt aus dem Kopf herraus geschrieben sollte aber funktionieren.
    mfg Tim ;)

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

Facebook
Telefonspende