要如何用"BITBLT"API函數來做出以下的圖形效果
============================================================
Private Sub Command1_Click()
For Y2 = 0 To Picture1.ScaleHeight - 1
For X2 = 0 To Picture1.ScaleWidth - 1

PicColor = Picture1.Point(X2, Y2) '取得圖像各點座標顏色
 BgColor = Picture2.Point(X2, Y2) '取得背景各點座標顏色

 PicR = PicColor And &HFF& '取得圖像RGB色
 PicG = (PicColor And &HFF00&) / &H100&
 PicB = (PicColor And &HFF0000) / &H10000

BgR = BgColor And &HFF& '取得背景RGB色
 BgG = (BgColor And &HFF00&) / &H100&
 BgB = (BgColor And &HFF0000) / &H10000
 
 Picture2.PSet (X2, Y2), RGB((PicR + BgR) - ((PicR * BgR) / 255), (PicG + BgG) - ((PicG * BgG) / 255), (PicB + BgB) - ((PicB * BgB) / 255))
Next X2, Y2
End Sub
============================================================
如果有的話,煩請打出範例來,謝謝^^~

全站熱搜

vbqa 發表在 痞客邦 留言(3) 人氣()