Question

vb2010如何保存picturebox1当中的图像？

Dim bmp As New Bitmap(PictureBox1.Width, PictureBox1.Height)
Try
Dim SFD As New SaveFileDialog
SFD.Filter = "图片(*.jpeg)|*.jpeg|位图(*.bmp)|*.bmp"
SFD.ShowDialog()
If SFD.FileName <> "" Then
bmp.Save(SFD.FileName)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
这段代码显然不能解决问题，因为没有对bmp写入内容，所以图片虽然可以保存，但保存的结果是：这是一张白图，里面什么也没有，求大神帮忙，怎么才能保存picture当中的图片
我用picturebox1.image.save(sfd.filename)
结果弹出错误来：未将对象引用设置到对象的实例

Answer 1

If PictureBox1.Image IsNot Nothing Then
PictureBox1.Image.Save(sfd.filename)
End If
'用上面的代码就可以了，你既然要保存picturebox1当中的图像，那么就要保证PictureBox1.Image IsNot Nothing

追问

怎么才能对PictureBox1.Image进行附值呢?
我定义了一个graphics类
Dim gra As Graphics = PictureBox1.CreateGraphics()

可是不知道怎么将最终绘好的图形写入PictureBox1.Image
跪求了！

追答

Dim bmp As New Bitmap(PictureBox1.Width, PictureBox1.Height)

Dim gra As Graphics = Graphics.FromImage(bmp)
'然后在gra中绘图
'然后在gra中绘图
...........................
PictureBox1.Image = bmp
PictureBox1.Refresh()
gra.Dispose()
'下面是保存-----这样绘出的图形永不消失
If PictureBox1.Image IsNot Nothing Then
PictureBox1.Image.Save(sfd.filename)
End If