vb 制作动画 函数

SKY定格

1. Public Function gif(Obj As Object, start As Integer, overs As Integer, timers As Single) As String
   
2.     Dim t As Single
   
3.         For i = start To overs
   
4.         t = Timer
   
5.             Do While Timer - t < timers
   
6.                 DoEvents
   
7.             Loop
   
8.         Obj.Picture = LoadResPicture(i, vbResIcon)
   
9.     Next i
   
10. End Function
    

复制代码

调用  gif(控件名, 资源文件图片开始, 资源文件图片结束, 间隔 单位秒)
先把ico图片放到资源文件里  按动画顺序放好    其他的格式代码改一下