具体操作按以下步骤进行:
第一步:建立一个容器
启动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控件接口向导"为用户控件添加属性的操作过程。在完成上述操作后,该"向导"将为用户控件自动生成代码。