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

回调？

回调不是必要的，而且回调可以转换成事件。

你可能需要的是触发事件：RaiseEvent

Click()

执行此语句后

你控件的Click就触发了

你可以在窗体中的

contr1_click

里写东西。

简单回调没有通用性；

有兼容性的回调很麻烦。

简单回调：

Dim

f

As

Form

Set

f

=

XXXXX

'(Your

Form)

Call

f.aa()

’使用 select case 编程控件的事件。

select case info.name

case "click"

’这里处理 click 事件。

’现在显示其他的 case

case else ’未知事件

’这里处理未知事件。

end selectend sub 注意：不能把一个固有的控件指定给这个 vbcontrolextender 变量任何这种试图将引起类型不匹配错误。

但是，您也可以通过使用 withevents 关键字声明一个对象变量，并且设置该方法返回的引用为该变量，从而编程一个动态添加控件的事件，如下所示。

option explicit

’声明对象变量为 commandbutton 。

private withevents cmdobject as commandbutton

private sub form_load()

set cmdobject = form1.controls.add("vb.commandbutton", "cmdone")

cmdobject.visible = true

---