出现这些错误是什么回事:
“System.NullReferenceException”类型的第一次机会异常在 WindowsApplication1.exe 中发生
其他信息: 未将对象引用设置到对象的实例。
如有适用于此异常的处理程序,该程序便可安全地继续运行。
Using bmasdasp As Bitmap = PictureBox1.Image
bmasdasp.Save("C:\1\a.Jpeg", Imaging.ImageFormat.Jpeg)
End Using
在VS2013进行VB的编程picturebox保存图片问题
答案:2 悬赏:10 手机版
解决时间 2021-02-06 13:32
- 提问者网友:星軌
- 2021-02-05 23:41
最佳答案
- 五星知识达人网友:像个废品
- 2021-02-06 01:10
'将文件添加到图像对应文件夹中
If PictureBox1.Image.ToString <> "" Then
PictureBox1.Image.Save(Application.StartupPath & "/Photos/" & TextBox1.Text & ".jpg")
End If
If PictureBox1.Image.ToString <> "" Then
PictureBox1.Image.Save(Application.StartupPath & "/Photos/" & TextBox1.Text & ".jpg")
End If
全部回答
- 1楼网友:拾荒鲤
- 2021-02-06 02:09
添加一个按钮,添加以下代码
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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯