[技巧]如何导出Imagelist的图标或图片到文件

如果你从mscomctl.ocx 5.0升级到6.0,但如果你的imagelist原来有很多图片或图标的话,如果导出来或再导入到6.0控件呢

可使用以下代码来实现(我在access2003通过实现--tmtony access中国)

Dim imgCtr As ImageList

Dim myPic As Picture

'可加个循环

Set imgCtr = ImageList0.Object

Set myPic = imgCtr.ListImages(1).ExtractIcon

SavePicture myPic, "c:\1.ico"

Set myPic = imgCtr.ListImages(2).ExtractIcon

SavePicture myPic, "c:\2.ico"

Set myPic = imgCtr.ListImages(3).ExtractIcon

SavePicture myPic, "c:\3.ico"

Set myPic = imgCtr.ListImages(4).ExtractIcon

SavePicture myPic, "c:\4.ico"

Set myPic = imgCtr.ListImages(5).ExtractIcon

SavePicture myPic, "c:\5.ico"

Set myPic = imgCtr.ListImages(6).ExtractIcon

SavePicture myPic, "c:\6.ico"

Set myPic = imgCtr.ListImages(7).ExtractIcon

SavePicture myPic, "c:\7.ico"

Set myPic = imgCtr.ListImages(8).ExtractIcon

SavePicture myPic, "c:\8.ico"

但图标颜色会失真,下次再完善一下

发布人:录入员-Access中国

分享到：

点击次数：更新时间：2013-07-15 23:39:58 【打印此页】【关闭】