Office中国论坛/Access中国论坛

标题: 不使用GIF控件和FLASH控件来播放GIF动画的源代码(最新) [打印本页]

作者: huanghai 时间: 2004-8-12 22:08
标题: 不使用GIF控件和FLASH控件来播放GIF动画的源代码(最新)
本例代码很精简,使用了窗体级的数组变量,把要加载的动画每一帧先读到数组,加载到内存中,达到每帧切换的速度快,这样在播放动画时"画质"好,具体就是不会跳跃和斗动.

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

源代码下载地址:

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

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

作者: sweetduck 时间: 2004-8-12 22:55
不错，值得借鉴

作者: huanghai 时间: 2004-8-12 23:43
更正：Dim Pic(1 To 32) As Image

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

作者: zhengjialon 时间: 2004-8-13 00:07

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

更正：

Dim Pic(1 To 32) As Image

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

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

作者: huanghai 时间: 2004-8-13 06:19
"如果这样，那Timer()事件里怎么办？",TIMER事件是另一个数组。

作者: tmtony 时间: 2004-8-13 07:19
很不错。

作者: 宿命的风 时间: 2004-8-13 19:37
非常好！谢谢！

作者: zhf130 时间: 2004-8-18 06:42
xie

作者: sea.er 时间: 2004-8-18 23:37

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

更正：

Dim Pic(1 To 32) As Image

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

好像不行啊

作者: xdcow 时间: 2004-9-23 00:15
爽!

作者: tyjmn 时间: 2008-4-22 11:44
谢谢,学习中

作者: ben1 时间: 2010-1-24 22:11

非常好！谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)