VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB制作一个通信卡片ActiveX控件
发表评论(0)作者:何月梅, 平台:VB6.0+Win98, 阅读:11487, 日期:2003-07-18
 一、 建立控件

  建立的"通信卡片"控件包括:姓名、职务、单位、地址和电话,如图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控件接口向导"为用户控件添加属性的操作过程。在完成上述操作后,该"向导"将为用户控件自动生成代码。
  三、 建立属性页

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

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

  (1)使用户控件窗体处于活动状态。

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

  (3)单击"下一步"按钮,打开"选择属性页"对话框,如图3.2所示。


 图3.1                图3.2

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


 图3.3

  (4)单击"下一步"按钮,打开"添加属性"对话框,如图3.4所示。在该对话框的"可使用的属性页:"列表框中选择"PropertyPage1"属性页,在"可用属性"列表框中选择要添加的几个属性,这些属性的排列顺序为:姓名、职务、单位、地址、电话。

  (5)单击"下一步"按钮,打开"完成"对话框。如图3.5所示。

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


 图3.4                图3.5

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

  四、 保存和使用用户控件

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

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

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

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