VB 上传本地图片到picturebox，但是退出再打开VB的时候又要重新加载图片，想问下用什么方法加载一次就行

答案:3 悬赏:20 手机版

解决时间 2021-03-08 08:33

提问者网友：最美的风景
2021-03-07 10:25

最佳答案

五星知识达人网友：梦中风几里
2021-03-07 11:49

Option Explicit

Dim sLastPicPath As String'最后一次加载图片的路径

Private Sub Form_Load()'读取设置
    sLastPicPath = GetSetting("我的工程", "记录设置", "最后一次加载图片路径")
    '然后尝试在PictureBox中加载路径sLastPicPath的图片
End Sub

'在选择图片的过程,设置sLastPicPath(sLastPicPath="D:\XXX\XXXX\XX\X.bmp")

Private Sub Form_Unload(Cancel As Integer)'保存设置
    SaveSetting "我的工程", "记录设置", "最后一次加载图片路径", sLastPicPath
End Sub

全部回答

1楼网友：愁杀梦里人
2021-03-07 13:46

添加一个按钮,添加以下代码

private sub command1_click() '设为像素模式,绘图时的单位 me.picture1.scalemode = 3 me.picture2.scalemode = 3 me.picture3.scalemode = 3 '无边框模式,否则边框会减小图片 me.picture1.borderstyle = 0 me.picture1.fillstyle = 0 me.picture2.borderstyle = 0 me.picture2.fillstyle = 0 '前两个自动大小,这样可以知道图片大小 me.picture1.autosize = true me.picture2.autosize = true '自动重画,否则图片会消失 me.picture3.autoredraw = true me.picture3.paintpicture me.picture1.picture, 0, 0 me.picture3.paintpicture me.picture2.picture, me.picture1.scalewidth, 0 end sub

2楼网友：蕴藏春秋
2021-03-07 12:32

在picturebox属性picture中加载图片即可加载后图片存在于vb中，即使删除原图片都可以

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息