Ulo₧enφ obrßzk∙ z ImageListu
Procedura:
'Ulo₧φ vÜechny obrßzky
z komponenty ImageList do diskovΘho souboru
'Obrßzky mohou b²t pozd∞ji nahrßny pomocφ LoadImageList
'Pokud soubor existuje, bude p°epsßn
Private Sub SaveImageList(ImageList
As ImageList, _
ByVal FileName As String)
Dim pb As New PropertyBag
Dim varTemp As Variant
Dim handle As Long
pb.WriteProperty "IMG", ImageList.object
varTemp = pb.Contents
If Len(Dir$(FileName)) Then Kill FileName
handle = FreeFile
Open FileName For Binary As #handle
Put #handle, , varTemp
Close #handle
End Sub