要處理一個圖像，首先要獲得該圖像的像素值，而VB本身提供的PICTURE控件雖然可以打開很多類型的圖片，但是它提供的那個POINT方法讀取像素實在是太慢。而使用GetPixel這個API的速度也快不到哪裡去，因為PIONT方法本身就是對於GetPixel的一個包裝。
在VB中要快速獲取一幅在PICTURE中打開的圖像比較快速的方法是使用DIB方法，當然還有DDB方法，不過使用DDB方法還需要考慮不同顏色深度的圖像的分別處理，在程序的實現上要相對復雜，而使用DIB方法則不必，並且在處理速度上比DDB方法也慢的有限。
過程一：獲得一個在PICTURE控件中打開的圖像的所有像素。
->PublicSubDibGet(ByValIdSourceAsLong,XBeginAsLong,ByValYBeginAsLong,ByValXEndAsLong,ByValYEndAsLong)
DimiBitmapAsLong
DimiDCAsLong
DimIAsLongDim
DimWAsLong
DimHAsLong
OnErrorGoToErrLine
Done=False
TimeGet=timeGetTime
InPutWid=XEnd-XBegin
InPutHei=YEnd-YBegin
W=InPutWid 1
H=InPutHei 1
I=(Bits8)-1
ReDimColVal(I,InPutWid,InPutHei)
Withbi24BitInfo.bmiHeader
.biBitCount=Bits
.biCompression=0&
.biPlanes=1
.biSize=Len(bi24BitInfo.bmiHeader)
.biWidth=W
.biHeight=H
EndWith
iBitmap=GetCurrentObject(IdSource,7&)
GetDIBitsIdSource,iBitmap,0&,H,ColVal(0,0,0),bi24BitInfo,0&DeleteObjectiBitmap
Done=True
TimeGet=timeGetTime-TimeGetExitSub
ErrLine:
MsgBox"錯誤號："&Err.Number&"："&Err.Description
EndSub->
在這個過程中所用到的只是一些參數的設定和API的調用，不涉及算法。
過程二：圖像輸出的過程：
->PublicSubDIBPut(ByValIdDestinationAsLong)
DimWAsLong
DimHAsLong
OnErrorGoToErrLine
Done=False
TimePut=timeGetTime
W=OutPutWid 1
H=OutPutHei 1
Withbi24BitInfo.bmiHeader
.biWidth=W
.biHeight=H
LineBytes=((W*Bits 31)And&HFFFFFFE0)8
.biSizeImage=LineBytes*H
EndWith
SetDIBitsToDeviceIdDestination,0,0,W,H,0,0,0,H,ColOut(0,0,0),bi24BitInfo.bmiHeader,0
Done=True
TimePut=timeGetTime-TimePut
ExitSub
ErrLine:
MsgBoxErr.Description
EndSub->
下面解釋一下在過程中到的全局變量和數據結構，以及API的定義。
API定義：
刪除一個DC
->PrivateDeclareFunctionDeleteDCLib"gdi32"(ByValhdcAsLong)AsLong->
刪除一個對象
->PrivateDeclareFunctionDeleteObjectLib"gdi32"(ByValhObjectAsLong)AsLong->
選擇當前對象
->PrivateDeclareFunctionGetCurrentObjectLib"gdi32"(ByValhdcAsLong,ByValuObjectTypeAsLong)AsLong->
獲取DIB
->PrivateDeclareFunctionGetDIBitsLib"gdi32"(ByValaHDCAsLong,ByValhBitmapAsLong,ByValnStartScanAsLong,ByValnNumScansAsLong,lpBitsAsAny,lpBIAsBitMapInfo,ByValwUsageAsLong)AsLong->
獲取系統時間
->PrivateDeclareFunctiontimeGetTimeLib"winmm.dll"()AsLong->
數據結構定義：
->PrivateTypeBitMapInfoHeader'文件信息頭——BITMAPINFOHEADER
biSizeAsLong
biWidthAsLong
biHeightAsLong
biPlanesAsInteger
biBitCountAsInteger
biCompressionAsLong
biSizeImageAsLong
biXPelsPerMeterAsLong
biYPelsPerMeterAsLong
biClrUsedAsLong
biClrImportantAsLong
EndType
PrivateTypeRGBQuad
rgbBlueAsByte
rgbGreenAsByte
rgbRedAsByte
'rgbReservedAsByte
EndType
PrivateTypeBitMapInfo
bmiHeaderAsBitMapInfoHeader
bmiColorsAsRGBQuad
EndType->
這三個數據結構都是在DIB中不可缺少的。我們不必深究，只是按照順序復制粘貼直接使用就是了。
過程中用到的全局變量：
->PrivateConstBitsAsLong=32'顏色深度，這裡把所有圖像都按照32位來處理
PublicDoneAsBoolean'用於標記一個過程是否結束
PublicTimeGetAsLong'用於記錄輸入過程處理所花費的時間
PublicTimePutAsLong'用於記錄輸出過程處理所花費的時間
DimColVal()AsByte'用於存放從DIB輸入的像素值
DimColOut()AsByte'用於存放向DIB輸出的像素值
DimInPutHeiAsLong'用於記錄輸入圖像的高度
DimInPutWidAsLong'用於記錄輸入圖像的寬度
Dimbi24BitInfoAsBitMapInfo'定義BMP信息->
可以看出，我在輸入和輸出中使用了兩個不同的動態數組ColVal()和ColOut()，這麼做是有道理的，因為我們不只是為了輸入和輸出圖像，中間還要對像素進行處理。包括圖像縮放、色彩調整、銳化、柔化等等處理，使用兩個不同的數組來分別存放數據更有利於程序的實現。
有些性急的朋友說不定已經把程序貼到工程裡試用了，可是會發現根本不能輸出圖像。這是因為當你用DIBGET獲得的圖像還在ColVal()中呢，需要把它們放到ColOut()這個數組中去，DIBPUT這個過程才能起作用。
這裡再給出一個用於數組整體移動數據的過程：
->PublicSubCopyData(ByValWAsLong,ByValHAsLong)
DimLengthAsLong
DimIAsLong
DimLAsLong
I=Bits8
L=I-1
Length=(W 1&)*(H 1&)*I
ReDimColOut(L,W,H)
CopyMemoryColOut(0,0,0),ColVal(0,0,0),Length
Endsub->
API定義：
->PrivateDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(pDestAsAny,pSrcAsAny,ByValByteLenAsLong)->
這時，我們就可以來試一下效果了：
把你的顯示器調到32位色。
將前面的所有API和變量定義全部貼到一個新建的模塊裡
新建一個窗體，加兩個PICTURE控件：pictrue1,picture2一個按鈕command1
在pictrue1中加載一個圖片
在command1中寫如下代碼：
->subcommand1_click()
Withpicture1
.ScaleMode=3
.BorderStyle=0
DibGet.hdc,0,0,.scalewidth,.scaleheight
EndWith
CopyDataInPutHei,InPutWid
picture2.AutoRedraw=True
DibPutpicture2.hdc
picture2.refresh
endsub->
運行一下，按鈕按下，pictreu1中的圖片就立刻顯示到了picture2中。
這時，你可能會說，弄了這麼半天就貼個圖？用PaintPicture不是就可以了嗎？
不錯，如果只是要貼個圖，確實不用這麼麻煩，可是，我們後面要說的圖像處理部分將會用到前門得到的像素值。所以，這只是一個開始，我真正要講的東西還在後面呢。請大家繼續關注。->
