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

coby001 · 发表于 2014-12-19 20:29

本帖最后由 coby001 于 2014-12-21 10:27 编辑

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

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

2014-12-21 修复延迟错误的 Bub

控件_YFGif.Ocx.rar (17.17 KB, 下载次数: 189)

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

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

coby001 · 发表于 2014-12-19 20:37

本帖最后由 coby001 于 2014-12-19 20:41 编辑

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 · 发表于 2014-12-19 20:59

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

原作者的博客~~

renahu · 发表于 2014-12-19 21:47

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

百度不到去谷歌 · 发表于 2014-12-19 21:47

能否播放网络图片？

coby001 · 发表于 2014-12-19 22:06

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

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

coby001 · 发表于 2014-12-19 22:07

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

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

renahu · 发表于 2014-12-19 22:23

本帖最后由 renahu 于 2014-12-19 22:24 编辑

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

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

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

coby001 · 发表于 2014-12-19 22:23

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

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

renahu · 发表于 2014-12-19 22:25

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

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

用户名		自动登录	找回密码
密码			免费注册

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

点评

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

点评

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