VB6.0动态加载ActiveX控件漫谈.pdfVIP

熟识VB的挚友对运用ActiveX控件确定不会生疏，众多控件极大地便利了编程，但唯

一的缺陷是不能动态加载控件，必需在设计时通过引用，将控件放置在窗体上。VB6.0已能

够解决该问题，只是帮助中没有明确说明，并且没有描述到一些关键功能，由于以前的版本

中可以动态创建进程外服务：假如对象是外部可创建的，可在Set语句中用New关键字、

CreateObject或GetObject从部件外面将对象引用给予变量。假如对象是从属对象，则需运

用高层对象的方法，在Set语句中指定一个对象引用：

DimxlApp1AsExcel.Application

SetxlApp1=NewExcel.Application

或

DimxlAppAsObject定义存放引用对象的变量。

SetxlApp=CreateObject(excel.application)

xlApp.Visible=True

这些语法很简单造成误导，以为动态加载ActiveX控件也是此方法，可能有挚友也象我一样

利用CreateObject尝试了多数次，却无功而返，不知微软公司是出于何种考虑，动态加载

ActiveX控件是扩展控件集合的方式实现，通过实际摸索，最终就如何实现动态ActiveX控

件找出了一条切实可行的方法，下面以一个具体的实例来具体说明。

一、ActiveX控件

ActiveX控件是VisualBasic工具箱的扩充部分。运用ActiveX控件的方法与运用其它标

准内装的控件，如CheckBox控件，完全一样。在程序中加入ActiveX控件后，它将成为

开发和运行环境的一部分，并为应用程序供应新的功能。

ActiveX部件通过客户端/服务器关系与应用程序—及与部件相互之间—交互作用。客户

端是运用部件功能的应用程序代码或部件。服务器是部件及其关联的对象。例如，假设应用

程序运用ActiveX控件来供应一个标准的雇员窗体，供公司的多种应用程序运用。供应雇

员窗体的ActiveX控件就是服务器，运用这个控件的应用程序就是服务器的客户端。

二、加载方法

VB6.0中对Controls集合进行了扩展，以前版本中Controls集合在窗体上列举出已加载的

控件，这在迭代过程中是很有用的。Controls集合标识一个叫做Controls的内在窗体级变

量。假如忽视可选的object所在处的整数，则关键字Controls必需包括在内。我们通常在

窗口中运用如下代码：

Text1.Text=Hello,world

其实也可以运用如下代码达到同一目的：

Controls(1).Text=Hello,world

在VB6.0中除了原来的Clear、Remove方法外(很惊奇，为什么微软在VB5.0中只供应这两

种方法，而没有供应Add方法，因为没有Add，这两种方法也就没什么用处)，增加了Add

方法，该方法就是用于动态加载控件的：

Controls.Add(progidasString,NameasString);

progid：ActiveX部件的ProgID，如：VB.CheckBox；

Name：ActiveX部件加载后的名称，如：MyCheckBox；

若要在窗体上添加一个名为MyButton的按钮，可以运用：

dimoControlasObject窗体级变量

留意：这里声明为Object对象类型

PrivateSubLoadControl()

SetoControl=Controls.Add

(VB.CommandButton,MyButton)

oControl.Left=10

oControl.Top=10

oControl.Visible=True使控件可见

EndSub

这是VB6.0的标准语法，它在例程中也是如此演示的，不过该方法虽然现实了控件的动态

加载，按钮显示在窗体上，可以象一般按钮一样按下去，但加载的控件不能预先设计响应事

务代码，如：事务SubMyButton_Click()将是