YFGif播放控件源码介绍

控件名称：YFGif.ocx

源码地址：http://www.sky-walker.com.cn/YeFan/SourceCode/YFGif.rar

【属性】：

1、 GifBKColor：设置背景色

【方法】：

1、GifPlay

'********************************************************

'**函 数 名：GifPlay

'**输 入：strName(String) - 文件名

'** ：Optional bFlags(Boolean = True) - 播放标志

'** ：Optional intUseDelay(Integer = 0) - 连续播放间隔

'** ：Optional intDelay(Integer = 0) - 帧播放附加间隔

'**输 出：无

'**功能描述：开始播放Gif

'********************************************************

2、GifStop

'********************************************************

'**函 数 名：GifStop

'**输 入：无

'**输 出：无

'**功能描述：停止播放Gif

'********************************************************

3、GifRestart '********************************************************

'**函 数 名：GifRestart

'**输 入：无

'**输 出：无

'**功能描述：重新开始播放

'********************************************************

4、GifFrame

'********************************************************

'**函 数 名：GifFrame

'**输 入：Optional FrameFlag(Boolean = True) - True 显示开始帧

'**输 入： False 显示结束帧

'** ：Optional Num(Integer = 0) - 帧的序号

'**输 出：无

'**功能描述：播放指定帧

'********************************************************

5、GetFrameNum

'********************************************************

'**函 数 名：GetFrameNum

'**输 入：无

'**输 出：(Long) - 返回帧号

'**功能描述：返回帧号

'********************************************************

【事件】：

1、Click() 单击

2、MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

'移动

3、MouseLeave() '离开事件

4、MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

'鼠标按下

5、MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

'鼠标抬起