学步园

显示图片的关键代码是别人的。我只是稍加整理。

直接看代码:

把byte数组中的字节流放入到picturebox控件中的函数:

忘了这位高手的名字了，转自vbgood~~~~~~

Private Declare Function GdipCreateFromHDC Lib "GdiPlus" (ByVal hdc As Long, graphics As Long) As Long<br /> Private Declare Function GdipDeleteGraphics Lib "GdiPlus" (ByVal graphics As Long) As Long<br /> Private Declare Function GdipDrawImage Lib "GdiPlus" (ByVal graphics As Long, ByVal image As Long, ByVal x As Single, ByVal y As Single) As Long<br /> Private Declare Function GdipDisposeImage Lib "GdiPlus" (ByVal image As Long) As Long<br /> Private Declare Function GdiplusStartup Lib "GdiPlus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As Long<br /> Private Declare Sub GdiplusShutdown Lib "GdiPlus" (ByVal token As Long)<br /> Private Declare Function GdipLoadImageFromStream Lib "GdiPlus" (ByVal Stream As Long, ByRef image As Long) As Long<br /> Private Declare Sub CreateStreamOnHGlobal Lib "ole32.dll" (ByRef hGlobal As Any, ByVal fDeleteOnRelease As Long, ByRef ppstm As Any)<br /> Private Type GdiplusStartupInput<br /> GdiplusVersion As Long<br /> DebugEventCallback As Long<br /> SuppressBackgroundThread As Long<br /> SuppressExternalCodecs As Long<br /> End Type<br /> Public Sub DrawBytesToPictureBox(ByRef PictureData() As Byte, ByRef picBox As PictureBox)</p> <p> Dim GpInput As GdiplusStartupInput<br /> Dim token As Long, GdiDC As Long, StreamObject As Long, img As Long</p> <p> GpInput.GdiplusVersion = 1<br /> GdiplusStartup token, GpInput</p> <p> GdipCreateFromHDC picBox.hdc, GdiDC<br /> CreateStreamOnHGlobal PictureData(0), 0, StreamObject<br /> GdipLoadImageFromStream StreamObject, img<br /> GdipDrawImage GdiDC, img, 0, 0</p> <p> GdipDisposeImage img<br /> GdipDeleteGraphics GdiDC<br /> GdiplusShutdown token</p> <p>End Sub</p> <p>

通过xmlhttp获得图片。 

显示校验码的代码：

Dim x As Object<br /> urlPic = "http://ptlogin2.qq.com/getimage"<br /> Set x = CreateObject("Microsoft.XMLHTTP")<br /> x.Open "GET", urlPic, False<br /> x.Send<br /> l = x.getResponseHeader("Content-Length")<br /> ReDim picary(l)<br /> Call coverByteArray(x.responseBody)<br /> CheckPic.Refresh<br /> Call DrawBytesToPictureBox(picary, CheckPic)<br />

将图片转换字节数组中：

Sub coverByteArray(vIn)<br /> For i = 0 To LenB(vIn) - 1<br /> picary(i) = vIn(i)<br /> Next i<br /> End Sub<br />

看效果图：