Question

vb.net如何将绘制的图保存为png图片

请问用Panel2.CreateGraphics.DrawImage方法绘制的图怎么才能保存到硬盘上？

Answer 1

Dim bitmap1 As New Bitmap("D:\image\0183.jpg")‘panel1.backgroundimage
Dim bitmap2 As New Bitmap(294, 294)’保存图，也就是绘制的大小。
Dim rect1 As New Rectangle(New Point, bitmap2.Size)‘昨天的问题，这里似乎写错了，当然也不算错，只是把新图（小图）扩展成原图大小（大图），这里改正为新图的原大小。
Dim rect2 As New Rectangle(New Point(6, 6), bitmap2.Size)
Dim g As Graphics = Graphics.FromImage(bitmap2)
e.Graphics.DrawImage(bitmap1, rect1, rect2, GraphicsUnit.Pixel)
g.DrawImage(bitmap1, rect1, rect2, GraphicsUnit.Pixel)
bitmap2.Save("d:\a.png", Drawing.Imaging.ImageFormat.Png)

追问

e.Graphics.DrawImage(bitmap1, rect1, rect2, GraphicsUnit.Pixel).怎么我这里显示 “Graphics”不是“System.EventArgs”的成员？
后来行了，是不是要放在paint事件里才行？但是这样不能拼图。想把几个图片拼在一起保存

追答

Panel2.CreateGraphics不是等于panel2的paint的e.Graphics吗？
drawimage的名字都一样，你在别的过程中，换下就好啊==
至于g是你保存用的，如果你是要拼图，需要变通下吧
Dim bitmap2 As New Bitmap(294, 294)’该为panel2的大小，作为底图
Dim rect1 As New Rectangle(New Point, bitmap2.Size)‘size改为拼图之一的大小。位置改为拼图要在底图中显示的位置。
Dim rect2 As New Rectangle(New Point(6, 6), bitmap2.Size)‘要从原图中截取的拼图部分，size与上面的rect1的大小一致，位置自定义。
Dim g As Graphics = Graphics.FromImage(bitmap2)
e.Graphics.DrawImage(bitmap1, rect1, rect2, GraphicsUnit.Pixel)
g.DrawImage(bitmap1, rect1, rect2, GraphicsUnit.Pixel)’这个g主要用来保存，与上面的e一样，你要拼图，这个可能要重复几次
bitmap2.Save("d:\a.png", Drawing.Imaging.ImageFormat.Png)