📄 ba7.htm
字号:
<HTML>
<HEAD>
<TITLE>自制透明ActiveX控件 </TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="235">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="3">
<div align="center"> <strong><big><font class="12v">自制透明ActiveX控件</font>
</big></strong></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="247">
<div align="left">
<p align="center"><big> </big></p>
<p><br>
在很多的图形图像处理软件中，我们很容易使一幅图像透明。而在Visual
Basic6.0中我们要想使一幅位图部分透明（如人物的背景），按常规方法很难实现。下面介绍一种简单方法：自制一个ActiveX控件，能够使一幅位图任意需透明的地方透明。各位感兴趣的VB初级看官还可了解ActiveX控件的制作过程。<br>
<br>
举个例子，现有这样一幅照片要放到窗体上来美化你的第N个小程序，可我只要人物不要背景（如图1）。<br>
<br>
<img src="../pic/ll/01201t01.jpg" tppabs="http://www.pcbyte.net/program/01201t01.jpg" width="139" height="180">
<br>
图1<br>
<br>
<strong><br>
一、 图像处理。<br>
<br>
</strong><br>
先用图形软件（如PhotoShop）打开源文件“lola.jpg”，选定在VB中要透明掉的地方（背景），然后“Fill”上纯黑色。用“反选”命令反选区域，涂上纯白色，做成一张美丽的剪影(如图2)。另存为“lola1.jpg”文件以备用。这种雕虫小技可不要说不会啊！<br>
<br>
<img src="../pic/ll/01201t02.jpg" tppabs="http://www.pcbyte.net/program/01201t02.jpg" width="135" height="180">
<br>
图2<br>
<br>
<strong><br>
二、进入Visual Basic，新工程选“ActiveX控件”。<br>
<br>
</strong><br>
出现UserControl对象,这个UserControl就是你设计控件界面的舞台,而且它提供了几乎所有标准窗体的方法，在上面也可以放置现有的控件来帮助你建立自定义ActiveX控件。<br>
<br>
<strong><br>
三、设定控件窗体属性。<br>
<br>
</strong><br>
这是关键一步，成败在此一举。“Name”属性设为“trans”,“Backstyle”属性设为“透明”；“Maskcolor”属性设为纯黑色；“Maskpicture”属性设为“lola1.jpg”(那张剪影)。<br>
<br>
<strong><br>
四、用“ActiveX控件界面向导”设计控件的接口(属性、方法和事件)。<br>
<br>
</strong><br>
具体如下：<br>
<br>
1、 打开ActiveX控件向导。<br>
<br>
从VB菜单上选“外接程序管理器”命令，弹出窗口。选定“ VB6 ActiveXCtl inteface Wizard”，并选中“加载/卸载”选项，点“确定”钮，然后在菜单中选刚加载的程序。弹出一个说明窗口，“Next”就行了。<br>
<br>
2、 选择控件的接口元素(如图3)。<br>
<br>
<img src="../pic/ll/01201t03.jpg" tppabs="http://www.pcbyte.net/program/01201t03.jpg" width="400" height="375">
<br>
图3<br>
<br>
从左边窗口找到“Picture”，点“〉”加入到右边窗口中。点“Next”继续。<br>
<br>
3、 建立自定义接口元素。<br>
<br>
加入你的控件特有的自定义属性、方法和事件。我们今天没有！“Next”继续。<br>
<br>
4、设置元素映射。<br>
<br>
将除自定义属性和事件以外的所有成员映射到用户控件(UserControl)上(如图4)。单击“下一步”。设置自定义元素的属性或改变某些元素的缺省属性。当然如果没有自定义就可跳过这一步。<br>
<br>
<img src="../pic/ll/01201t04.jpg" tppabs="http://www.pcbyte.net/program/01201t04.jpg" width="400" height="308">
<br>
图4<br>
<br>
5、 完成。<br>
<br>
点击完成后就可查看它的总结报告了。<br>
<br>
<strong><br>
五、生成OCX与测试。<br>
<br>
</strong><br>
先保存一下工程项目，然后用菜单“文件/生成工程.ocx”命令生成一个可发布的ActiveX控件。接下来让我们来激动激动：新建一标准EXE工程，用菜单“工程/部件”
命令来添加ActiveX控件，点击“浏览”按钮，找到你刚才生成的trans.ocx，“确定”，回到主界面，双击它，窗体上就出现了你自己的控件，哦...有点不一样，把它的Picture属性设置成“Lola.jpg”(如图5)——多可爱的劳拉!(自我陶醉一番。)<br>
<br>
<img src="../pic/ll/01201t05.jpg" tppabs="http://www.pcbyte.net/program/01201t05.jpg" width="128" height="180">
<br>
图5<br>
<br>
需要说明的是，在生成TRANS.OCX时，Visual Basic会把它登记到系统注册表中。而在别的计算机上要使用该控件也需要注册。注册方法如下：找到Windows\system目录下的Regsvr32实用程序，键入命令“regsvr32
trans.ocx” 即可。要删除的话可用“/U”参数。</font><font class="12v" size="-1" face="宋体"><strong></strong></font>
<p align="center"> </p>
</div>
</td>
</tr>
</center>
<tr>
<td width="100%" class="unnamed1">
<p align=right><a href="ba6.htm">（上一页）</a>---<a href="ba8.htm">（下一页）</a></p>
</td>
</tr>
<tr>
<td width="100%" class="unnamed1">
</div>
</td>
</tr>
<!--msnavigation--></tbody>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -