xmlimage.vb

来自「系统概要: 本系统采用VB.NET开发. 开发平台:Windows XP P」· VB 代码 · 共 27 行

Option Strict Off
Imports System.Xml
Imports System.Xml.Serialization

Public Class XmlImage

    Public ImageXml As Object

    <XmlIgnore()> _
    Public Property XmlImage() As Image
        Get
            Dim ByteImages() As Byte
            ByteImages = ImageXml
            Return Image.FromStream(New System.IO.MemoryStream(ByteImages))
        End Get
        Set(ByVal Value As Image)
            Dim MemStream As New System.IO.MemoryStream
            Value.Save(MemStream, System.Drawing.Imaging.ImageFormat.Jpeg)
            Dim ByteImages(MemStream.Length - 1) As Byte
            MemStream.Position = 0
            MemStream.Read(ByteImages, 0, MemStream.Length)
            ImageXml = ByteImages
        End Set
    End Property

End Class