Question

vb 自定义控件，添加外部事件

例如，我自定义一个控件：contr1,contr1 内部添加事件好办：Event click()就可以了，然后在控件内部写这个事件的相应函数就可以了。

但是我要在一个窗体里，写好了一个函数aa(),当我单击这个控件时，调用窗体内的aa()，而不是控件里德单击事件;

这个窗体里实现：
sub contr1_click()
aa()
End sub
请问大家怎么办？

Answer 1

回调？

回调不是必要的，而且回调可以转换成事件。
你可能需要的是触发事件：RaiseEvent Click()
执行此语句后 你控件的Click就触发了 你可以在窗体中的 contr1_click 里写东西。

简单回调没有通用性；
有兼容性的回调很麻烦。

简单回调：
Dim f As Form
Set f = XXXXX '(Your Form)
Call f.aa()