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控件接口向导"为用户控件添加属性。操作如下：