Flash播放器

joeyyang5

Private Sub CommandButton1_Click()
    ShockwaveFlash1.Play
    CommandButton1.Enabled = False
    CommandButton2.Enabled = True
End Sub
Private Sub CommandButton2_Click()
    ShockwaveFlash1.Stop
    CommandButton2.Enabled = False
    CommandButton1.Enabled = True
End Sub
Private Sub CommandButton3_Click()
    ShockwaveFlash1.Back
End Sub
Private Sub CommandButton4_Click()
    ShockwaveFlash1.Forward
    End Sub
Private Sub CommandButton6_Click()
    ShockwaveFlash1.Zoom (50)
End Sub
Private Sub CommandButton7_Click()
    ShockwaveFlash1.Zoom (200)
End Sub
Private Sub CommandButton8_Click()
    Dim filefilter1, filennames As String
    filefilter1 = ("Flash动画 (*.swf),*.swf")
    filennames = Application.GetOpenFilename(filefilter1, , "请选一个动画文件", , MultiSelect:=False)
    ShockwaveFlash1.Visible = True
    ShockwaveFlash1.Playing = True
    ShockwaveFlash1.Movie = filennames
End Sub
Private Sub ShockwaveFlash1_OnReadyStateChange(ByVal newState As Long)
End Sub
Private Sub Slider1_Scroll()
    ShockwaveFlash1.FrameNum = Slider1.Value
End Sub

我为卿狂7219

怎么操作，动画文件放哪呢

ww0000

你好,能搞个2003版的吗?另外,VBA能不能实现轮流播放一个动画里的几个场景?

ww0000

能搞个2003版的吗？谢谢