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

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

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



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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