vb界面怎么插入flash动画
4个回答
展开全部
在部件中找到Shockware Flash控件，放到窗口中，然后把它的Movie属性设为你的Flash动画文件名即可。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
添加部件:shockwave flash
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
现在不行了，保存不了，输不出来。期待新的控件出来。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
flash的ocx比较悲催,不能直接添加到窗体.....要用别的方法变通一下...比如......
Option Explicit
Public objFlash As Object
Private Sub Form_Load()
'初始化flash
Dim tmpCtl As Object
Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash") '自动添加控件
'调整大小和位置
tmpCtl.Move 0, 0, 1000, 1000
tmpCtl.Visible = True
Set objFlash = tmpCtl.object
'指定播放的swf
objFlash.Movie = "c:\swf\my.swf"
End Sub
Option Explicit
Public objFlash As Object
Private Sub Form_Load()
'初始化flash
Dim tmpCtl As Object
Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash") '自动添加控件
'调整大小和位置
tmpCtl.Move 0, 0, 1000, 1000
tmpCtl.Visible = True
Set objFlash = tmpCtl.object
'指定播放的swf
objFlash.Movie = "c:\swf\my.swf"
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
