Getting 256 color or true color icons from a bitmap. 1

[wraygun]

In thread 222-1012528, strongm posted a very useful Iconize function. Is seems that this will convert the bmp to a 16 color icon. I modified to function to save the new icon.

With CreateObject("MSComctlLib.ImageListCtrl")
    
    .MaskColor = lTransparantColor
    .UseMaskColor = True
    Set Iconize = .ListImages.Add(, , LoadPicture(strGraphicFile)).ExtractIcon
    SavePicture .ListImages(1).ExtractIcon, "c:/NewIcon.ico"

End With

Is is possible to save this new icon in 256 colors or true color?

Thanks,
Harold


***You can't change your past, but you can change your future***

 

[DrJavaJoe]

Last month there was a submission at PCS for an icon editor, pretty nice.

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=59233&lngWId=1

Two strings walk into a bar. The first string says to the bartender: 'Bartender, I'll have a beer. u.5n$x5t?*&4ru!2[sACC~ErJ'. The second string says: 'Pardon my friend, he isn't NULL terminated'.