不使用GIF控件和FLASH控件来播放GIF动画的源代码(最新)

huanghai

本例代码很精简,使用了窗体级的数组变量,把要加载的动画每一帧先读到数组,加载到内存中,达到每帧切换的速度快,这样在播放动画时"画质"好,具体就是不会跳跃和斗动.



动画做成子窗体形式,可以像控件那样方便使用,如在主窗体中运行一个大过程,可以在运行大过程前播放动画,运行结束后停止动画。做成子窗体的好处还有可在多个窗体中重复使用,方便高效.





源代码下载地址:

http://www.accessqq.com/show.asp?id=141

[此贴子已经被作者于2004-8-12 15:40:49编辑过]

sweetduck

不错，值得借鉴

huanghai

更正：Dim Pic(1 To 32) As Image

本句应该放在：Form_Load中，现在占用了太多的内存时间。

zhengjialon

以下是引用huanghai在2004-8-12 15:43:26的发言：



更正：

Dim Pic(1 To 32) As Image

本句应该放在：Form_Load中，现在占用了太多的内存时间。

如果这样，那Timer()事件里怎么办？

huanghai

"如果这样，那Timer()事件里怎么办？",TIMER事件是另一个数组。

tmtony

很不错。

宿命的风

非常好！谢谢！

zhf130

xie

sea.er

以下是引用huanghai在2004-8-12 15:43:26的发言：



更正：

Dim Pic(1 To 32) As Image

本句应该放在：Form_Load中，现在占用了太多的内存时间。

好像不行啊

xdcow

爽!