YFGif播放控件源码介绍

类别:.NET开发 点击:0 评论:0 推荐:

 

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

  '鼠标抬起

本文地址:http://com.8s8s.com/it/it42926.htm