1,066
社区成员
发帖
与我相关
我的任务
分享
Public Sub ShowBmp(byt() As Byte)
Dim bmi As BITMAPINFO
'设置BMP信息头
With bmi.bmiHeader
.biBitCount = 24
.biCompression = 0
.biPlanes = 1
.biSize = Len(bmi.bmiHeader) '40
.biWidth = fW
.biHeight = fH
.biSizeImage = .biHeight * (((.biWidth * .biBitCount + 31) And &HFFFFFFE0) \ 8)
End With
Clear
With Picture1
hasImage = True
SetDIBits .hdc, .Image.handle, 0, bmi.bmiHeader.biHeight, byt(LBound(byt)), bmi, 0
.Refresh
End With
End Sub
这是我用的一段代码,作用就是将一个图片的数据(字节数组),在PictureBox里面显示出这张图片来。