好用的GIF动画播放控件

Author: 翟辉 Date: 1998年第12期 12版

　　在《电脑报配套光盘第四辑》中有一个非常好用的在程序中播放GIF动画的控件——Animation GIF OCX。它支持当今最流行的开发平台，包括VB、VC＋＋、VFP、VBA、Access、Delphi等。它是OLE容器中一个显示GIF文件的OLE控件模块，支持所有Gif98a标准，包括透明、动画、循环、延时、逻辑屏幕、回复到上一幅图片或背景等。它的重要属性见^121204a^、方法见^121204c^、事件见^121204b^。
　　下面举例介绍一下如何在VB5.0企业版中使用该控件：
　　1.将《电脑报配套光盘第四辑》上\develop\vb\anigif\anigif.zip文件解压缩到你的硬盘上，并将其中的anigif.ocx拷贝到c:\windows\system（假设windows95位于C盘windows目录下）。
　　2.进入VB5.0系统。
　　3.选新建—标准EXE。
　　4.选菜单中的工程—部件—控件，将“Animation GIF OLE Control”一项选中，单击“确定”（或单击“浏览”，找到Anigif.ocx文件，单击“打开”，再单击“确定”）。此时，在“工具箱”中增加了一个外形像一张电影胶片写着GIF字样的控件。用它就可以在程序中控制GIF动画的播放。
　　5.在“GIF”控件上单击，在窗体上用鼠标拉出一个框（即对象Anigif1），设置其属性如下：
　　Anigif1.GIF　／为你要播放的动画文件（＊.gif）
　　Anigif1.Speed=1　／1代表正常播放，2代表慢速播放
　　Anigif1.Transparent=True　／背景透明
　　6.再在窗体中分别建立两个按钮Command1和Command2，分别设置其属性：
　　Command1.Caption=“开始播放”
　　Command2.Caption=“停止播放”
　　7.在Command1的Click事件中输入：Anigif.Play
　　在Command2的Click事件中输入：Anigif.Stop
　　8.运行这个窗体，就可实现GIF动画播放。
　　你还可以用Anigif.ocx的其它方法设置符合你个人需要的播放过程和方法。