VB activeX控件开发（学习VB编程第82天ACTIVEX控件）

今天学习的是activex控件，ActiveX控件本质上是一段可重复使用的代码和数据。ActiveX控件是由Microsoft公司主导开发的一种新的编程技术,该技术的目的是让对象模型完全独立于编程语言。也就是说，通过任何一种编程语言编写的Activex控件，在其他编程语言中也可以方便地调用。例如，用Visual Basic编写的Activex控件在Visual C 中也可以调用。在一定程度上，用户可以将ActiveX技术看做是构建应用程序的组件,可以通过ActiveX控件给出的属性、方法及事件等接口来完成应用程序功能的设计。Activex控件在Visual Basic 6.0中可以很方便地加载，加载到工具箱中后即可如同使用内部控件一样使用ActiveX控件。

一、创建ActiveX控件的步骤

Visual Basic 6.0提供了用于创建ActiveX控件的向导。创建ActiveX控件的共有六个步骤：

第一步：创建一个“ActiveX控件”工程。

第二步：在窗体上设计ActiveX控件的外观。

第三步：为ActiveX控件编写代码。

第四步：定制ActiveX控件的属性、方法和事件。

第五步：生成ActiveX控件。

第六步：在系统中注册ActiveX控件。

案例：做一个activex数字时钟控件，以显示当前时间。

（一）第一步：启动Visual Basic 6.0，在弹出的“新建工程”对话框中选择Activex控件”。单击“确定”按钮，即可创建一个ActiveX控件工程。用户也可以通过选择“文件”→“新建工程”命令，来打开“新建工程”对话框。然后选择ActiveX控件，单击“确定”按钮完成ActiveX工程的创建。

（二）第二步：在创建完成ActiveX控件工程后，接下来应该根据需要来设计ActiveX控件的外观。此时，整个ActiveX控件工程中包含了以下三部分。一个名为“UserControl1”的UserControl对象、“工程窗口”及“UserControl1"的属性页。

（三）第三步：为ActiveX控件添加代码。首先获取系统时间，然后通过label控件的caption值将时间值引入控件中。在定时器的Timer事件中每隔一秒刷新显示一次时间。

Private Sub Timer1_Timer()

label1.Caption = Timer()

End Sub

（四）第四步：为ActiveX控件添加属性、方法和事件。Visual Basic 6.0中为控件添加属性、方法和事件可以有如下两种方式。方法一：通过“工程”→“添加用户控件”命令，选择“VB Activex控件界面向导”选项，借助于向导来添加属性、方法和事件，如图所示。用户只需按照提示进行，根据自己需要选择属性、方法和事件，即可完成添加任务。

方法二：通过手工添加控件的属性、方法和事件。选择“工具”→“添加过程”命令，在弹出的“添加过程"对话框中根据需要添加代码框架。然后通过手工编写代码的方式添加控件的属性、方法和事件。下面主要介绍手工为控件添加属性、方法和事件的方法。步骤如下。

（五）第五、六步：生成ActiveX控件。数字时钟的ActiveX控件设计后，选择“文件”一“生成工程1.ocx”命令，如图所示，即可生成“工程1.ocx”文件。在生成ocx格式文件的同时，VisualBasic 6.0会自动注册该控件。

二、使用ActiveX控件

（一）在控件工具栏中单击右键，选择部件，然后在浏览中添加我们刚刚创建的工程1.ocx。

（二）新建窗体中直接将控件拖动到窗体中即可应用。效果详见视频。

,