VBNET-运行时处理对象事件(AddHandler和RemoveHandler)

1. AddHandler用于在运行时将事件与事件处理程序相关联
   RemoveHandler用于移除事件与事件处理程序之间的关联
   Handles关键字用于定义过程时,指定它处理的特定事件
2. 签名式:
   

   AddHandler event, AddressOf eventhandler

   
   

   RemoveHandler event, AddressOf eventhandler

3. 代码演示
   
       
    1 Sub TestEvents()    '测试事件的过程
   
        2     Dim Obj As New Class1    ' Associate an event handler with an event.
   
        3     AddHandler Obj.Ev_Event, AddressOf EventHandler    ' 关联事件和其处理
   
        4     Obj.CauseSomeEvent()    ' 引发事件
   
        5     RemoveHandler Obj.Ev_Event, AddressOf EventHandler    ' 移除关联.
   
        6     Obj.CauseSomeEvent()    ' 引发事件
   
        7 End Sub
   
        8 
   
        9 Sub EventHandler()    ' 事件处理过程
   
       10     MsgBox("EventHandler caught event.")
   
       11 End Sub
   
       12 
   
       13 Public Class Class1    ' 包含事件的自定义类.
   
       14     Public Event Ev_Event()      'Event语句-自定义事件过程
   
       15     Sub CauseSomeEvent()        ' 激活事件的过程.
   
       16         RaiseEvent Ev_Event()     '用RaiseEvent语句激活事件
   
       17     End Sub
   
       18 End Class
   
       19 
   
       20