作者：吴斌

　　在VB中显示位图,通常都是通过各种控件实现的。通过控件显示的位图,或全部或局部,始终是以一个规则的矩形图像出现在屏幕上,无法做到只显示位图中某个不规则的局部图像,而使位图的其它部分具有透明性以露出其下原有的屏幕显示,即所谓“透明位图”,因此透明位图的实现只能另辟蹊径。下面,笔者将向大家介绍一种方法。

　　原理

　　其实,Windows中随处可见的图标就是一个透明位图的典型实例。
　　图标是由两个单独的位图组成的。第一个位图是由黑色（颜色位全为0）背景与彩色图标图案组成的,该位图将与当前屏幕显示通过异或（XOR）操作结合起来,故称其为XOR位图。第二个位图是由白色（颜色位全为1）背景与黑色（颜色位全为0）图标图案组成的,该位图将与当前屏幕显示通过与（AND）操作结合起来,故称其为AND位图。图标的显示是通过两个步骤完成的：

　　当前屏幕显示与AND位图通过AND操作结合起来；
　　当前屏幕显示与XOR位图通过XOR操作结合起来。

　　大家知道,1与任何数值AND操作的结果将维持原数值,而0与任何数值AND操作的结果则是0,因此在步骤1中,AND位图中白色（1）与屏幕显示经过AND操作后被原色彩屏蔽,而黑色（0）则将原色彩屏蔽。步骤1结束后,屏幕上将留下一个黑色的图标图案。在随后的步骤2中,由于0与任何数值异或的结果都将是原数值,因此,XOR位图与屏幕显示经过异或操作后,位图和屏幕中的黑色部分都将被各自对应的彩色部分屏蔽。步骤2结束后,一个形状不规则的图标图案就出现在屏幕上了。这就是图标显示的原理。

　　方法

　　首先,根据源位图和应用需求,制作出AND位图和XOR位图,然后,按照上述步骤,依次将AND位图和XOR位图与屏幕显示结合起来,便可实现透明位图了。
　　AND位图和XOR位图的制作,在许多图像处理软件中都可以轻而易举地完成,笔者不再详细描述。AND位图和XOR位图与屏幕显示的结合,可以通过像素迭加时的光栅操作完成,具体实现可以使用VB4中为Form和PictureBox新增的方法PaintPicture。该方法的功能是将一个图像文件的内容传送到Form或PictureBox的显示屏幕上,也就是将源图像中的像素与当前显示屏幕上对应的像素叠加在一起。PaintPicture的语法为：object.PaintPicturepicture,x1,y1,width1,height1,x2,y2,width2,height2,opcode。其中,object是调用方法的Form或PictureBox对象实例；picture指定源图像,该参数必须是Form或PictureBox控件的Picture属性；x1,y1指定目标对象中用于摆放被传送图像的矩形区域左上角的逻辑坐标点；width1,height1指定目标对象中用于摆放被传送图像的矩形区域的宽度和高度；x2,y2指定源图像中被传送的矩形区域左上角的逻辑坐标点；width2,height2指定源图像中被传送部分的宽度和高度；opcode指定传送过程中使用的光栅操作代码值,AND操作代码值为H8800C6,XOR操作代码值为H660046。

　　实例

　　下面,本文介绍一个透明位图的应用实例,实例演示一个卡通人物在窗口顶部循环地从左到右穿越窗口的动画。动画的播放采用PictureClip控件和Timer控件来实现,动画画面的显示则使用本文的透明位图技术。
　　新建一个VB项目,在Form1中加入一个Timer控件Timer1,两个PictureClip控件bmpXOR和bmpAND,将它们的Picture属性分别设置为XOR.BMP和AND.BMP,这两个位图就是透明位图所使用的XOR位图和AND位图,如右所示。
　　在Form的Generaldeclaration部分加入下列常量声明：

　　Const SRCAND As Long=＆H8800C6
　　Const SRCINVERT AsLong=＆H660046
　　Const StepLength = 10
　　Const AnimateSpeed = 100

　　项目代码如下：
　　Private Sub Form_Load（）
　　　Me.ScaleMode=3
　　　With bmpAND
　　　　.Cols=4
　　　　.Rows=2
　　　End With
　　　With bmpXOR
　　　　.Cols=4
　　　　.Rows=2
　 　　End With
　　　Timer1.Interval=AnimateSpeed
　　EndSub

　　Private Sub Timer1_Timer（）
　　　Static CurPic As Integer
　　　Static CurX As Single
　　　Me.Refresh
　　　If CurPic > bmpAND.Cols＊bmpAND.Rows-1 Then CurPic=0
　　　If CurX > Me.ScaleWidth Then CurX=0
　　　Me.PaintPicture bmpAND.GraphicCell（CurPic）,CurX,0,,,,,,,SRCAND
　　　Me.PaintPicture bmpXOR.GraphicCell（CurPic）,CurX,0,,,,,,,SRCINVERT
　　　CurPic=CurPic+1
　　　CurX=CurX+StepLength
　　End Sub

　　按F5运行,Form1中就会出现一个在窗口顶部从左到右循环地行走的卡通人物。人物行走的速度和步长可以通过常量AnimateSpeed和StepLength控制。为了检验透明位图的效果,可以为Form1设置各种背景。您会看到,使用透明位图技术显示的动画与各种背景都能自然地融合在一起,如同事先渲染生成的动画影片一样。这就是透明位图技术希望达到的目的。