win7 下完美解决VB 动态添加的flash 控件 fscommand 消息未触发的方法

 

Private WithEvents ShockwaveFlash1 As ShockwaveFlashObjectsCtl.ShockwaveFlash//一定要放到外边声明

Private Sub Form_Load()
'Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "ShockwaveFlash1") '自动添加控件
Set ShockwaveFlash1 = Controls.Add("ShockwaveFlash.ShockwaveFlash", "frgd")

 //这里虽然是控件的名字但是一替换成下面红色部分就不会触发

ShockwaveFlash1.Left = (Me.Width - 5000) / 2
ShockwaveFlash1.Top = (Me.Height - 4000) / 2
ShockwaveFlash1.Width = 5000 '设置外观
ShockwaveFlash1.Height = 4000
ShockwaveFlash1.Visible = True
ShockwaveFlash1.object.LoadMovie 0, "E:/VBproject/button/button.swf"
End Sub

Private SubShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
Select Case command
Case "fscommand"
Label1 = "测试成功"
End Select
End Sub