809
社区成员
发帖
与我相关
我的任务
分享
Module里写
Public tmpCtl As Object
Public Sub LoadFlash(myForm As Form)
Set tmpCtl = myForm.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash")
Set tmpCtl.Container = myForm
end sub
Form3里调用
Call LoadFlash(Me)
Form4里控制
tmpCtl .object.StopPlay
Option Explicit
Public tmpCtl As Object
Public Sub LoadFlash(myForm As Form)
Set tmpCtl = myForm.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash")
Set tmpCtl.Container = myForm
tmpCtl.object.movie = "d:\logo22.swf"
tmpCtl.Visible = True
End Sub
''窗体
Option Explicit
Private Sub Form_Load()
Call LoadFlash(Me)
End Sub
Private Sub Command1_Click()
tmpCtl.object.Stop ''停止
End Sub
Private Sub Command2_Click()
tmpCtl.object.Play ''播放
End Sub