使用Stream读取图像

向劳动者致敬

哈喽，哈喽，大家五一快乐！

五一大家状态是否人人人人人人我人人人人人人！而我是一个人加班，这个五一假期泰裤辣！

之前，我给大家讲了一下Stream写入图像，我们会了写入，那怎么来读取呢？我们来看一下。

01、创建窗体

我们在窗体上放两个控件，一个组合框，一个图像控件。组合框添加一下行来源，行来源为之前示例里面的表，可以用来选择，已传的图像名称。

组合框名称：cmbPic

图像控件名称：Img

02、添加代码

我们知道图像控件，用来预览图片，一般代码我们这么写me.控件名称.Picture="路径信息"。现在我们示例当中的图片是以二进制的方式保存的，那我们这里不能直接读取，只可以将文件先下载，然后再预览，具体的代码如下：

Private Sub cmbPic_AfterUpdate()
    Dim rs As New ADODB.Recordset
    Dim mstream As ADODB.Stream
    Dim strImage As String
    Set rs = New ADODB.Recordset
    rs.Open "Select * from bmp表 wherehljs-keyword" style="font-size: inherit; line-height: inherit; margin: 0px; padding: 0px; color: #b854d4; word-wrap: inherit !important; word-break: inherit !important;">Me.cmbPic.Column(1), CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Set mstream = New ADODB.Stream
    mstream.Type = adTypeBinary
    mstream.Open
    mstream.Position = 0
    mstream.Write rs.Fields("bmp").Value
    strImage = CurrentProject.Path & "\" & Me.cmbPic
    mstream.SaveToFile strImage, adSaveCreateOverWrite
    rs.Close
    Me.Img.Picture = strImage
    Kill strImage
End Sub

还要注意一下，预览结束后，需要删除下载的文件

03、运行

最后，我们来运行一下

好了，今天的分享就到这里了，大家快去试一下吧。

var code = "e56caef1-a614-42ec-974d-3591cb05aba7"

END