Vb6.0 如何将函数/子过程作为事件处理程序绑定到外部事件？

Question

我需要构建一个 VB6.0 ocx，它将用作某些外部 VB6.0 应用程序的插件。

此 ocx 包含几个子过程，这些子过程应该用作某些外部事件（ocx 外部）的事件处理程序。

问题是，使用这个 ocx 的用户只会调用我的 ocx 子程序一次且仅一次。问题是，如何在一次初始化时将所有子过程/函数绑定到各自的外部事件，以便在事件触发时调用我的程序？

我设法在外部应用程序本身中执行此操作，但当我将这些代码移植到 OCX 并将其用作外部 vb 程序中的插件时，

可以说这是外部 vb 应用程序中的原始事件处理程序：

   Private Sub someExternalControl1_someEvent(someParameter as boolean)
         MsgBox ("The original event handler")
   End Sub

并且在该 vb 应用程序中，如果我这样做：

 dim withevents aaa as someExternalControl
 set aaa = someExternalControl1

然后，每次事件触发时，都会调用此自定义事件处理程序以及如上所述的原始事件处理程序，

Private Sub aaa_someEvent(someParameter as boolean)
         MsgBox ("The custom event handler")
   End Sub

但当我将其放入 OCX 中时，我无法执行相同的操作。因为我做不到：

Public WithEvents ocxMyPlugin As VBControlExtender
...

Set ocxMyPlugin = Controls.Add("myprogID.usercontrolname", "somename", Me)
Set ocxMyPlugin.object.someExternalControl2 = someExternalControl   ' this will raise error

Answer 1

虽然我从未处理过这种情况，但我记得有关动态添加控件到表单时使用的 VBControlExtender 对象的一些信息。

四处寻找，我发现了这个 文章。然后是关于 VBControlExtender 的 MSDN 文档。

特别是您想查看 ObjectEvent。

了解没有像在 .NET 中那样动态地将方法分配给事件的好方法。 VB6 通过使用 WithEvents 关键字确定变量的大小来处理事件。

然而它是一个变量。因此，虽然您无法更改方法，但您也可以更改变量指向的对象。

如果

Dim WithEvents X as SomeControl
Dim Y as New SomeControl
Dim Z as New SomeControl

Private Sub X_MyEvent(ByVal MyParm as Variant)

'Do Something like display the control name

End if

Public Sub TestY
   Set X = Y
End Sub

Public Sub TestZ
   Set X = Z
End Sub

您在 TestY 之后激活事件，则 X_MyEvent 将处理控件 Y 的事件，如果您在 TestZ 之后激活事件，则 X_MyEvent 将处理控件 Z 的事件。

使用 VBControlExtender，您可以一般处理不同的控件。如果您实例化同一类型的多个控件，那么您需要做很多工作。您不能将 withevent 与数组一起使用。在这种情况下，我将创建一个包含事件的类来帮助我处理同一类型的多个控件。

Answer 2

我可能需要更多细节来帮助。 ocxMyPlugin.object.someExternalControl2 的类型是什么。如果目标应用程序不知道它，您将遇到有关后期绑定的问题。但是，您可以在第三个（或第四个项目）上创建一个包装器或接口，这可能会解决您的问题。发布您的设计以及您想要实现的目标非常重要。可能还有其他方法可以替代。