VB 含有Flash不能保存你们遇到了吗？

那我去查查。原来这个错误是因为：
FLASH 不断升级导致 组件插件 在VB项目开发中保存出现：“系统错误&H80004005(-2147467259)，未指定的错误”。卸载最新的，安装flash8。或者那个flash10a.ocx，这个不会出错。

解决方法：

就是找到当初的FLASH10X.OCX 然后把目前的替换掉之后 重新regsvr32.exe 重启VB工程 就可以用了！！

我当初用的是 flash10d.ocx 目前是flash10k.ocx

1. 找到 flash10d.ocx copy到 C:/WINDOWS/system32/Macromed/Flash 下 把目前的给改名

2. 如果组件正在使用 建议用 Unlocker工具 把flash10d.ocx改名 为 :flash10k.ocx(当然adobe公司不断升级FLASH组件内核，平时留意一下。)

3. 注册之后 重启VB工程 就没问题了。

还有一种是间接引用（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:peakcaomyfile1032245255484.swf"
End Sub

更清楚的代码（2）：

Dim tmpCtl As Object '这句放在窗体层
Private Sub Form_Load()
'添加控件
Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash","Flash")
tmpCtl.object.LoadMovie 0,App.Path "swf.swf"
End Sub
Private Sub Form_Resize()
If Me.WindowState = 1 Then Exit Sub
tmpCtl.Left = 15
tmpCtl.Top = 15
tmpCtl.Width = Me.ScaleWidth
tmpCtl.Height = Me.ScaleHeight
tmpCtl.Visible = True
End Sub

用以上两分钟方法都可以。 好了，这样，你就有了一个自己的flash播放器。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!