Question

vb6.0 实时错误'53' 问题

错误提示：
vb6.0 实时错误'53'
文件未找到'E:\VB Pra\1.bmp'
--------------------------------
文件存放在“E:\VB Pra”下，其下有1.bmp文件！
源码：
Private Sub imgButton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgDisp.Picture = LoadPicture(App.Path & "\1.bmp")
End Sub
--------------------------------
鼠标移过时提示错误！将App.Path & "\1.bmp"改成"E:\VB Pra\1.bmp"还是一样错误！
请高手指教！！！！
?dir("E:\VB Pra\1.bmp")无错误提示！并且确定文件存在并文件名无误！我还把另一个图片放在E:\下，imgDisp.Picture = LoadPicture("E:\1.bmp") ，还是错误！将"&"改成"+"还是不行啊！高手帮忙啊！

Answer 1

你确定'E:\VB Pra\1.bmp' 这个文件是存在的吗？我看不存在，你在VB的立即执行窗口执行下
?dir("E:\VB Pra\1.bmp)
看看有结果吗？
应该是没有吧，不然VB是不会犯这样低级错误的吧。
1.bmp这个文件扩展名是bmp，在文件夹选项中设置“显示已知文件的扩展名”然后确定，让我的电脑和资源管理器中的文件列表都能显示出正确的扩展名，然后看看你这个文件的真正文件名是否为1.bmp。
最后，VB Pra这个目录你改为别的试一下。

对了，我都迷了，哈哈，在你那行代码前必须加上set
set imgDisp.Picture = LoadPicture(App.Path & "\1.bmp")

Answer 2

将imgDisp.Picture = LoadPicture(App.Path & "\1.bmp")
改为
imgDisp.Picture = LoadPicture(App.Path + "\1.bmp")