神马品牌网龙珠超宇宙2究极技:vb加载图片出现问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/08 08:53:21
我在设计VB时，使用Image控件来加载图片
我将图片就放在VB程序的根目录下
我在代码窗口中分别输入以下代码并分别执行
Image1.Picture = LoadPicture("cnnsf.jpg")
Set Image1= LoadPicture("cnnsf.jpg")
都在执行时提示【文件未找到"cnnsf.jpg"】
但我首次也是同样的做法就不曾有这样的提示，而是正常的执行
后来我又将图片cnnsf.jpg复制到了F盘，然后输入以下代码就能成功执行
Image1.Picture = LoadPicture("f:\cnnsf.jpg")
但我想图片要是放在程序目录以外的地方总感觉不是很好，它们不是一个完整的整体，再说以后如果要对它们进行打包后进行解压总感觉不方便。
我第一次用这条Image1.Picture = LoadPicture("cnnsf.jpg")代码时却时正常，这使我百思不得其解，所以我想请高手指点一下
我将图片就放在VB程序的根目录下
我在代码窗口中分别输入以下代码并分别执行
Image1.Picture = LoadPicture("cnnsf.jpg")
Set Image1= LoadPicture("cnnsf.jpg")
都在执行时提示【文件未找到"cnnsf.jpg"】
但我首次也是同样的做法就不曾有这样的提示，而是正常的执行
后来我又将图片cnnsf.jpg复制到了F盘，然后输入以下代码就能成功执行
Image1.Picture = LoadPicture("f:\cnnsf.jpg")
但我想图片要是放在程序目录以外的地方总感觉不是很好，它们不是一个完整的整体，再说以后如果要对它们进行打包后进行解压总感觉不方便。
我第一次用这条Image1.Picture = LoadPicture("cnnsf.jpg")代码时却时正常，这使我百思不得其解，所以我想请高手指点一下
"Image1.Picture = LoadPicture("cnnsf.jpg")代码时却时正常，这使我百思不得其解，所以我想请高手指点一下"不可能成功,有一种可能就是你在代码前面写了ON ERROR RESUME NEXT或者ON ERROR GOTO ????什么的,出了错不会显示出来.
LOADPICTURE的参数必须是完整的路径,如果你需要相对目录下的文件,键入APP.PATH & "\???.JPG"就可以了,不管你把整个程序文件移到哪里去,都不会有影响.
Image1.Picture = LoadPicture(App.Path + "\cnnsf.jpg")
楼上正解