后期绑定事件

[ltp3]

有两个类 A和B，都有事件C

那么
Dim WithEvents D as A

private sub D_C()

end sub
没问题。
同样
Dim WithEvents D as B

private sub D_C()

end sub
也没问题。

现在我想 Dim D as Object
后期给D赋值，同时希望能响应事件 D_C

有办法吗？

如果能帮我解决这个问题，要多少分都可以。

[sunbo]

可能不行吧！
你既要同组件A联系，也要同组件B联系。
而且你用 Project->Reference引入

你在不同的的事件函数响应后，通知你的对象不行吗？

[ComeAlong]

MSDN有关于这种回调的例子

[ltp3]

TO :sunbo()

我的对象是动态添加的，可能是2个，也可能是200个。

TO:ComeAlong(ComeAlong)
我搜索过了，没找到。

[sunbo]

to tp3 ():
我知道，我谈的是按组件类别实现回调事件的。
你是可能是200个对象，组件类别可能也就这么几个。

需要通知的对象要做一个注册机制，
你在不同的的事件函数响应后，按注册表去通知你的对象

[ltp3]

TO :sunbo()

组件类别可能是200个
我的程序设计的目的是可以随时添加ACTIVEX组件，有点既插既用的味道。

[ltp3]

对于ACRIVEX控件，我已经可以实现这个功能了。但不能对一般的类实现。

[ltp3]

up