Mega Code Archive

 

Categories / VB.Net / Reflection

 

EventInfo Class

Imports System Imports System.Reflection Imports System.Security Imports Microsoft.VisualBasic Class MyEventExample     Public Shared Sub Main()         Try             Dim myBindingFlags As BindingFlags = BindingFlags.Instance Or BindingFlags.Public _                                                  Or BindingFlags.NonPublic             Dim myTypeBindingFlags As Type = GetType(System.Windows.Forms.Button)             Dim myEventBindingFlags As EventInfo = myTypeBindingFlags.GetEvent("Click", myBindingFlags)             If Not (myEventBindingFlags Is Nothing) Then                 Console.WriteLine(myEventBindingFlags.ToString())             End If         Catch e As Exception             Console.WriteLine("The following exception was raised : {0}", e.Message)         End Try     End Sub  End Class