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

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

Option Explicit

Private Sub Command1_Click() '在Command1按下时，五幅avi动画，同时运动

Animation1.Open "D:\软件文件夹2\大型软件\VB学习\百例\百例源文件\实例88\实例素材\BLUR8.***I"

Animation1.Play

Animation2.Open "D:\软件文件夹2\大型软件\VB学习\百例\百例源文件\实例88\实例素材\COUNT8.***I"

Animation2.Play

Animation3.Open "D:\软件文件夹2\大型软件\VB学习\百例\百例源文件\实例88\实例素材\DRILLRLE.***I"

Animation3.Play

Animation4.Open "D:\软件文件夹2\大型软件\VB学习\百例\百例源文件\实例88\实例素材\FINDCOMP.***I"

Animation4.Play

Animation5.Open "D:\软件文件夹2\大型软件\VB学习\百例\百例源文件\实例88\实例素材\FINDFILE.***I"

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







成品图