求助 VB的系统错误&H80004005(-2147467259).未指定的错误？

[怒吼]

照范例做了一个多媒体的程序
Private Sub ActiveMovie1_PositionChange(ByVal oldPosition As Double, ByVal newPosition As Double)
MsgBox ("谢谢观赏！")
End Sub

Private Sub Form_Load()
ActiveMovie1.FileName = App.Path & "\3.mpg"
End Sub

出了一个错误 &H80004005(-2147467259) 谁能指教下 谢谢

[怒吼]

4楼的我照你的弄了还是出错

[tongnaifu]

程序大吗？发我邮箱[e-mail]我看看

[怒吼]

惭愧啊我是个初学的 我弄的是照这个上弄的http://www.hongen.com/pc/program/vb/v1.htm 然后就出的那个错误

[tongnaifu]

很抱歉，我的XP系统里没有找到这个ocx，看截图像是98系统里的，所以没法调试，估计是你的文件没有放到程序的目录下或者格式不支持

[怒吼]

98嘛？ 我的也是XP 用这个要在98里面嘛？

[paradise885]

看看err.Description

[tongnaifu]

[Quote=引用 9 楼 zxy7610 的回复:]
98嘛？ 我的也是XP 用这个要在98里面嘛？
[/Quote]
你的有这个ocx?我怎么找不到?

[tongnaifu]

这种错误看不懂，建议加上option explicit，然后设置断点全编译执行，一步一步执行就可以看到中文错误提示。

[怒吼]

就2步 ActiveMovie1.FileName = App.Path & "\3.mpg" 这个出的错

[tongnaifu]

Private Sub Form_Load()
on error goto err1
ActiveMovie1.FileName = App.Path & "\3.mpg"
err1:
if err.number<>0 then
msgbox err.Description
end if
End Sub

[怒吼]

我当然有了 我的VB版本的问题吧 下载了好几个才有 是有sp6的VB

[tongnaifu]

那你把这个ocx发我邮箱

[奋斗一生的程序员]

顶！我也遇到这个错误提示。
不过，发生的过程与楼主不一样。我的是一个VB工程，设计并编译三年了。前天在编译时，突然出现了那个错误提示。

我卸载VB6，再重装VB6，依然没解决。

我继续关注本帖。

[奋斗一生的程序员]

我刚才又对我的程序进行测试，发现是一个第三方控件的版本过低。重新安装这个控件，问题得已解决

楼主可以试试重新注册ActiveMovie1。或者换一台电脑，利用ActiveMovie1再设计一个工程，如法炮制，看看问题是否解决。

[gzjhkjwang]

给一个解决思路，我遇到的引用Flash控件同样出现未指定错误的问题，是这样解决的：
有可能你用的ocx控件版本过高，造成vb反而不兼容，去寻找一个低版本的ocx，找到在系统中原本ocx的文件名，例如Flash10l.ocx，删除掉它，将低版本的ocx，例如Flash10e.ocx拷贝到这个目录并改名为Flash10l.ocx，问题得已解决。