|
此个实例与百例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
成品图 （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
