如何使用pitcurebox的返回值我用这一句来实现图片的显示Pitping.PictureLoadPicture(App.Path+\平面图\
如何使用pitcurebox的返回值
我用这一句来实现图片的显示
Pitping.Picture = LoadPicture(App.Path + "\平面图\ " + zhanping)
其中 zhanping 是图片的名字的字符串
当图片不存在时 就会出错 我想用返回值处理 但是 我不知道该如何处理
请问 有什么办法吗 当图片不存在时 给出提示信息 或 如何使用返回值
[解决办法]
加载前先判断是否有该文件存在不就OK了吗?
[解决办法]
可以用dir函数判断文件是否存在
[解决办法]
这样写:
Sub ShowPic(byval PictureFileName as String)
On error goto errline
picture1.picture=loadpicture(PictureFileName )
exit sub
ErrLine:
picture1.picture=loadpicture(app.path & "\Err.bmp ")
end sub
当文件不存在,或者图片文件的格式有问题时,就自动加载一个预设好的图片 "Err.bmp ",该图片默认路径就在你的程序的EXE的同一个文件夹下
