Export from ImageList[Resolved]

[Mystical]

   I searched for help google, pscode, microsoft if theres a way to export the images out of the Imagelist, no help found.. is this possible?

   I added my images to my ImageList along time ago deleted them and i'd like to get them back out -_-
Any ideas thx n advanced eaither leave a post or IM Me.


Edit: i've never had the need to do this untill now.. so i don't know nothing about it.

[FrOzeN]

Yes, this is very simple.

Code Select Expand

Private Sub Form_Load()
    SavePicture ImageList1.ListImages(1).Picture, "C:\picture.jpg"
End Sub

Pretty self explanatory from there on. Just use a loop to go through all the images.

[Mystical]

Thanks,

        Sad i couldn't think of somthing as easy as that.

[Hero]

I had this problem and all I did to extract ALL of them at the same time was:

Code Select Expand

Private Sub Form_Load()
Dim X As Integer
For X = 1 To 'AMOUNT OF IMAGES IN IMAGELIST
        SavePicture IMAGELISTNAME.ListImages(X).Picture, App.Path & "\Icons\icon(" & X & ").jpg"
    Next X
End Sub

[topaz]

Pass the icon to a picture object and use SavePicture()

[Joe[x86]]

Three times, now, that solution has been given. =p