此個實例與百例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
成品圖
更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯(lián)系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
