此題的唯一難點就是加載swf動畫，路徑。
Option Explicit
Private Sub Command1_Click(Index As Integer)
Select Case Index
'以命令按鈕的索引值作為測試表達式
Case 0
Flash1.Movie =
"D:\軟件文件夾2\大型軟件\VB學習\百例\百例源文件\實例86\實例素材\wg.swf"
'加載一個文件swf文件的動畫
Flash1.Play
'播放動畫
Case 1
End
End Select
End Sub
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
