VB代码中的ShockwaveFlash 控件到底怎么用？？
为什么硪用代码：
Option Explicit
Private Sub Form_Load()
ShockwaveFlash1.Movie = App.Path & "\F_flash.swf"
End Sub
不可以啊,是不是要其他属性？
[解决办法]
http://www.m5home.com/blog/article.asp?id=201
用这招可以连控件都不引用.....动态创建,哈哈.
[解决办法]
那地址硪打不开啊..
有没有代码？？
[解决办法]
'新建工程,默认的窗体记得拉大一点~~~
Option Explicit
Private Sub Form_Load()
Dim tmpCtl As Object
Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash")
'添加控件
tmpCtl.Width = Me.Width '设置外观
tmpCtl.Height = Me.Height
tmpCtl.Visible = True
tmpCtl.object.LoadMovie 0, "http://comic.qq.com/flash/2005/20050924aichu.swf"
End Sub
