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

coby001

renahu 发表于 2014-12-19 22:23
Application.CommandBars("Control Toolbox").Controls(1).Execute '是打开“控件工具箱”的“设计模式 ...

“设计模式” 是 无法执行VBA代码的~~~~~~

renahu

1. Sub gif1()
   
2.     Const sGifFile$ = "\DOOR-IN.GIF"
   
3.     Dim oGIF As AniGIFCtrl.AniGIF, obj As Object
   
4.     For Each obj In ActiveSheet.OLEObjects
   
5.         obj.Delete
   
6.     Next
   
7.     Set obj = ActiveSheet.OLEObjects.Add(ClassType:="AniGIFCtrl.AniGIF", Left:=200, Top:=30, Width:=400, Height:=250)
   
8.     Set oGIF = obj.Object
   
9.     oGIF.ReadGIF (ThisWorkbook.Path & sGifFile)
   
10.     obj.Visible = False ' 此句用于刷新Shape，显示动画。
    
11.     obj.Visible = True
    
12. End Sub

复制代码

我套用，YFgif的演示，用前期绑定试了一下angif控件，可惜还没成功，就是加载不上

coby001

renahu 发表于 2014-12-19 22:27
我套用，YFgif的演示，用前期绑定试了一下angif控件，可惜还没成功，就是加载不上

要先在 工具-引用...  里 引用angif控件

renahu

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

我现在主要是想试一试，能不能用代码建立一个播放gif的控件，再把gif图加载上去，而不是事先建立好这个播放控件，现在有的能加载，带播放效果不好，有的干脆加载不上，当然如果事先表里建立好播放控件，然后加载播放都是不错的

renahu

coby001 发表于 2014-12-19 22:29
要先在 工具-引用...  里 引用angif控件

引用了，引用是成功的，可惜就是加载不上

renahu

coby001 发表于 2014-12-19 22:26
“设计模式” 是 无法执行VBA代码的~~~~~~

但我发现，当加载不上时，如果选择设计模式，再去单独执行加载命令，就可以加载上了

1. Sub gif1()
   
2.     Const sGifFile$ = "\DOOR-IN.GIF"
   
3.     Dim oGIF As AniGIFCtrl.AniGIF, obj As Object
   
4.     For Each obj In ActiveSheet.OLEObjects
   
5.         obj.Delete
   
6.     Next
   
7.     Set obj = ActiveSheet.OLEObjects.Add(ClassType:="AniGIFCtrl.AniGIF", Left:=200, Top:=30, Width:=400, Height:=250)
   
8.     Set oGIF = obj.Object
   
9.     oGIF.ReadGIF (ThisWorkbook.Path & sGifFile)
   
10.     obj.Visible = False ' 此句用于刷新Shape，显示动画。
    
11.     obj.Visible = True
    
12. End Sub
    
13. 
    
14. Sub test8()
    
15.     Sheet1.AniGIF1.ReadGIF ("d:\test\test.gif")
    
16. End Sub

复制代码

打开设计模式后，再这行test8 ，最下面那张图就加载上了

renahu

coby001 发表于 2014-12-19 22:29
要先在 工具-引用...  里 引用angif控件

发现一个奇怪现象，在模块中建立好anigif控件后，只要打开“设计模式”再关上，再加载gif，就能就能加载上了，但是只能用鼠标人工对“设计模式”进行打开关闭，因为一旦用代码打开，程序就跳出不再往下执行了

renahu

coby001 发表于 2014-12-19 20:37
Sub gif()
    Const sGifFile$ = "\DOOR-IN.GIF"
    ' 前期绑定 YFGifPlay 控件

发现这个控件也有缺点，一些图要单独调画面播放频率，而且不准，我设成1000跟1万是一样的，而且跟网上播放速度还是不一样；anigif早期的一个版本（vbanigif）虽然模块中建立加载可以，但画面不稳定，有闪动；那个注册的版本，应该比较新，画面稳定逼真，但模块中建立后，需要手动点击“设计模式”才能加载上，除非在表里事先就建好控件，然后加载gif，呵呵，测了这么久没一个满意的

renahu

renahu 发表于 2014-12-20 09:00
发现这个控件也有缺点，一些图要单独调画面播放频率，而且不准，我设成1000跟1万是一样的，而且跟网上播 ...

设置成1000，速度还是比网页上的快，不知道源代码中是不是还可以加大上限

coby001

renahu 发表于 2014-12-20 09:00
发现这个控件也有缺点，一些图要单独调画面播放频率，而且不准，我设成1000跟1万是一样的，而且跟网上播 ...

有vb 源码呀~~
不满意，自己改一下呗~~
改好了，放来共享啊~~