http://hi.baidu.com/xingwm/item/33792adb6eac324dddf9be34
1.如何持久化作图
在vb.net 中,已经不像VB6那样利用autoredraw可以允许持久作图了。所以在一个图片上用作图的方式显示图形,需要以下步骤:
Dim bmp As New Bitmap(Me.Pic1.Width,Me.Pic1.Height) '建立对应的bmp图
Dim g As Graphics = Graphics.FromImage(bmp) ‘建立工作区
g.DrawLine......() '利用graphics来作图改变bmp
Pic1.image=bmp ’将bmp图付给目标
Public Class Form1 Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click Dim bmp As New Bitmap(Me.Width,Me.Height) '定义图片大小 Dim gr As Graphics = Graphics.FromImage(bmp) '建立工作区 gr.DrawEllipse(Pens.Red,New Rectangle(0,150,200)) '工作区上画 Me.BackgroundImage = bmp End Sub Private Sub Button2_Click(sender As Object,e As EventArgs) Handles Button2.Click Dim gr As Graphics = Me.CreateGraphics gr.DrawEllipse(Pens.Red,300,200)) End Sub End Class
2.将bmp转换成byte数组
在数据库存储中及其他应用中,有时需要将bmp转换成byte数组,这需要使用stream作为中介
Dim byt() As Byte
Dim ms As New IO.MemoryStream
bmp.Save(ms,System.Drawing.Imaging.ImageFormat.Png)
byt = ms.ToArray
需要注意的是,如果是采用上文作图的方式产生的bmp图片,实际上是有透明地方的,也就是说并不是所有的位置都有颜色,在这里,必须谨慎System.Drawing.Imaging.ImageFormat.Png这个参数,如果使用的imageformat是bmp,gif,jpeg等格式,那么在下文再转换回去的时候会将图片的透明处变为黑色。——这是图片中编码和VB中显示图片的方式引起的。
有的文章是这么写的bmp.Save(ms,bmp.RawFormat),这在上文那种画图的处理中产生的bmp会提示new错误。原因不明。
3.将byte数组还原为图片
ms = New IO.MemoryStream(byt) Me.Pic1.Image = Bitmap.FromStream(ms)