Question

VB 如何把picturebox中每个点的颜色保存到数组

请注意，不要point那种一个点一个点扫描的方法，太慢了，我这种好像有点问题
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type

Private Sub Command1_Click()
Dim PicInof As BITMAP
Picture2.Picture = LoadPicture("C:\Documents and Settings\Administrator\My Documents\ptpic.php.gif")
GetObject (Picture1.Image), Len(PicInof), PicInof
BytesPerPixel = PicInof.bmBitsPixel
ReDim TImage(PicInof.bmWidthBytes * PicInof.bmHeight) As Long 'PicInof.bmWidth - 1, PicInof.bmHeight - 1)
GetBitmapBits Picture2.Image, PicInof.bmWidthBytes * PicInof.bmHeight, TImage(0)
End Sub

Answer 1

GetObject (Picture1.Image), Len(PicInof), PicInof
执行成功以后PicInof.bmBits就是图像数据的指针了,再根据PicInof.bmWidthBytes * PicInof.bmHeight算出长度,映射到SAFEARRAY 或者 CopyMemory到数组里.

Answer 2

修改如下：
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type

Private Sub Command1_Click()
Dim PicInof As BITMAP
Dim BytesPerPixel As Long
Picture2.Picture = LoadPicture("C:\Documents and Settings\Administrator\My Documents\ptpic.php.gif")
GetObject (Picture2.Image), Len(PicInof), PicInof
BytesPerPixel = PicInof.bmBitsPixel
ReDim TImage(PicInof.bmWidthBytes * PicInof.bmHeight) As Byte 'PicInof.bmWidth - 1, PicInof.bmHeight - 1)
GetBitmapBits Picture2.Image.Handle, PicInof.bmWidthBytes * PicInof.bmHeight, TImage(0)
End Sub