Private Sub Command1_Click() ShockwaveFlash1.Play End SubPrivate Sub Command2_Click() ShockwaveFlash1.Stop End SubPrivate Sub Form_Load() ShockwaveFlash1.LoadMovie 0, "c:\1.swf" End Sub
Private Sub Command1_Click() ShockwaveFlash1.Play End SubPrivate Sub Command2_Click() ShockwaveFlash1.Stop End SubPrivate Sub Form_Load() ShockwaveFlash1.LoadMovie 0, "c:\1.swf" End Sub
根据你的需要选择,目前你应该选择Flash6的播放控件,这样不存在兼容性。
在VB中增加新部件选择shockwave Flash控件,即可正常使用了.
ShockwaveFlash1.Play
End SubPrivate Sub Command2_Click()
ShockwaveFlash1.Stop
End SubPrivate Sub Form_Load()
ShockwaveFlash1.LoadMovie 0, "c:\1.swf"
End Sub
ShockwaveFlash1.Play
End SubPrivate Sub Command2_Click()
ShockwaveFlash1.Stop
End SubPrivate Sub Form_Load()
ShockwaveFlash1.LoadMovie 0, "c:\1.swf"
End Sub