VB工程---百例88--播放动画

概述此个实例与百例87很想类似，都是用到了控件 Animation，只是反复的重复而已。 Option Explicit Private Sub Command1_Click() '在Command1按下时，五幅avi动画，同时运动         Animation1.Open "D:\软件文件夹2\大型软件\VB学习\百例\百例源文件\实例88\实例素材\BLUR8.AVI"         An

此个实例与百例87很想类似，都是用到了控件Animation，只是反复的重复而已。

Option Explicit

Private Sub Command1_Click() '在Command1按下时，五幅avi动画，同时运动
Animation1.Open "D:\软件文件夹2\大型软件\VB学习\百例\百例源文件\实例88\实例素材\BLUR8.AVI"
Animation1.Play
Animation2.Open "D:\软件文件夹2\大型软件\VB学习\百例\百例源文件\实例88\实例素材\COUNT8.AVI"
Animation2.Play
Animation3.Open "D:\软件文件夹2\大型软件\VB学习\百例\百例源文件\实例88\实例素材\DRILLRLE.AVI"
Animation3.Play
Animation4.Open "D:\软件文件夹2\大型软件\VB学习\百例\百例源文件\实例88\实例素材\FINDCOMP.AVI"
Animation4.Play
Animation5.Open "D:\软件文件夹2\大型软件\VB学习\百例\百例源文件\实例88\实例素材\FINDfile.AVI"
Animation5.Play
End Sub

Private Sub Command2_Click() '在Command2按下时，五幅avi动画，同时停止
Animation1.Stop
Animation2.Stop
Animation3.Stop
Animation4.Stop
Animation5.Stop
End Sub

Private Sub Command3_Click()
End
End Sub

成品图

总结

以上是内存溢出为你收集整理的VB工程---百例88--播放动画全部内容，希望文章能够帮你解决VB工程---百例88--播放动画所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。