想快速地對指定圖片或區域進行濾光處理，常見的方法取出圖片數據，逐像素與指定濾光色進行and運算，很麻煩。還見過網上流傳的有用point或getpixel取點運算的，其低速可想而知。
其實利用bitblt的位運算，可高速完成這種操作，下面這個函數比數組運算方法可快10倍，比point或getpixel估計會快上千倍。
private type rect
left as long
top as long
right as long
bottom as long
end type
private declare function deleteobject lib "gdi32" (byval hobject as long) as long
private declare function createsolidbrush lib "gdi32.dll" (byval crcolor as long) as long
private declare function fillrect lib "user32.dll" (byval hdc as long, lprect as rect, byval hbrush as long) as long
private declare function bitblt lib "gdi32" (byval hdestdc as long, byval x as long, byval y as long, byval nwidth as long, byval nheight as long, byval hsrcdc as long, byval xsrc as long, byval ysrc as long, byval dwrop as long) as long
public sub filterrgb(dhdc as long, x as long, y as long, w as long, h as long, optional tc as long = &hffff00)
dim tmphdc as memhdc, rc as rect, hbrush as long
tmphdc = newmyhdc(dhdc, w, h) '建立一個內存位圖
rc.right = w
rc.bottom = h
hbrush = createsolidbrush(tc)
fillrect tmphdc.hdc, rc, hbrush '用濾光色填充圖片,產生一個純色圖片
deleteobject hbrush
bitblt dhdc, x, y, w, h, tmphdc.hdc, 0, 0, vbsrcand '繪入目標，并與目標進行and運算，達到濾光效果
tmphdc = delmyhdc(tmphdc)
end sub
本篇中的公用函數newmyhdc、delmyhdc及相關結構與api聲明，可在以下文章中找到
http://blog.csdn.net/homezj/archive/2005/04/14/348001.aspx
