vb6 - 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/

我发现很方便。