OBJECT对象序列化转换为byte[] byte[]反序列化转换为OBJECT对象

   ' 参考：http://blog.youkuaiyun.com/freehul/archive/2005/01/19/258787.aspx
     ' 将Image对象和byte[]互相转换 

     Private   Sub Button1_Click() Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim img As Image = PictureBox1.Image
        Dim img2 As Image = CType(GetObject(ReadObject(img)), Image)
        PictureBox2.Image = img2
    End Sub

     Public   Shared   Function ReadObject() Function ReadObject(ByVal obj As Object) As Byte()
        Dim ms As MemoryStream = New MemoryStream
        Dim bf As BinaryFormatter = New BinaryFormatter
        bf.Serialize(ms, obj)
        ms.Close()
        Return ms.ToArray()
    End Function

     Public   Shared   Function GetObject() Function GetObject(ByVal bytes As Byte()) As Object
        Dim ms As MemoryStream = New MemoryStream(bytes, 0, bytes.Length)
        Dim bf As BinaryFormatter = New BinaryFormatter
        Return bf.Deserialize(ms)

    End Function

转载于:https://www.cnblogs.com/Contlu/archive/2005/01/19/94178.html