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/

我发现非常方便。