VBA编程的飞豹动画

yangrongguan

是的，真是越做于精致，我也学习学习。

llc0119

这个很好、
可调节速度的更强大

明半弯

高,真是高,应该好好向各位高手学习

ad_ward

怎么都是高手啊，觉得自己太差了

yacado

飞豹动画代码中应用了图像列表控件ImageList1，如果手动装载飞豹动画各图片，则可省略窗体初始化时那些语句，即
Private Sub UserForm_Initialize()
For i = 1 To 8
    ImageList1.ListImages.Add Key:="fb" & i, _
    Picture:=LoadPicture(ThisWorkbook.Path & "\飞豹" & i & ".jpg")
Next
End Sub
可以全部省略。同时可去掉同路径下的所有图片。
飞豹的奔跑速度可以改动2500这个参数值，大于2500减慢；小于2500加快，这个参数反映料各个图片转换时的时间间隔。
以上供讨论参考。
高手们请看8楼小菲舍尔大侠的帖子，确实高水平。
好像应用类模块技术创建了一个时间控制器对象，在标准模块中引用。控制跑速。不知对否？
请小fisher大侠具体讲解吧，期待中。

itxianfeng

奇怪怎么没有看到小fisher老师的图片是在哪里放置的？？

小fisher

回楼上两位：
这个类模块相当于VB中的Timer(计时器)控件，指定时间间隔（比如0.1秒）并使用Enable属性使它开始工作后，将每隔0.1秒产生一个事件，在这个事件过程中放置改变图片的代码就可以每隔0.1秒更换一幅图片产生动画效果，动态改变它的时间间隔就可以调节动画的速度了。
图片放在ImageList控件中，这个控件中可以同时存放多个同样尺寸的图片，使用时用ImageList1.ListImages(i).Picture即可调用其中第i幅图片

jilijun

效果真不错，收藏备用。

lovelyling

正在学习  谢谢提供帮助

yacado

原帖由 itxianfeng 于 2009-4-13 22:12 发表
奇怪怎么没有看到小fisher老师的图片是在哪里放置的？？

在VBE环境，将窗体放大就能看到imaglist控件。