ActiveX/第三方控件/插件
[技巧]如何导出Imagelist的图标或图片到文件
2013-07-15 23:39:58
如果你从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"
但图标颜色会失真,下次再完善一下