Question

如何用VB6创建透明图象

Answer 1

透过前面的图象看到背景图象，称前面的图象为透明图象，我们见过很多程序和电视节目中都有使用透明图象，而且大家一定会为图象的透明而称奇。究竟透明图象是如何做出来的呢？下面我们将来探讨这种透明图象的制作方法。

　　创建透明图象的五个必须的步骤：

　　准备两个位图文件，一个作背景，一个是将要成为透明图象的源位图。

　　1、 取得源位图的长、宽数据，依此数据保存一块和源位图一样大小的背景位图，源位图将要在这块背景位图上绘制。通过用白色像素显示位图的透明区域，黑色像素显示位图的不透明区域，创建决定位图透明的单色掩码。

　　2、单色掩码像素与所用的背景位图进行二进制“与”（and）位操作，不透明的区域，背景显示黑色。

　　3、用第一步所做的单色掩码建立一个反向拷贝，再用这个反向拷贝与所用的源位图进行二进制“与”（and）位操作，源位图透明的区域将显示黑色

　　4、用第二步修改过的背景和第三步修改的源位图进行二进制“异或”（Xor）位操作，这时可以透过透明位图看到背景。

　　5、把结果位图复制给背景

　　应用实例：

　　创建包含一个 CommandButton 控件和两个PictureBox控件的 窗体Form1。创建一个模块（在 "工程”菜单中单击“添加模块”）。

　　给窗体增加下列控件，设置相关的属性值：

　　控件 Name Property Settings

　　-----------------------------------------------------------------

　　PictureBox pictSource Picture ="C:\Flower_Vine.bmp"

　　PictureBox pictDest Picture ="C:\Stones_Blue.bmp"

　　Command button Command1 Caption ="透明图象"

　　---- 将下面的代码粘贴到窗体的声明部分中，

　　---- Option Explicit ’’ 这段代码调用过程Transparent()复制源位图到目标（背景）picturebox控件， ’’ 并将其变成透明，使人们可以看到后面的背景图象。

　　Sub command1_Click()

　　Call Transparent(PictSource.Picture.Handle, PictDest,

　　10, 10, QBColor(15))

　　End Sub

　　---- 将下面的代码粘贴到模块的声明部分中，

　　Option Explicit

　　---- ’’ 由于要读取位图的基本信息，所以首先要定义一个BITMAP结构的变量，然后

　　---- ’’ 利用这一变量来接受位图的基本信息。

　　’’

　　Type Bitmap

　　Type As Long ’’ 位图类型

　　Width As Long ’’宽度

　　Height As Long ’’高度

　　WidthBytes As Long ’’多少二进制位构成一个存储单位

　　Planes As Integer ’’调色板数

　　BitsPixel As Integer ’’每一个Pixel所占用的二进制位数

　　Bits As Long ’’二进制位数据的起始位置