笔记5：转：VB.NET2005图形的处理bitmap，byte，持久化

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)

原文地址：https://www.jb51.cc/vb/258475.html