控件名称：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)
'鼠标抬起
发表于 @ 2004年11月11日 10:27:00|评论(loading...)|编辑