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

Question

万分感激！！！

Answer 1

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

Answer 2

我也曾经遇到类似问题，而且窗体中其他对象也莫名其妙地变化了。
不过我在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
。。。

Answer 3

其实flash也没那么难用吧？不是很建议你用Authorware；至于外部调用swf会涉及到“安全沙漏”问题，肯定会出问题。你的动态文本不需要用嵌入，除非你想用中文，至于为什么没出现对应的数字，可能是你的按钮问题，或者是监听函数的问题，肯定是你代码的事了...
还有flash的问题 貌似不算是vb类问题
另外,站长团上有产品团购,便宜有保证

Answer 4

可能是ocx控件，也有可能是vb问题