.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 Sub

4.觸發事件

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        mEventObj.StartMyEvent1()
    End Sub

版權聲明：本文爲博主原創文章，未經博主容許不得轉載。