.Net 自定义事件

1.定义事件类：

Public Class clsEvent
Public Event MyEvent1()
Public Event MyEvent2()

Public Sub StartMyEvent1()
RaiseEvent MyEvent1()
End Sub

Public Sub StartMyEvent2()
RaiseEvent MyEvent2()
End Sub

End Class

2.实例化事件对象
Public WithEvents mEventObj As New clsEvent
3.事件响应

Private Sub On_Event1() Handles mEventObj.MyEvent1
Console.WriteLine("Event1")
End Sub4.触发事件
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
mEventObj.StartMyEvent1()
End Sub