欢迎光临
我们一直在努力

vb定义动态数组,vb 动态删除控件

我添加ShockwaveFlash控件,保存时提示“系统错误&H80004005?(-2147467259).?未指定的错误” 主要是因为flash版本更新的问题!
我用动态方法添加,但接受flash的信息如下语句不会运行。?
Private?Sub?ShockwaveFlash1_FSCommand(ByVal?command?As?String,?ByVal?args?As?String)?
???Winsock1.SendData?command?
End?Sub?

以上语句如果是直接添加是运行正常的。?
是不是动态添加的不能直接用Private?Sub?ShockwaveFlash1_FSCommand(ByVal?command?As?String,?ByVal?args?As?String)?应怎么写? 推荐解决方案 申明Private?WithEvents?ShockwaveFlash1?As?ShockwaveFlashObjectsCtl.ShockwaveFlash然后把你动态生成的空间赋值给set?ShockwaveFlash1=controls.add(… 其他解决方案 我原来的语句是?
Private?ShockwaveFlash1?As?Object?
改为?
Private?WithEvents?ShockwaveFlash1?As?ShockwaveFlashObjectsCtl.ShockwaveFlash?
提示“编译错误:用户定义类型未定义”(在工程->部件?中未选择?Shockwave?Flash)?
如果在工程->部件?中未选择?Shockwave?Flash,则在?
Set?ShockwaveFlash1?=?Controls.Add(“ShockwaveFlash.ShockwaveFlash”,?”Flash”)?
语句提示“实时错误’50153′?’ShockwaveFlash.ShockwaveFlash’不能被加入因为它被引用但在工程中未被任何项目使用。请把工程选项中的’Remove?information?about?unused?ActiveX?Controls’项取消选定,来改正此错误。

91933881

赞(0)
【声明】:本博客不参与任何交易,也非中介,仅记录个人感兴趣的主机测评结果和优惠活动,内容均不作直接、间接、法定、约定的保证。访问本博客请务必遵守有关互联网的相关法律、规定与规则。一旦您访问本博客,即表示您已经知晓并接受了此声明通告。