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/

我发现非常方便。