一直以来,只知道使用类、对象、事件,就是没有试过自定义类的事件,通过查找了很多资料后才得到以下结论,在这里做一个笔记以后需要时再使用:
假设有类FxDraw
1.新建一个事件,如
Public Event FxEvents()
2.再建一个方法,该方法用于静态绑定和触发事件
如:
Sub FxData(varThis)
if varThis=0 then RaiseEvent FxEvents()
end sub
3.也就是在实例中调用FxData(0)时会触发FxEvents()事件
4.FxEvents的事件过程以以下形式写
Private WithEvents ddd As FxDraw
'这行很重要,不然事件没有办法被触发
Dim ddd=new FxDraw
'新建一个类的实例
Private Sub ddd_FxEvents()
Msgbox "触发了该事件!"
end sub
所以在其它代码中只要执行到FxData(0)就会触发该事件。
但是,我想能不能使用其它外部条件激活事件呢?可能只能用系统的事件来中转了。。。