VB6从ImageList中提取图像（任何类型）

Question

从ImageList中提取图像（任何类型）并将其保存为带有扩展名的文件

- illumi

---

与此链接完全重复。 - MarkJ

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!)

- Cody Gray

Answer 2

我认为这是您想要的： http://btmtz.mvps.org/gfxfromfrx/。我发现这非常方便。

- Ian