笔记5：转：VB.NET（2005）图形的处理（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, 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, New Rectangle(0, 0, 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)