透明方式叠加图象
透明叠加方式是图象处理中常用的一种处理方式，在这种处理方式中，一幅图片叠加到另
一幅图片上，但是这幅图象不是完全将原来的图象覆盖，而是能够部分的透过叠加的图象显示
出来，下面我就介绍如何在VB中编程实现这样的功能。
首先在建立两个大小相等的图象文件，将它们保存成BMP文件，VB5以上的版本支
持JPEG显示，也可以保存为Jpg文件。在Form中加入两个PictureBox控件，将它们的大小设置成
同图象文件相同的大小。注意这两个PictureBox控件不要相互重叠，也不要和Form中的其它控件
产生重叠。将两幅图象分别加入到两个PictureBox控件中。然后在Form中加入一个CommandButton
控件。最后在Form的代码窗口中加入以下代码：
Private Type LOGBRUSH
lbStyle As Long
lbColor As Long
lbHatch As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal _
hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) _
As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc _
As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, _
ByVal hObject As Long) As Long
Private Declare Function FillRect Lib "user32" (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
Private Declare Function CreateBrushIndirect Lib "gdi32" (lpLogBrush _
As LOGBRUSH) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Const SRCPAINT = &HEE0086
Const SRCAND = &H8800C6
Const BS_SOLID = 0
Const gColor = &HFFFFFF
Private Sub Command1_Click()
Dim pDstDC As Long
Dim dcCompatible As Long
Dim pBitmapOld As Long
Dim bm As Long
Dim rectTemp As RECT
Dim lBrush As Long
Dim tLog As LOGBRUSH
dcCompatible = CreateCompatibleDC(Picture1.hdc)
bm = CreateCompatibleBitmap(Picture1.hdc, Picture1.Width \ 15, _
Picture1.Height \ 15)
pBitmapOld = SelectObject(dcCompatible, bm)
rectTemp.Left = 0: rectTemp.Top = 0
rectTemp.Right = Picture1.Width \ 15: rectTemp.Bottom = _
Picture1.Height \ 15
tLog.lbColor = gColor
tLog.lbStyle = BS_SOLID
tLog.lbHatch = 0
lBrush = CreateBrushIndirect(tLog)
FillRect dcCompatible, rectTemp, lBrush
BitBlt Picture1.hdc, 0, 0, Picture1.Width \ 15, _
Picture1.Height \ 15, dcCompatible, 0, 0, SRCAND
SelectObject dcCompatible, pBitmapOld
BitBlt Picture1.hdc, 0, 0, Picture1.Width \ 15, _
Picture1.Height \ 15, Picture2.hdc, 0, 0, SRCPAINT
DeleteDC dcCompatible
End Sub
运行程序，点击Command1，你就可以看到Picture2上的图象叠加到了Picture1上面了。改变上面
源程序中的 Const gColor = &HFFFFFF 一句中的gColor的值（在0到&HFFFFFFFF间变动），就可以
使图象的叠加产生不同的透明效果。
以上程序在Win98、VB6.0下运行通过。
