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