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:\peakcao\myfile\1032245255484.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播放器。