HOW TO:以事件名称与方法名称为参数的事件关联

Author:水如烟

使用代码示例:

Public Class Form1

    Private Sub box1TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Send(Me.TextBox1.Text)
    End Sub

    Private Sub Send(ByVal s As String)
        TestClass.Receive(s)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Common.AddEventHandler("TextChanged", Me.TextBox1, "box1TextChanged", Me)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Common.RemoveEventHandler("TextChanged", Me.TextBox1, "box1TextChanged", Me)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Common.AddEventHandler("MyEvent", GetType(TestClass), "ShowMessage", GetType(TestClass))
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Common.RemoveEventHandler("MyEvent", GetType(TestClass), "ShowMessage", GetType(TestClass))
    End Sub

End Class

类:

Imports System.Reflection
Namespace uReflection
    Public Class Common
        Private Sub New()
        End Sub
        ''' <summary>
        ''' 添加事件绑定
        ''' </summary>
        ''' <param name="eventName">事件名称</param>
        ''' <param name="target">事件所在实例</param>
        ''' <param name="methodName">方法名称</param>
        ''' <param name="instance">方法所在实例</param>
        ''' <remarks></remarks>
        Public Shared Sub AddEventHandler(ByVal eventName As String, ByVal target As Object, ByVal methodName As String, ByVal instance As Object)
            Dim mBinding As Reflection.BindingFlags = Reflection.BindingFlags.Instance Or Reflection.BindingFlags.Public Or Reflection.BindingFlags.NonPublic Or BindingFlags.Static

            '取事件信息
            Dim mEventInfo As Reflection.EventInfo = target.GetType.GetEvent(eventName, mBinding)
            '取方法信息
            Dim mMethodInfo As Reflection.MethodInfo = instance.GetType.GetMethod(methodName, mBinding)

            Dim d As [Delegate]
            If mMethodInfo.IsStatic Then
                '静态方法的委托申请
                d = [Delegate].CreateDelegate(mEventInfo.EventHandlerType, Nothing, mMethodInfo)
            Else
                '实例方法的委托申请
                d = [Delegate].CreateDelegate(mEventInfo.EventHandlerType, instance, mMethodInfo)
            End If

            '移除
            mEventInfo.AddEventHandler(target, d)
        End Sub

        ''' <summary>
        ''' 添加事件绑定
        ''' </summary>
        ''' <param name="eventName">事件名称</param>
        ''' <param name="target">事件所在实例</param>
        ''' <param name="methodName">方法名称</param>
        ''' <param name="instance">方法所在静态类</param>
        ''' <remarks></remarks>
        Public Shared Sub AddEventHandler(ByVal eventName As String, ByVal target As Object, ByVal methodName As String, ByVal instance As Type)
            Dim mBinding As Reflection.BindingFlags = Reflection.BindingFlags.Instance Or Reflection.BindingFlags.Public Or Reflection.BindingFlags.NonPublic Or BindingFlags.Static

            Dim mEventInfo As Reflection.EventInfo = target.GetType.GetEvent(eventName, mBinding)
            Dim mMethodInfo As Reflection.MethodInfo = instance.GetMethod(methodName, mBinding)

            Dim d As [Delegate]
            d = [Delegate].CreateDelegate(mEventInfo.EventHandlerType, Nothing, mMethodInfo)

            mEventInfo.AddEventHandler(target, d)
        End Sub

        ''' <summary>
        ''' 添加事件绑定
        ''' </summary>
        ''' <param name="eventName">事件名称</param>
        ''' <param name="target">事件所在静态类</param>
        ''' <param name="methodName">方法名称</param>
        ''' <param name="instance">方法所在实例</param>
        ''' <remarks></remarks>
        Public Shared Sub AddEventHandler(ByVal eventName As String, ByVal target As Type, ByVal methodName As String, ByVal instance As Object)
            Dim mBinding As Reflection.BindingFlags = Reflection.BindingFlags.Instance Or Reflection.BindingFlags.Public Or Reflection.BindingFlags.NonPublic Or BindingFlags.Static

            Dim mEventInfo As Reflection.EventInfo = target.GetEvent(eventName, mBinding)
            Dim mMethodInfo As Reflection.MethodInfo = instance.GetType.GetMethod(methodName, mBinding)

            Dim d As [Delegate]
            If mMethodInfo.IsStatic Then
                d = [Delegate].CreateDelegate(mEventInfo.EventHandlerType, Nothing, mMethodInfo)
            Else
                d = [Delegate].CreateDelegate(mEventInfo.EventHandlerType, instance, mMethodInfo)
            End If

            mEventInfo.AddEventHandler(target, d)
        End Sub

        ''' <summary>
        ''' 添加事件绑定
        ''' </summary>
        ''' <param name="eventName">事件名称</param>
        ''' <param name="target">事件所在静态类</param>
        ''' <param name="methodName">方法名称</param>
        ''' <param name="instance">方法所在静态类</param>
        ''' <remarks></remarks>
        Public Shared Sub AddEventHandler(ByVal eventName As String, ByVal target As Type, ByVal methodName As String, ByVal instance As Type)
            Dim mBinding As Reflection.BindingFlags = Reflection.BindingFlags.Instance Or Reflection.BindingFlags.Public Or Reflection.BindingFlags.NonPublic Or BindingFlags.Static

            Dim mEventInfo As Reflection.EventInfo = target.GetEvent(eventName, mBinding)
            Dim mMethodInfo As Reflection.MethodInfo = instance.GetMethod(methodName, mBinding)

            Dim d As [Delegate]
            d = [Delegate].CreateDelegate(mEventInfo.EventHandlerType, Nothing, mMethodInfo)

            mEventInfo.AddEventHandler(target, d)
        End Sub


        ''' <summary>
        ''' 移除事件绑定
        ''' </summary>
        ''' <param name="eventName">事件名称</param>
        ''' <param name="target">事件所在实例</param>
        ''' <param name="methodName">方法名称</param>
        ''' <param name="instance">方法所在实例</param>
        ''' <remarks></remarks>
        Public Shared Sub RemoveEventHandler(ByVal eventName As String, ByVal target As Object, ByVal methodName As String, ByVal instance As Object)
            Dim mBinding As Reflection.BindingFlags = Reflection.BindingFlags.Instance Or Reflection.BindingFlags.Public Or Reflection.BindingFlags.NonPublic Or BindingFlags.Static

            '取事件信息
            Dim mEventInfo As Reflection.EventInfo = target.GetType.GetEvent(eventName, mBinding)
            '取方法信息
            Dim mMethodInfo As Reflection.MethodInfo = instance.GetType.GetMethod(methodName, mBinding)

            Dim d As [Delegate]
            If mMethodInfo.IsStatic Then
                '静态方法的委托申请
                d = [Delegate].CreateDelegate(mEventInfo.EventHandlerType, Nothing, mMethodInfo)
            Else
                '实例方法的委托申请
                d = [Delegate].CreateDelegate(mEventInfo.EventHandlerType, instance, mMethodInfo)
            End If

            '绑定
            mEventInfo.RemoveEventHandler(target, d)
        End Sub

        ''' <summary>
        ''' 移除事件绑定
        ''' </summary>
        ''' <param name="eventName">事件名称</param>
        ''' <param name="target">事件所在实例</param>
        ''' <param name="methodName">方法名称</param>
        ''' <param name="instance">方法所在静态类</param>
        ''' <remarks></remarks>
        Public Shared Sub RemoveEventHandler(ByVal eventName As String, ByVal target As Object, ByVal methodName As String, ByVal instance As Type)
            Dim mBinding As Reflection.BindingFlags = Reflection.BindingFlags.Instance Or Reflection.BindingFlags.Public Or Reflection.BindingFlags.NonPublic Or BindingFlags.Static

            Dim mEventInfo As Reflection.EventInfo = target.GetType.GetEvent(eventName, mBinding)
            Dim mMethodInfo As Reflection.MethodInfo = instance.GetMethod(methodName, mBinding)

            Dim d As [Delegate]
            d = [Delegate].CreateDelegate(mEventInfo.EventHandlerType, Nothing, mMethodInfo)

            mEventInfo.RemoveEventHandler(target, d)
        End Sub

        ''' <summary>
        ''' 移除事件绑定
        ''' </summary>
        ''' <param name="eventName">事件名称</param>
        ''' <param name="target">事件所在静态类</param>
        ''' <param name="methodName">方法名称</param>
        ''' <param name="instance">方法所在实例</param>
        ''' <remarks></remarks>
        Public Shared Sub RemoveEventHandler(ByVal eventName As String, ByVal target As Type, ByVal methodName As String, ByVal instance As Object)
            Dim mBinding As Reflection.BindingFlags = Reflection.BindingFlags.Instance Or Reflection.BindingFlags.Public Or Reflection.BindingFlags.NonPublic Or BindingFlags.Static

            Dim mEventInfo As Reflection.EventInfo = target.GetEvent(eventName, mBinding)
            Dim mMethodInfo As Reflection.MethodInfo = instance.GetType.GetMethod(methodName, mBinding)

            Dim d As [Delegate]
            If mMethodInfo.IsStatic Then
                d = [Delegate].CreateDelegate(mEventInfo.EventHandlerType, Nothing, mMethodInfo)
            Else
                d = [Delegate].CreateDelegate(mEventInfo.EventHandlerType, instance, mMethodInfo)
            End If

            mEventInfo.RemoveEventHandler(target, d)
        End Sub

        ''' <summary>
        ''' 移除事件绑定
        ''' </summary>
        ''' <param name="eventName">事件名称</param>
        ''' <param name="target">事件所在静态类</param>
        ''' <param name="methodName">方法名称</param>
        ''' <param name="instance">方法所在静态类</param>
        ''' <remarks></remarks>
        Public Shared Sub RemoveEventHandler(ByVal eventName As String, ByVal target As Type, ByVal methodName As String, ByVal instance As Type)
            Dim mBinding As Reflection.BindingFlags = Reflection.BindingFlags.Instance Or Reflection.BindingFlags.Public Or Reflection.BindingFlags.NonPublic Or BindingFlags.Static

            Dim mEventInfo As Reflection.EventInfo = target.GetEvent(eventName, mBinding)
            Dim mMethodInfo As Reflection.MethodInfo = instance.GetMethod(methodName, mBinding)

            Dim d As [Delegate]
            d = [Delegate].CreateDelegate(mEventInfo.EventHandlerType, Nothing, mMethodInfo)

            mEventInfo.RemoveEventHandler(target, d)
        End Sub
    End Class
End Namespace

效果


Demo下载