[分享]不用附加控件在窗体中播放GIF

fanrong88

学习

hhzjxss

看了几个贴子，总算有头眉目了，谢谢版主了！

andysky

QUOTE:

以下是引用hhzjxss在2007-7-6 0:11:47的发言：

看了几个贴子，总算有头眉目了，谢谢版主了！

有眉目了就好．

a2006

老师 您好!向您请教:在无模式窗口下同时后台还运行着程序,gif就会停止的问题.

学生用了2种办法,在无模式窗口状态下,后台不运行程序gif可以动画,程序运行,动画停止,实在困惑.

万望赐教!非常感谢!

Private Sub Workbook_Open()
UserForm1.Show 0
DoEvents

Dim Check, Counter
Check = True: Counter = 0    ' 设置变量初始值。
Do    ' 外层循环。
    Do While Counter < 2000000    ' 内层循环。
        Counter = Counter + 1    ' 计数器加一。
        If Counter = -1 Then    ' 如果条件成立。
            Check = False    ' 将标志值设成 False。
            Exit Do    ' 退出内层循环。
        End If
    Loop
Loop Until Check = False    ' 退出外层循环。

End Sub

如上是一个循环的例子,想要循环加法同时显示动画.

loveminmin

学习一下

清火燎原

 

windows system32 的packager.exe 丢失了，所以无法编辑包。

caicanwu911

试试看

WELL520530

75744646787

WELL520530

32131231231

gdgzlyh

学习一下！！！！