图形文件的数据读写操作实例

' 导入命名空间
Imports System.IO
Public Class LOB

    Private Sub btnReadBinary_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReadBinary.Click
        Try
            Using fs As FileStream = File.OpenRead("乐博网\logo.jpg")

                Dim myBinaryData() As Byte
                Dim myPicture As Image

                ' 将图形文件的数据读入一个 Byte 数组中。
                ReDim myBinaryData(CInt(fs.Length - 1))
                fs.Read(myBinaryData, 0, CInt(fs.Length))

                ' 根据 Byte 数组来建立一个 MemoryStream 对象。
                Dim buffer As New MemoryStream(myBinaryData)

                ' 将 MemoryStream 对象的目前位置移至开头处。
                buffer.Position = 0

                ' 将图形文件的二进制数据读入一个 Image 对象中。
                myPicture = Image.FromStream(buffer)

                Me.BackgroundImage = myPicture
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub LOB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class