Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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.

 

 

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