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

lpBits As Any, lpBI As BitMapInfo, ByVal wUsage As Long) As Long
获取系统时间
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

数据结构定义：
Private Type BitMapInfoHeader ''文件信息头——BITMAPINFOHEADER
   biSize As Long           
   biWidth As Long          
   biHeight As Long         
   biPlanes As Integer      
   biBitCount As Integer  
   biCompression As Long
   biSizeImage As Long     
   biXPelsPerMeter As Long
   biYPelsPerMeter As Long
   biClrUsed As Long        
   biClrImportant As Long 
End Type

Private Type RGBQuad
        rgbBlue As Byte
        rgbGreen As Byte
        rgbRed As Byte
        ''rgbReserved As Byte
End Type

Private Type BitMapInfo
        bmiHeader As BitMapInfoHeader
        bmiColors As RGBQuad
End Type
这三个数据结构都是在DIB中不可缺少的。我们不必深究，只是按照顺序复制粘贴直接使用就是了。

过程中用到的全局变量：
Private Const Bits As Long = 32  ''颜色深度，这里把所有图像都按照32位来处理
Public Done As Boolean              ''用于标记一个过程是否结束
Public TimeGet As Long              ''用于记录输入过程处理所花费的时间
Public TimePut As Long              ''用于记录输出过程处理所花费的时间
Dim ColVal() As Byte                 ''用于存放从DIB输入的像素值
Dim ColOut() As Byte                 ''用于存放向DIB输出的像素值
Dim InPutHei As Long                 ''用于记录输入图像的高度
Dim InPutWid As Long                ''用于记录输入图像的宽度
Dim bi24BitInfo As BitMapInfo    ''定义BMP信息

可以看出，我在输入和输出中使用了两个不同的动态数组ColVal()和ColOut()
这么做是有道理的，因为我们不只是为了输入和输出图像，中间还要对像素进行处理。
包括图像缩放、色彩调整、锐化、柔化等等处理，使用两个不同的数组来分别存放数据更有利于程序的实现。

有些性急的朋友说不定已经把程序贴到工程里试用了，可是会发现根本不能输出图像。
这是因为当你用DIBGET获得的图像还在ColVal() 中呢，需要把它们放到ColOut()这个数组中去，DIBPUT这个过程才能起作用。

这里再给出一个用于数组整体移动数