Vb中如何自定义事件？

事件的设计是基于消息传递的，目的就是为了隐藏自身代码，暴露部分功能给其他的对象，你说的的这种不需要暴露给其他对象的事件完全没有必要设计成事件，只要自己把执行代码放到字符输入函数中自己进行判断处理就行了（可以用一个函数），因为你不希望别的对象处理你的字符。

Sub 事件名(byval 传入参数 as 类型)

你要做的事情。

End Sub

别的地方直接调用 Call 事件名(参数)

如果不用传入参数直接Sub 事件名(),调用 Call 事件名

Sub MyMsgbox(Byval Msg as String)

MsgBox Msg, vbInformation, "这是一个测试"

End Sub

Private Sub Command1_Click()

Call MyMsgbox("哈哈。这里是信息。给我分哦")

End Sub

回调？

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

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

Click()

执行此语句后

你控件的Click就触发了

你可以在窗体中的

contr1_click

里写东西。

简单回调没有通用性；

有兼容性的回调很麻烦。

简单回调：

Dim

f

As

Form

Set

f

=

XXXXX

'(Your

Form)

Call

f.aa()

---