展开全部
windows的安全限制。不要在控件面板上引用该控件 用以下方法间接引用。
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, "E:\peakcao\myfile\1032245255484.swf"
End Sub
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, "E:\peakcao\myfile\1032245255484.swf"
End Sub
展开全部
我也曾经遇到类似问题,而且窗体中其他对象也莫名其妙地变化了。
不过我在150个经典VB+API应用实例找到了引用Shockwave Flash的案例。
你可以在其他对象修改完毕保存后用记事本打开窗体文件(.frm)粘贴
VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "swflash.ocx"
。。。
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1
Height = 2415
Left = 360
TabIndex = 0
Top = 120
Width = 2775
_cx = 4199199
_cy = 4198564
Movie = ""
Src = ""
WMode = "Window"
Play = -1 'True
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = -1 'True
Base = ""
Scale = "ShowAll"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = "000000"
SWRemote = ""
End
End
Attribute VB_Name = "Form1"
在工程文件(.vbp)中粘贴
。。。
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\PWINNT\system32\stdole2.tlb#OLE Automation
Object={D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0; Flash.ocx
。。。
不过我在150个经典VB+API应用实例找到了引用Shockwave Flash的案例。
你可以在其他对象修改完毕保存后用记事本打开窗体文件(.frm)粘贴
VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "swflash.ocx"
。。。
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1
Height = 2415
Left = 360
TabIndex = 0
Top = 120
Width = 2775
_cx = 4199199
_cy = 4198564
Movie = ""
Src = ""
WMode = "Window"
Play = -1 'True
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = -1 'True
Base = ""
Scale = "ShowAll"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = "000000"
SWRemote = ""
End
End
Attribute VB_Name = "Form1"
在工程文件(.vbp)中粘贴
。。。
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\PWINNT\system32\stdole2.tlb#OLE Automation
Object={D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0; Flash.ocx
。。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2011-05-06
展开全部
其实flash也没那么难用吧?不是很建议你用Authorware;至于外部调用swf会涉及到“安全沙漏”问题,肯定会出问题。你的动态文本不需要用嵌入,除非你想用中文,至于为什么没出现对应的数字,可能是你的按钮问题,或者是监听函数的问题,肯定是你代码的事了...
还有flash的问题 貌似不算是vb类问题
另外,站长团上有产品团购,便宜有保证
还有flash的问题 貌似不算是vb类问题
另外,站长团上有产品团购,便宜有保证
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可能是ocx控件,也有可能是vb问题
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询