我在vb6.0中的一个窗体中加了一个“Shockwave flash”后点击保存出现“系统错误,未指定的错误”

万分感激!!!... 万分感激!!! 展开
 我来答
精制骨架
2011-05-05 · TA获得超过560个赞
知道小有建树答主
回答量:241
采纳率:0%
帮助的人:258万
展开全部
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
API_Studier
2011-05-06 · TA获得超过296个赞
知道小有建树答主
回答量:97
采纳率:100%
帮助的人:122万
展开全部
我也曾经遇到类似问题,而且窗体中其他对象也莫名其妙地变化了。
不过我在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类问题
另外,站长团上有产品团购,便宜有保证
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
沙慧月03
2011-04-30 · TA获得超过2157个赞
知道大有可为答主
回答量:2717
采纳率:100%
帮助的人:3634万
展开全部
可能是ocx控件,也有可能是vb问题
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式