Private Sub Command1_Click() ShockwaveFlash1.Movie = Text1.Text ShockwaveFlash1.Play End Subtext1.text是播放文件地址!如果要用选择文件的,请使用commondialog控件选择文件
再给你贴一下commondialog的使用方法的控件吧! Private Sub Command2_Click() CommonDialog1.ShowOpen CommonDialog1.FileName = "" CommonDialog1.Filter = "FLASH文件|*.swf;*.exe" If CommonDialog1.FileName <> "" Then ShockwaveFlash1.Movie = CommonDialog1.FileName ShockwaveFlash1.Play End If End Sub
在部件窗口的控件列表中选择Shockwave Flash,然后确定,再Flash控件就被加到工具箱上了.然后将Flash控件放到窗体上,并调整至适当的大小,然后在属窗中设置Movie属性为Flash动画所在的路.双击窗体的load事件中加入下面的代码:shockwaveflash1.playing=true按F5就可以看到播放的Flash动画了.
然后我点击播放 就开始播放
ShockwaveFlash1.Movie = Text1.Text
ShockwaveFlash1.Play
End Subtext1.text是播放文件地址!如果要用选择文件的,请使用commondialog控件选择文件
Private Sub Command2_Click()
CommonDialog1.ShowOpen
CommonDialog1.FileName = ""
CommonDialog1.Filter = "FLASH文件|*.swf;*.exe"
If CommonDialog1.FileName <> "" Then
ShockwaveFlash1.Movie = CommonDialog1.FileName
ShockwaveFlash1.Play
End If
End Sub