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