在VB.NET中跟踪所有事件

Question

我不知道为了在正确的时间执行我的代码，我不知道要收听哪些事件。有什么办法可以记录所有引发的事件吗？根据什么对象引发事件来过滤日志的任何方法？

编辑：最终的解决方案：

Private Sub WireAllEvents(ByVal obj As Object) 
    Dim parameterTypes() As Type = {GetType(System.Object), GetType(System.EventArgs)} 
    Dim Events = obj.GetType().GetEvents() 
    For Each ev In Events 
     Dim handler As New DynamicMethod("", Nothing, parameterTypes, GetType(main)) 
     Dim ilgen As ILGenerator = handler.GetILGenerator() 
     ilgen.EmitWriteLine("Event Name: " + ev.Name) 
     ilgen.Emit(OpCodes.Ret) 
     ev.AddEventHandler(obj, handler.CreateDelegate(ev.EventHandlerType)) 
    Next 
End Sub 

是的，我知道这是不是一个很好的解决方案，当你真正想要做的是激发了事件的真正的东西。 1方法 - 1事件方法有很好的理由，但在试图找出要添加处理程序的方法时，这仍然很有用。

Answer 1

我能想到的唯一方法是使用Reflection来枚举所有的事件并连接一个通用的处理程序，它将是一个PITA。

框架事件是否存在问题？如果是这样，微软在提供事件生命周期/呼叫订单方面做得相当不错。

编辑

因此，这里是一个全球性的事件捕获例程：

Private Sub WireAllEvents(ByVal obj As Object) 
    'Grab all of the events for the supplied object 
    Dim Events = obj.GetType().GetEvents() 
    'This points to the method that we want to invoke each time 
    Dim HandlerMethod = Me.GetType().GetMethod("GlobalHandler") 
    'Loop through all of the events 
    For Each ev In Events 
     'Wire in a handler for the event 
     ev.AddEventHandler(obj, [Delegate].CreateDelegate(ev.EventHandlerType, Me, HandlerMethod)) 
    Next 
End Sub 
Public Sub GlobalHandler(ByVal sender As Object, ByVal e As EventArgs) 
    'Probably want to do something more meaningful here than just tracing 
    Trace.WriteLine(e) 
End Sub 

要连接它只是叫WireAllEvents(Me.DataGridView1)提供你的对象。几乎所有的MS事件都使用sender/e（包括DataGridView）格式，但如果由于某种原因，我认为这段代码不会出错。但我只是用DataGridView和Form来测试它，并且它按预期工作。