ListView Einträge speichern

singu · 26. Juni 2011, 11:52

Wie sieht die Lösung aus. Ich würde das ganze mit XmlSerialisierung machen.

mbfan · 21. August 2011, 17:23

Eine Lösung, die bei mir bisher immer funktioniert hat:

#Region "ListView"
'''
''' Speichert eine Listview in eine Datei.
'''
''' Die Listview, die gespeichert werden soll.
''' Wohin die Listview gespeichert werden soll.
'''
Public Sub lvspeichern(ByVal Listview As ListView, ByVal Dateiname As String)
Dim f As New IO.FileStream(Dateiname, IO.FileMode.Create) 'IO Filestream, Speicherortangabe, Text wird immer neu erstellt
Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter 'Binary Reader/Writer erstellen
Dim l(Listview.Items.Count - 1) As ListViewItem 'Listview Array erstellen
Listview.Items.CopyTo(l, 0) 'Array mmit Daten fütter
bf.Serialize(f, l) 'Ascii --> Binary
f.Close() 'Filestream schließen
End Sub
'''
''' Läd eine Listview aus Datei.
'''
''' Wo die Listview gespeichert ist
''' Gibt die Listview zurück.
'''
Public Function lvladen(ByVal Leseort As String) As ListView
Dim f As New IO.FileStream(Leseort, IO.FileMode.Open) 'IO Filestream, Speicherortangabe
Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter 'Binary Reader/Writer erstellen
Dim listview As New ListView
Listview.Items.Clear() 'Listviewitems löschen
Listview.Items.AddRange(bf.Deserialize(f)) 'geladene Listviewitems hinzufügen, Binary --> Ascii
f.Close() 'Filestream schließen
Return listview
End Function
#End Region

mbfan