7,763
社区成员
发帖
与我相关
我的任务
分享小问题:图片调用
只要是涉及到放图片的程序,我一个也没成功过,帮帮偶了哦,谢谢
Private Sub form_load()
Caption = "装入窗体"
Picture = LoadPicture(App.Path + "\168.jpeg")
FontSize = 48
FontName = "隶体"
Print "装入窗体"
End Sub
运行时却出错了,显示是"文件未找到:'D：\VB98\VB例子\例子5\168.jpeg'"
我知道当前应用程序与当前图片要放在同一文件夹,我已经放在<例子5>中了却还是不行,这是为什么呀???
...全文
请发表友善的回复…
发表回复
northwolves 2005-11-02
- 打赏
- 举报
不会吧.FontSize = 48
FontName = "隶书"
Me.AutoRedraw = True
Print "装入窗体"
Private Sub form_load()
Caption = "装入窗体"
Picture = LoadPicture(App.Path + "\168.jpeg")
FontSize = 48
FontName = "隶书"
Me.AutoRedraw = True
Print "装入窗体"
End Sub
直接改为Picture = LoadPicture("D：\VB98\VB例子\例子5\168.jpeg")试试
FontName = "隶书"
Me.AutoRedraw = True
Print "装入窗体"
Private Sub form_load()
Caption = "装入窗体"
Picture = LoadPicture(App.Path + "\168.jpeg")
FontSize = 48
FontName = "隶书"
Me.AutoRedraw = True
Print "装入窗体"
End Sub
直接改为Picture = LoadPicture("D：\VB98\VB例子\例子5\168.jpeg")试试
