VB工程---百例88--播放动画-优快云博客

本文提供了一个使用VBA代码控制五个AVI动画同时播放和停止的实例，通过命令按钮实现动画的开启与关闭。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

此个实例与百例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