SKY外语计算机学习

标题: vb 制作动画函数 [打印本页]

作者: SKY定格 时间: 2012-5-22 17:16
标题: vb 制作动画函数
本帖最后由 sky_yx 于 2015-12-30 14:21 编辑

Public Function gif(Obj As Object, start As Integer, overs As Integer, timers As Single) As String
Dim t As Single
For i = start To overs
t = Timer
Do While Timer - t < timers
DoEvents
Loop
Obj.Picture = LoadResPicture(i, vbResIcon)
Next i
End Function

复制代码

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

欢迎光临 SKY外语计算机学习 (http://skywj.com/)