本文深入探讨了在Visual Basic 6.0环境下动态加载ActiveX控件的技术细节与应用策略，旨在帮助开发者更灵活、高效地使用ActiveX技术。
VB6.0动态加载ActiveX控件的实现方法
熟悉Visual Basic的朋友对使用ActiveX控件一定不会陌生，众多控件极大地方便了编程工作，但唯一的缺陷是不能在运行时动态加载这些控件，必须在设计阶段通过引用将它们放置到窗体上。然而，在VB6.0中已经可以解决这一问题，尽管帮助文档没有详细说明，并且缺少一些关键功能的描述。
以前版本的Visual Basic允许使用New关键字、CreateObject或GetObject语句从外部创建进程外服务对象。如果一个对象是可被创建的服务，则可以在Set语句中使用上述方法之一将对象引用赋予变量；如果是依赖于其他对象的对象，通常需要通过高层对象的方法来指定对象引用：
```vb
Dim xlApp1 As Excel.Application
Set xlApp1 = New Excel.Application
或
Dim xlApp As Object
Set xlApp = CreateObject(excel.application)
xlApp.Visible = True
```
这些语法可能会造成误导，认为动态加载ActiveX控件也使用同样的方法。然而，在尝试多次后发现这种方法并不能成功实现。
实际上，VB6.0通过扩展Controls集合的方式实现了动态加载ActiveX控件的功能。在迭代过程中，Controls集合可以列举出已加载的控件，并提供了Clear、Remove和Add等方法来操作这些控件。
为了动态添加一个名为MyButton的按钮到窗体上：
```vb
Dim oControl as Object 窗体级变量
Private Sub LoadControl()
Set oControl = Controls.Add(VB.CommandButton, MyButton)
oControl.Left = 10
oControl.Top = 10
oControl.Visible = True 显示控件
End Sub
```
虽然这种方法实现了控件的动态加载，但加载后的控件不能预先设计响应事件代码。为了编程时能够处理这些事件，可以使用VBControlExtender对象与EventInfo相结合来捕捉和处理ActiveX部件上的所有事件。
例如：
```vb
Dim WithEvents oControl As VBControlExtender 声明带事件的对象
Private Sub LoadControl()
Set oControl = Controls.Add(VB.CommandButton, MyButton)
oControl.Visible = True
End Sub
Private Sub oControl_ObjectEvent(Info As EventInfo)
Select Case Info.Name
Case Click Click事件处理代码
MsgBox 您按了MyButton!
Case Else 处理未知事件的代码
End Select
End Sub
```
这种方法不仅适用于微软提供的标准控件，也适用于自定义开发的ActiveX控件。例如，在一个本地网络监控系统中，可以使用动态加载技术来切换显示原理图和实物示意图。
通过这种方式实现动态加载ActiveX控件可以使应用程序更加灵活，并且可以根据需要只安装所需的组件，而不需要包含所有可能用到的功能模块。这使得整个应用系统的大小得以减小并提高了代码的重用性。
5星
