EXCEL VBA:使用图片对象数组

2015-04-12 23:55 阅读 652 次 评论关闭

可用图片对象数组,把一系列图形保存在内存中,而不必用包含多个图形框或图象控件的窗体。当制作动画或其它应用程序时,在要求图象快速变换的地方,这是非常有用的。数组在模块级声明:

Dim objPics(1) As Picture

将下列代码添加到 Form_Load 事件中:

'将位图加载到图片对象数组。
Set objPics(0) = LoadPicture("Butterfly1.bmp")
Set objPics(1) = LoadPicture("Butterfly2.bmp")

然后在 Timer 事件中循环显示这些图象:

Static intCount As Integer
If intCount = 0 Then
   intCount = 1
Else
   intCount = 0
End If
' PaintPicture 方法
'   在窗体上显示位图。
PaintPicture objPics(intCount), 0, 0

添加循环,同时增加 x 和 y 的坐标值,可以很容易地使位图“蝴蝶”穿越窗体“飞行”。

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:EXCEL VBA:使用图片对象数组 | 猎微网

评论已关闭!