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


评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值