UC知道VB 加载图片
来源：百度知道 编辑：UC知道 时间：2024/05/04 08:40:21
Private Sub Form_Load()
image1.Picture = LoadPicture(App.Path + "\motor.jpg")
image1.Top = 0
image1.Left = 0
End Sub
一个窗口一个PICTUREBOX。。
F:\VB\move 工程跟窗口和图片都放到这个目录下了。。
是我的文件保存的目录不对？
刚学VB 看教程 加载图片这个就是没弄明白。。请教。。谢谢。。
谢谢两位哦。。。
image1.Picture = LoadPicture(App.Path + "\motor.jpg")
我都试了。。就是不行。。调试的时候出现这句就过不去 图片当然也没有加载成功。。－ －苦恼ING。。。
image1.Picture = LoadPicture(App.Path + "\motor.jpg")
image1.Top = 0
image1.Left = 0
End Sub
一个窗口一个PICTUREBOX。。
F:\VB\move 工程跟窗口和图片都放到这个目录下了。。
是我的文件保存的目录不对？
刚学VB 看教程 加载图片这个就是没弄明白。。请教。。谢谢。。
谢谢两位哦。。。
image1.Picture = LoadPicture(App.Path + "\motor.jpg")
我都试了。。就是不行。。调试的时候出现这句就过不去 图片当然也没有加载成功。。－ －苦恼ING。。。
代码无问题 自己仔细检查一下程序.
把路径改成绝对路径看一下.
image1.Picture = LoadPicture("F:\VB\move\motor.jpg")
检测App.Path的值,看最后一个字符是不是"\",要是你的就成了\\motor.jpg了.
if right(app.path,1)="\" then
image1.Picture = LoadPicture(App.Path + "motor.jpg")
else
image1.Picture = LoadPicture(App.Path + "\motor.jpg")
endif
然后,最好把"+" 改成"&",专业点
正如上面所说，改成绝对路径是决对可以的！
然而这种方式太不方便了，要是图片改了地址就不行了，
把image1.Picture = LoadPicture(App.Path + "\motor.jpg")
这一句改成image1.picture =loadpicture("\motor.jpg")就可以了
loadpicture("\*.*")中的("\*.*")表示在同一目录下
，你的路径是F:\VB\move ，而APP.PATH不是根目录呀所以错了