Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB6
Expertise: Advanced
Jun 5, 1999



How to Help Your Business Become an AI Early Adopter

SaveImageList - Save the images in an ImageList control

' Save all the images in an ImageList control to a disk file
' Images can be later loaded in the same ImageList control using the
' LoadImageList routine
' Note 1: if the file exists, it is overwritten
' Note 2: this routine always save the contents of the ListImages collection
'         as it was set using standard VB statements (at design-time or using
'         the collection's Add method), not the images restored using the
'         LoadImageList routine

Private Sub SaveImageList(ImageList As ImageList, ByVal FileName As String)
    Dim pb As New PropertyBag
    Dim varTemp As Variant
    Dim handle As Long
    ' Serialize the ImageList control
    pb.WriteProperty "IMG", ImageList.object
    varTemp = pb.Contents
    ' If the file exists, delete it
    If Len(Dir$(FileName)) Then Kill FileName
    ' save the property bag to a file
    handle = FreeFile
    Open FileName For Binary As #handle
    Put #handle, , varTemp
    Close #handle
End Sub

Luigi Intonti
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date