说来很简单，GetType().GetField("事件名",BindingFlags.Instance | BindingFlags.NonPublic);
然后调用GetValue就可以得到对应的委托了。既然有委托了。调用GetInvokeList就可以了。
需要注意一点，vb.net的事件，反射时需要在事件名后面多写一个Event。不多说。分别贴出代码供参考和自己备用，虽然实在简单到不需要备份例子。以防万一吧。
c#
using Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>; using Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Reflection; namespace GetEventList { class Program { public class MyClass { public delegate void MyEventHandler(int value); public event MyEventHandler MyEvent; public void Foo() { if (MyEvent != null) MyEvent(88); } } static void Main(string[] args) { MyClass obj = new MyClass(); obj.MyEvent += delegate(int v) { Console.WriteLine(v); }; FieldInfo fi = obj.GetType().GetField("MyEvent",BindingFlags.Instance | BindingFlags.NonPublic); Delegate del = fi.GetValue(obj) as Delegate; if (del != null) { foreach (var item in del.GetInvocationList()) { Console.WriteLine(item.Method.ToString()); } } Console.ReadKey(); } } }
vb.net
Imports Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Reflection Module Module1 Sub Main() Dim obj As New EventTestClass '<a href="https://www.jb51.cc/tag/zhuce/" target="_blank" class="keywords">注册</a>事件 AddHandler obj.MyEvent,Function(v As Integer) v + 1 '反射<a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a>事件委托列表 Dim fi As FieldInfo = obj.GetType().GetField("MyEventEvent",BindingFlags.Instance Or BindingFlags.NonPublic) Dim del As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Delegate = fi.GetValue(obj) '如果<a href="https://www.jb51.cc/tag/zhuce/" target="_blank" class="keywords">注册</a>过，则不是<a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> If del Is <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Then Console.WriteLine("尚未<a href="https://www.jb51.cc/tag/zhuce/" target="_blank" class="keywords">注册</a>事件") Else Console.WriteLine("<a href="https://www.jb51.cc/tag/zhuce/" target="_blank" class="keywords">注册</a>事件了") End If Console.ReadKey() End Sub Public Class EventTestClass Public Delegate Sub MyEventHandler(ByVal value As Integer) Public Event MyEvent As MyEventHandler Public Sub Foo() RaiseEvent MyEvent(88) End Sub End Class End Module
