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

Question

照范例做了一个多媒体的程序
Private Sub ActiveMovie1_PositionChange(ByVal oldPosition As Double, ByVal newPosition As Double)
MsgBox ("谢谢观赏！")
End SubPrivate Sub Form_Load()
ActiveMovie1.FileName = App.Path & "\3.mpg"
End Sub出了一个错误 &H80004005(-2147467259) 谁能指教下 谢谢

Answer 1

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

Answer 2

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

Answer 3

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 

Answer 4

程序大吗？发我邮箱[email protected]我看看

Answer 5

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

Answer 6

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

Answer 7

你的有这个ocx?我怎么找不到?

Answer 8

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

Answer 9

顶！我也遇到这个错误提示。
不过，发生的过程与楼主不一样。我的是一个VB工程，设计并编译三年了。前天在编译时，突然出现了那个错误提示。我卸载VB6，再重装VB6，依然没解决。我继续关注本帖。

Answer 10

我刚才又对我的程序进行测试，发现是一个第三方控件的版本过低。重新安装这个控件，问题得已解决楼主可以试试重新注册ActiveMovie1。或者换一台电脑，利用ActiveMovie1再设计一个工程，如法炮制，看看问题是否解决。

Answer 11

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