教你如何做控件

yingjie328

教你如何做控件*.ocx（很简单的一个例子）
说明，本控件没有任何实际的功能，但只告诉大家做控件的流程

一、 建立控件

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

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

　　第一步：建立一个容器

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

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

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

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

　　在用户控件窗体上画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控件接口向导"命令,可执行该菜单中的"外接程序管理器"命令，打开"外接程序管理器"对话框，在该对话框中双击"VB ActiveX控件接口向导"，然后单击"确定"按钮。

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

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

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

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

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

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

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

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

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

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

　　在Visual Basic中，每个ActiveX控件一般都带有一个属性页，用属性页可以方便地设置控件的属性。对于用户控件，也可以建立属性页。

　　1、 通过"属性页向导"来设计属性页的内容。

　　（1）使用户控件窗体处于活动状态。

　　（2）执行"外接程序"菜单中的"属性页向导"命令，打开"属性页向导"对话框。如果"外接程序"菜单中没有"属性页向导"命令,可执行该菜单中的"外接程序管理器"命令，打开"外接程序管理器"对话框，在该对话框中双击"VB 6属性页向导"，然后单击"确定"按钮。

　　（3）单击"下一步"按钮，打开"选择属性页"对话框

　　在该对话框中单击"添加"按钮，打开"属性页名称"对话框，可在此对话框中输入新增加的属性页名，然后单击"确定"按钮。

　　（4）单击"下一步"按钮，打开"添加属性"对话框。在该对话框的"可使用的属性页："列表框中选择"ropertyPage1"属性页，在"可用属性"列表框中选择要添加的几个属性，这些属性的排列顺序为：姓名、职务、单位、地址、电话。

　　（5）单击"下一步"按钮，打开"完成"对话框。

　　（6）单击"完成"按钮，将显示"属性页向导总结报告"，如果不想保存，可单击"关闭"按钮，属性页的建立操作结束。

　　激活工程组中的测试窗体，右击用户控件，在弹出的菜单中选择"属性"命令，即可打开新建立的属性页。属性页中的每个属性都有一个缺省值，用户可以在这个属性页上为控件设置新值。用"属性页向导"建立属性页后，将在属性页设计器窗体中添加代码。

　　四、 保存和使用用户控件

　　执行"文件"菜单中的"保存Usercontrol1"命令，把此用户控件保存为Card.ctl文件。

　　.ctl类型的控件只能在Visual Basic环境下使用，为了使建立的用户控件能在其它环境（如Visual C++、Visual J++等）中使用，必须把它变为ActiveX控件。具体操作：

　　执行"文件"菜单中的"生成*.ocx"命令（"*"代表当前此控件的默认名称），把此控件保存为Card.ocx。

　　为了在Visual Basic环境下使用此控件，需把生成的Card.ocx文件复制到Windows 98的System目录下