绑定控件事件

例如有一个自定义的点击按钮的处理函数(CustomClick)：

Private Sub CustomClick(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)  
      MsgBox("Hello")  
End Sub

 

 

将这个自定义函数绑定到特定的控件事件Button1.Click中，通常会用到的方法是：

AddHandler Button1.Click, AddressOf CustomClick

 

 

但有些特殊情况下，需要根据函数名，将控件事件跟函数绑定，那么使用到的方法如下：

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load   
      Dim mEventInfo As Reflection.EventInfo   
      mEventInfo = GetType(Button).GetEvent("Click")   
    
      Dim mMethodInfo As Reflection.MethodInfo   
      mMethodInfo = Me.GetType.GetMethod("CustomClick", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance)   
    
      Dim mClick As [Delegate]   
      mClick = [Delegate].CreateDelegate(mEventInfo.EventHandlerType, Me, mMethodInfo)   
    
      mEventInfo.AddEventHandler(Me.Button1,   mClick)   
End Sub

 

 

后者这种方法当遇到委托时，非常实用，例如：

Public sub DoClick(byval funDelegate as DelegateType)

      Dim mEventInfo As Reflection.EventInfo   
      mEventInfo = GetType(Button).GetEvent("Click")   
    
      Dim mMethodInfo As Reflection.MethodInfo   
      mMethodInfo = funDelegate .Method  
    
      Dim mClick As [Delegate]   
      mClick = [Delegate].CreateDelegate(mEventInfo.EventHandlerType, mMethodInfo)   
    
      mEventInfo.AddEventHandler(Me.Button1,   mClick)

End Sub