[技巧]如何导出Imagelist的图标或图片到文件_Access ActiveX控件-Access图表-Access图形

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

时间：2013-07-16 00:36 来源：Office中国作者：Access中国录入员阅读：次

如果你从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"

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

(责任编辑：admin)

顶一下

(2)

100%

踩一下

(0)