下面代码在VB6 中测试通过，在ACCESS2003中测试通过

注意此代码使用的显示图片控件是 Form2.Image1

[提示] 本段代码来自互联网，代码解释归属原作者。

*本人测试收藏*

Option Explicit '<a href="/tag/diaoyong/" target="_blank" class="keywords">调用</a><a href="/tag/fangfa/" target="_blank" class="keywords">方法</a> set Image1.Picture=PictureFromByteStream(rstOra.Fields("zp").Value) '参数 rstOra as adodb.recordset '将下面的<a href="/tag/daima/" target="_blank" class="keywords">代码</a>放到一个模块<a href="/tag/wenjian/" target="_blank" class="keywords">文件</a>中 Private Declare Function CreateStreamOnHGlobal Lib "ole32" (ByVal hGlobal As Long,ByVal fDeleteOnRelease As Long,ppstm As Any) As Long Private Declare Function OleLoadPicture Lib "olepro32" (pStream As Any,ByVal lSize As Long,ByVal fRunmode As Long,riid As Any,ppvObj As Any) As Long Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpsz As Any,pclsid As Any) As Long Private Declare Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long,ByVal dwBytes As Long) As Long Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any,pSource As Any,ByVal dwLength As Long) Public Function PictureFromByteStream(b() As Byte) As IPicture Dim hMem As Long Dim lpMem As Long Dim LowerBound As Long Dim ByteCount As Long Dim IID_IPicture(15) Dim istm As stdole.IUnknown LowerBound = LBound(b) ByteCount = UBound(b) - LowerBound + 1 hMem = GlobalAlloc(&H2,ByteCount) If hMem <> 0 Then lpMem = GlobalLock(hMem) If lpMem <> 0 Then MoveMemory ByVal lpMem,b(LowerBound),ByteCount GlobalUnlock hMem If CreateStreamOnHGlobal(hMem,1,istm) = 0 Then If CLSIDFromString(StrPtr("{7BF80980-BF32-101A-8BBB-00AA00300CAB}"),IID_IPicture(0)) = 0 Then OleLoadPicture ByVal ObjPtr(istm),ByteCount,IID_IPicture(0),PictureFromByteStream End If End If End If End If End Function