在Excel中用 YFGif控件 播放 gif 动画···2014-12-21 修复Bub

coby001

在Excel中用 YFGif控件 播放 gif 动画

1、下载控件
2、解压
3、运行 reg.bat 注册控件
4、打开 Gif_Ocx_演示.xls

2014-12-21 修复 延迟错误的  Bub
控件_YFGif.Ocx.rar (17.17 KB, 下载次数: 187)

2014-12-21 09:48 上传

点击文件名下载附件

YFGif_演示.xls.rar (126.3 KB, 下载次数: 174)

2014-12-21 09:49 上传

点击文件名下载附件

演示用例图.Gif.rar (461.22 KB, 下载次数: 148)

2014-12-21 09:51 上传

点击文件名下载附件

------
我只是修复原作者在 ocx中的 延迟时间处理方法的Bug，其他的都没变。
YFGif 控件 更新后，
原来的例子出错，是因为 YFGif 控件 更新了，xls还记着老控件，所以报错。
把用老控件建立的gif删去，保存xls，重新打开xls，并重新引用 新版 YFGif 控件。
------------------
GIFMovieGear.rar
绿色汉化版_GIF动画制作软件
编辑gif的软件,，用于查看 Gif 文件的详细信息~
----

coby001

Sub gif()
    Const sGifFile$ = "\DOOR-IN.GIF"
    ' 前期绑定 YFGifPlay 控件
    Dim oGIF As YFGifPlay.GifPlay, obj As Object
    For Each obj In Me.OLEObjects
        obj.Delete
    Next
    Set obj = Sheet1.OLEObjects.Add(ClassType:="YFGifPlay.GifPlay", Left:=50, Top:=50, Width:=50, Height:=50)
    Set oGIF = obj.Object
    oGIF.GifPlay ThisWorkbook.Path & sGifFile  
    obj.Visible = False ' 此句用于刷新Shape，显示动画。
    obj.Visible = True
End Sub

coby001

http://blog.csdn.net/yfiot/article/details/176768
YFGif播放控件源码介绍

原作者的博客~~

renahu

试了一下，动画播放频率很快，怎么调？是不是下面这两句，不知道怎么用
　　'** ：Optional intUseDelay(Integer = 0) - 连续播放间隔
　　'** ：Optional intDelay(Integer = 0) - 帧播放附加间隔

百度不到去谷歌

能否播放网络图片？

coby001

renahu 发表于 2014-12-19 21:47
试了一下，动画播放频率很快，怎么调？是不是下面这两句，不知道怎么用
　　'** ：Optional intUseDelay(I ...

有源码呀，自己去琢磨一下呗~~

coby001

百度不到去谷歌 发表于 2014-12-19 21:47
能否播放网络图片？

有VB源码呀，你改一下呗~~ 让它支持网络图片~

renahu

coby001 发表于 2014-12-19 22:06
有源码呀，自己去琢磨一下呗~~

Application.CommandBars("Control Toolbox").Controls(1).Execute '是打开“控件工具箱”的“设计模式”

程序一执行到这句，就退出了，要是能继续往下执行就好了，那个anigif控件就是建立好后，打开设计模式，再加载gif图就可以加载上了，很古怪

coby001

百度不到去谷歌 发表于 2014-12-19 21:47
能否播放网络图片？

播放网络图片 其实业容易，
先判断文件名是不是 Url 地址。
是，则用 xmlhttp 下载到本地临时文件里，
然后，载入 临时文件.gif 即可。

renahu

coby001 发表于 2014-12-19 22:23
播放网络图片 其实业容易，
先判断文件名是不是 Url 地址。
是，则用 xmlhttp 下载到本地临时文件里，
...

呵呵，我也想到了，我那个验证码就是这么搞定的