YFGif播放控件源码介绍

 

控件名称：YFGif.ocx

源码地址：http://www.bjjr.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)   

  '鼠标抬起