VB制作一个通信卡片ActiveX控件

一、 建立控件

　　建立的"通信卡片"控件包括：姓名、职务、单位、地址和电话，如图1.1所示。

　　具体操作按以下步骤进行：

　　第一步：建立一个容器

　　启动Visual Basic 6.0，在新建工程对话框中选择"标准EXE"，单击"确定"按钮，建立一个启动过程，作为用户控件的容器。窗体的Caption属性设置为"通信卡片测试"。

　　第二步：增加一个工程（用户控件工程）

　　执行"文件"菜单中的"添加工程"命令，在"添加工程"对话框中选择"ActiveX 控件"图标，然后单击"打开"按钮。此时程序中加入一个新的工程，并把一个新控件加入工具箱中。在工具箱中该控件的图标呈灰色显示，表明当前还不能使用。

 
　　图1.1

　　第三步：设计控件的可视界面

　　在用户控件窗体上画5个标签、一个图像框、一个直线和一个形状。在图像框中加入一个图标或位图，直线的BorderWidth属性设置为2。Label1的FontSize属性值为18，Label2的FontSize属性值为10，Label3、Label4、Label5的FontSize属性值都为12；这五个标签的Alignment属性为2；另外设置Label1的FontName为"隶书"，Label1的Caption属性为"张 风 绪"，Label2的Caption属性为"销售部经理"，Label3的Caption属性为"中国长城技术开发总公司"，Label4的Caption属性为"地址：北京市海淀区中关村路80586号"， Label5的Caption属性为"电话：（010）62585432"。

　　二、 添加属性

　　上面方法建立的控件只能建立一张通信卡片，为了用该控件建立内容不同的通信卡片，必须为控件增加必要的属性，通过这些属性建立不同的卡片。这里通过"ActiveX控件接口向导"为用户控件添加属性。操作如下：

　　1、 执行"外接程序"菜单中的"ActiveX控件接口向导"命令，打开"ActiveX控件接口向导"对话框，如图2.1所示。如果"外接程序"菜单中没有"ActiveX控件接口向导"命令,可执行该菜单中的"外接程序管理器"命令，打开"外接程序管理器"对话框，如图2.2所示，在该对话框中双击"VB ActiveX控件接口向导"，然后单击"确定"按钮。


　　图2.1


　　图2.2

　　单击"下一步"按钮，显示"选定接口成员"对话框，如图2.3所示。用">"或"<"按钮可以把选择的成员（属性、方法和事件）从一个列表框移到另一个列表框，用"<<"或">>"按钮可把一个列表框中的全部成员移到另一个列表框。对于本控件，不需要选择任何属性，可通过"<<"按钮将"选定名称"列表框清除。


　　图2.3　                                                                     图2.4

　　2、 单击"下一步"按钮，显示"创建自定义接口成员"对话框，如图2.4所示。单击"新建"按钮，将打开"添加自定义成员"对话框，如图2.5所示。在该对话框中的"名称"栏中输入成员名称（例如"姓名"），在"类型"部分选择"属性"，然后单击"确定"按钮，即为用户控件建立一个属性。重复上述操作，依次为控件添加"职务"、"单位"、"地址"、"电话"几个属性。添加后的对话框如图2.6所示。


   　 图2.5

　　3、 单击"下一步"按钮，显示"设置映射"对话框，如图2.7所示。

　　（1）在"公用成员"列表框中选择"姓名"。

　　（2）在"控件"的下拉列表中选择"Label1"。　　

　　（3）在"成员"的下拉列表中选择"Caption"。

　　重复上述操作，分别把"职务"、"单位"、"地址"、"电话"映射到Label2、Label3、Label4、Label5，在"成员"的下拉列表中均选择"Caption"。


　　图2.6　　                                                    图2.7

　　4、 单击"下一步"按钮，显示"已完成"对话框，如图2.8所示

　　如果想查看上述操作的总结报告，可选择"查看总结报告"复选框。单击"完成"按钮，将显示"ActiveX控件接口向导总结"对话框，如图2.9所示。如想保存该对话框的内容，可单击"保存"按钮，否则单击"关闭"按钮，关闭该对话框。


　　图2.8                                                 　　图2.9

　　以上是用"ActiveX控件接口向导"为用户控件添加属性的操作过程。在完成上述操作后，该"向导"将为用户控件自动生成代码。