【转】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