ImageList

[DiT]

Как записать содержимое ImageList в файл. А потом соответственно его прочесть оттуда.

[ZeroX]

SavePicture ImageList1.ListImages(1).Picture, "c:\image1.ico"
ImageList1.ListImages.Add , , LoadPicture("c:\image1.ico")
Form1.Picture = ImageList1.ListImages(2).Picture

[DiT]

Спасибо конечно, но меня интересует именно запись всего ImageList в ОДИН файл целиком.

Наверное я не совсем правильно сформулировал вопрос сначала

[ZeroX]

Я сомневаюсь, что так вообще можно сделать. Попробуй через АПИ

[GoGosha]

Можно и просто:

Код: Выделить всё

    Dim elem As ListImage
    Dim prop As New PropertyBag
   
    For Each elem In ImageList1.ListImages
        prop.WriteProperty "Img" & elem.Index, elem.Picture
    Next elem
   
    prop.WriteProperty "Count", ImageList1.ListImages.Count + 1


А дальше в файл пишешь prop.Contents.

ЗАГРУЗКА:

создаёш prop As New PropertyBag
в Prop.contents пишешь содержимое файла.
а дальше

Код: Выделить всё

    For a = 1 To prop.ReadProperty("Count", 0)
        ImageList1.ListImages.Add , , prop.ReadProperty("Img" & a, LoadPicture)
    Next a

[DiT]

Большое спасибо