控件名称：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)   

     '鼠标抬起