YFGif播放控件源码介绍
0赞
发表于 7/6/2010 4:56:44 PM
阅读（2334）
控件名称：YFGif.ocx
【属性】：
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)
'鼠标抬起
