ShockwaveFlash1

我现在有一个 swf文件在D盘里，我想知道，如何在我的窗体播放。 --------------------编程问答-------------------- 前面有一帖了啊,改改路径

Option Explicit

Private Sub Form_Load()

     ShockwaveFlash1.Movie = "D:\XXX.swf"

     ShockwaveFlash1.IsPlaying

     ShockwaveFlash1.AllowFullScreen = True

     ShockwaveFlash1.Playing = True

End Sub

--------------------编程问答--------------------

Private Sub Command1_Clik()

ShockwaveFlash1.Movie = "D\1.swf" '

End Sub

--------------------编程问答-------------------- 先添加Shockwave Flash Object 控件。
声明并初始化控件之后就可以用了。

dim path as string
path = "D:\....swf"
'path是swf文件的全路径
ShockwaveFlash1.Movie = path

补充：VB ,  控件