ImageList的add方法只能使用LoadPicture加载么？

[luxu365]

是这样，我有一个控件可以生成二维码图片，使用Picture1.Picture=QRmaker1.Picture的话，切换会有闪烁现象。所以我想把所有生成的QRmaker1.Picture加入到ImageList里，但是我这么写的时候ImageList1.ListImages.Add , ,QRmaker1.Picture运行会提示无效Picture。请问我如何解决这个问题？

[脆皮大雪糕]

只支持bmp、ico、jpg 看看你生成的二维码是啥格式，之前遇到好几个人想当然的用save方法把图片保存成 jpg或者bmp的扩展名，但其实是PNG格式。用UE之类的二进制编辑器打开文件看看文件头，到底是什么格式的文件。

[舉杯邀明月]

1.　解决“闪”的问题，楼主可以尝试一下：

Picture1.AutoRedraw = True
' 这个属性在窗体设计时设置， 或者写在Form_Load() 中即可。

2.　解决“无效Picture”的问题，楼主可试下用“对象”中转一下行不。

Dim objImg  As IPictureDisp

Set objImg = QRmaker1.Picture
ImageList1.ListImages.Add , , objImg