在运行时为hanlding事件定义的自定义/动态方法和委托,以告诉我触发了什么事件

除了对所有可能的事件处理程序进行硬编码之外,有没有一种方法可以在运行时动态地进行这项工作?

我要做的是在运行时定义一个动态方法和一个动态委托来处理vb.net中可能发生的任何事件。我能告诉你一个事件被触发了,源对象也被触发了,但我不能告诉你 什么 事件已触发。

我现在使用的方法可以正确处理我所知道的最基本的事件。但是,无法告诉我触发了什么特定事件。我的所有处理子(下面的部分示例是trigger_event())都知道 sender As Object, e As EventArgs . sender 是生成事件的对象,但它不会告诉我触发了什么。 EventArgs 可以扩展,但它永远不会包含事件的名称,因为这不是标准实践。

下面是两个示例类subs,它目前能够处理大多数System.Windows.Forms事件,我知道在哪里可以将事件参数类型转换为标准事件参数类型。 Announce_Events() 用于命名我要侦听的事件,并在运行时模拟委托,当前将所有事件路由到 Triggered_Event() …

Public Sub Announce_Events(event_name As String)

Dim obj_type = _a_specific_object.GetType()
Dim obj_event_info = obj_type.GetEvent(event_name, BindingFlags.Instance OR BindingFlags.Public)

Dim obj_event_delegate As [Delegate] = [Delegate].CreateDelegate(obj_event_info.EventHandlerType, Me, "Triggered_Event")
obj_event_info.AddEventHandler(_a_specific_object, obj_event_delegate)
obj_event_delegate = Nothing

End Sub


Private Sub Triggered_Event(sender As Object, e As EventArgs)

' Handle triggered event here

End Sub

我很难理解 dynamic methods 处理事件。也许在运行时我可以使用特定的函数措辞来定义我的处理方法?如何让sub-announced_events()通知触发的_event()触发了什么事件名称?

注意:在我的例子中,所有委托和方法都必须动态定义,除非可以定义一个委托和方法来处理所有可能的事件。

更新: 通过使用Markj和Hans Passant给出的任一解决方案来解决。这两个版本…

Anon Sub:

Public Sub Announce_Events(event_name As String)

Dim obj_type = _a_specific_object.GetType()
Dim obj_event_info = obj_type.GetEvent(event_name, BindingFlags.Instance OR BindingFlags.Public)
Dim my_event_handler as EventHandler = Sub (sender As Object, e As Object)
    ' do something with sender, e, and event_name variables here '
    End Sub
obj_event_info.AddEventHandler(_a_specific_object, my_event_handler)

End Sub

不需要定义触发的事件子级。但是,仍然需要一种方法来动态地将我的事件处理程序强制转换为obj事件处理程序info.eventhandlerType,否则只有当obj事件处理程序info.eventhandlerType可以狭义地转换为event handler时,它才能工作。

工人对象:

Public Sub Announce_Events(event_name As String)

Dim obj_type = _a_specific_object.GetType()
Dim obj_event_info = obj_type.GetEvent(event_name, BindingFlags.Instance OR BindingFlags.Public)
Dim e_worker as new Event_Worker(event_name)
Dim obj_event_delegate = [Delegate].CreateDelegate(obj_event_info.EventHandlerType, e_worker, "Triggered_Event")
obj_event_info.AddEventHandler(_a_specific_object, obj_event_delegate)

End Sub

Event_Worker类有一个“Event Name”字段用于在事件激发时引用,并包含“Trigged_Event”子类,用于在传递“Event Name”时处理激发的事件。但是,“触发的事件”必须声明为接受“e”作为严格类型“eventargs”,或者至少是缩小转换。