VB6 Извлечение изображений (любого вида) из ImageList

Question

Извлечение изображений (любого типа) из ImageList и сохранение его в виде файла с расширением

Answer 1

Вы уже пробовали использовать метод ExtractIcon? Это вернет объект IPictureDisp, представляющий значок элемента ListImage.

Затем, как только вы извлечете объект изображения, вы можете просто вызвать функцию SavePicture, чтобы сохранить его в файле на диске.

Так что вы можете использовать что-то вроде следующего кода:

Dim myPic As Picture
Set myPic = ImageList1.ListImages(1).ExtractIcon
SavePicture myPic, "C:\MyIcon.ico"  '(never hardcode a path in your actual code!)

Answer 2

Я думаю, что это то, что вы хотите: http://btmtz.mvps.org/gfxfromfrx/

Я нашел довольно удобно.