VB图像处理中像素的获取和输出

据的过程：
Public Sub CopyData(ByVal W As Long, ByVal H As Long)
Dim Length As Long
Dim I As Long
Dim L As Long
I = Bits \ 8
L = I - 1
 Length = (W + 1&) * (H + 1&) * I
ReDim ColOut(L, W, H)
CopyMemory ColOut(0, 0, 0), ColVal(0, 0, 0), Length
End sub

API定义：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSrc As Any, ByVal ByteLen As Long)

这时，我们就可以来试一下效果了：
把你的显示器调到32位色。
将前面的所有API和变量定义全部贴到一个新建的模块里
新建一个窗体，加两个PICTURE控件：pictrue1 ,picture2 一个按钮command1
在pictrue1中加载一个图片
在command1中写如下代码：
sub command1_click()
With picture1
   .ScaleMode=3
   .BorderStyle=0
   DibGet .hdc,0,0,.scalewidth,.scaleheight
End With
CopyData InPutHei ,InPutWid
picture2.AutoRedraw=True
DibPut picture2.hdc
picture2.refresh
end sub

运行一下，按钮按下，pictreu1中的图片就立刻显示到了picture2中。