Serialize & Deserialize von Listview und Imagelist

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Serialize & Deserialize von Listview und Imagelist

    Frohe Weihnachten,

    um Zeit zu sparen wollte ich beim Programmstart den letzten Zuatand der Listview und der dazugehörigen Imagelist abspeichern. Klappt auch mit Serilisieren und Deserilisieren ganz gut, nur scheint es ein Problem zu geben, das du ImageKeys verloren gehen.

    ListView:

    VB.NET-Quellcode

    1. Public Sub SerializeListView(ByVal path As String, ByRef lv As ListView)
    2. Dim f As New IO.FileStream(path, IO.FileMode.Create)
    3. Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
    4. Dim l(lv.Items.Count - 1) As ListViewItem
    5. lv.Items.CopyTo(l, 0)
    6. bf.Serialize(f, l)
    7. f.Close()
    8. End Sub
    10. Public Sub DeserializeListView(ByVal path As String, ByRef lv As ListView)
    11. Dim f As New IO.FileStream(path, IO.FileMode.Open)
    12. Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
    13. lv.Items.Clear()
    14. lv.Items.AddRange(bf.Deserialize(f))
    15. f.Close()
    17. For Each i As ListViewItem In lv.Items
    18. i.Name = i.ImageKey
    19. 'i.ImageKey = "default"
    20. Next
    22. End Sub



    1. Variante Imagelist

    VB.NET-Quellcode

    1. <Serializable()> Public Class clsBildliste
    2. Public Key As ArrayList
    3. Public Image As ArrayList
    4. End Class
    6. Public Sub SerializeImageList3(ByVal path As String, ByRef il As ImageList)
    7. Dim f As New IO.FileStream(path, IO.FileMode.Create)
    8. Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
    10. Dim n As Integer
    11. Dim m As Integer
    13. Dim img As New clsBildliste
    14. img.Key = New ArrayList
    15. img.Image = New ArrayList
    17. For n = 0 To il.Images.Count - 1
    18. img.Key.Add(il.Images.Keys(n))
    19. m = il.Images.IndexOfKey(il.Images.Keys(n))
    20. img.Image.Add(il.Images.Item(m))
    21. Next
    23. bf.Serialize(f, img)
    24. f.Close()
    25. End Sub
    27. Public Sub DeserializeImageList3(ByVal path As String, ByRef il As ImageList)
    28. Dim fs As New FileStream(path, FileMode.Open)
    29. Dim bf As New BinaryFormatter()
    30. Dim img As New clsBildliste
    31. img = bf.Deserialize(fs)
    33. Dim n As Integer
    34. For n = 0 To img.Image.Count - 1
    35. il.Images.Add(img.Key(n + 1), img.Image(n))
    36. Next
    38. fs.Close()
    39. End Sub


    2. Variante Imagelist

    VB.NET-Quellcode

    1. Public Sub SerializeImageList(ByVal path As String, ByRef il As ImageList)
    2. Dim f As New IO.FileStream(path, IO.FileMode.Create)
    3. Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
    4. bf.Serialize(f, il.ImageStream)
    5. f.Close()
    6. End Sub
    8. Public Sub DeserializeImageList(ByVal path As String, ByRef il As ImageList, ByRef lv As ListView) 'obwohl key's matchen wird nicht zugeordnet..
    9. Dim fs As New FileStream(path, FileMode.Open)
    10. Dim bf As New BinaryFormatter()
    11. il.ImageStream = bf.Deserialize(fs)
    13. Dim n As Integer
    14. For n = 0 To lv.Items.Count - 1
    15. il.Images.SetKeyName(n, lv.Items.Item(n).ImageKey)
    16. Next
    18. fs.Close()
    19. End Sub


    Bei zweiten erscheinen keinen Bilder und bei ersteren "verrutschen" diese immer.

    Hat jeman damit Erfahrungen bzw. sieht den Knackpunkt?

    Vielen Dank für die Hinweise.
    Nach dem Einlesen befürchte ich, dass das DatagridView leider keine "LargeIcon" Ansicht wie das ListView aufweist, welche ich aber benötige.
    Das Dataset sieht aber als Datenspeicher gut aus, das werde ich versuchen mit dem ListView zu verwenden (befüllen und speichern als extra Funktion) - Auch wenn ich befüchte, dass das nicht die Intension der Antwort war. :whistling: