012事件处理方式二

Module Module1
    Public Class EventClass
        '1.声明事件
        Public Event ev_event()
        '2.方法中引发事件
        Sub CauseSomeEvent()
            RaiseEvent ev_event()
        End Sub
    End Class

    Sub Main()
        Dim obj As New EventClass

        '4.关联事件与事件处理程序
        AddHandler obj.ev_event, AddressOf EventHandler

        '5.运行了引发事件的对象方法
        obj.CauseSomeEvent()

        Console.Read()
        Console.WriteLine("删除事件与事件处理程序的关联后")

        RemoveHandler obj.ev_event, AddressOf EventHandler
        obj.CauseSomeEvent() '不再运行事件处理程序


    End Sub
    '3.事件处理
    Public Sub EventHandler()
        Console.WriteLine("处理事件")
    End Sub
End Module