放置“透明”的圖片

2019-11-18 17:38:16

字體：大中小

供稿：網(wǎng)友

在VB中，如果你試著把一只有鳥的圖片放到背景的一棵樹上，你就會(huì)發(fā)現(xiàn)樹會(huì)被鳥遮住一個(gè)矩形的區(qū)域（即鳥的圖片矩形）。我們可以通過(guò)以下方法使圖片上非鳥的其它部分變透明：我們可以利用一個(gè)WinAPI函數(shù)BitBlt對(duì)圖形進(jìn)行一系列的位操作來(lái)達(dá)到此目的。
函數(shù)聲明：
DeclareFunctionBitBltLib"gdi32"Alias"BitBlt"(ByValhDestDCAsLong,ByValxAsLong,ByValyAsLong,ByValnWidthAsLong,ByValnHeightAsLong,ByValhSrcDCAsLong,ByValxSrcAsLong,ByValySrcAsLong,ByValdwRopAsLong)AsLong
參數(shù)解釋：
目標(biāo)環(huán)境：hDestDC——目標(biāo)設(shè)備環(huán)境；x——左上角；y——頂端；nWidth——寬；nHeight——高源環(huán)境：hSrcDC——源設(shè)備環(huán)境；xSrc——源左上角；ySrc——源頂端；dwRop——位處理操作，如vbSrcAnd；vbSrcAnd；vbSrcCopy；vbSrcErase；vbSrcInvert等
（目標(biāo)環(huán)境或源環(huán)境只能是Picture,Form或PRinter對(duì)象。各單位為象素。）
進(jìn)行處理之前，我們需要對(duì)鳥的圖片進(jìn)行處理：先復(fù)制一份相同的圖形，將其應(yīng)該透明之處（鳥的背景）設(shè)置為黑色（設(shè)此圖為sPic），再將另一圖做以下處理：要復(fù)制的地方（鳥）設(shè)置為黑色，其余地方設(shè)置（鳥的背景）為白色（設(shè)此圖為Mask）。設(shè)樹的圖形為名dPic。
最后，請(qǐng)加入以下代碼：
R=BitBlt(dPic.hdc,0,0,sPic.Width,sPic.Height,Mask.hdc,0,0,vbScrCopy)
R=BitBlt(dPic.hdc,0,0,sPic.Width,sPic.Height,sPic.hdc,0,0,vbScrInvert)
后記：
1、VB中的PaintPicture方法提供類似功能，但速度不及此方法；
2、在此方法上稍微加入一些代碼，就不難實(shí)現(xiàn)動(dòng)畫的顯示。
3、VB例子中的CallDlls就使用此方法。->

上一篇：分割圖像的方法

下一篇：用VB捕捉屏幕圖象