Mega Code Archive

 

Categories / VB.Net / Reflection

 

Display information about the GetValue method of FieldInfo

Imports System Imports System.Reflection Class MyMethodInfo     Public Shared Sub Main()         Dim MyType As Type = Type.GetType("System.Reflection.FieldInfo")         Dim Mymethodinfo As MethodInfo = MyType.GetMethod("GetValue")         Console.WriteLine((MyType.FullName & "." & Mymethodinfo.Name))         Dim Mymembertypes As MemberTypes = Mymethodinfo.MemberType         If MemberTypes.Constructor = Mymembertypes Then             Console.WriteLine("MemberType is of type All")         ElseIf MemberTypes.Custom = Mymembertypes Then             Console.WriteLine("MemberType is of type Custom")         ElseIf MemberTypes.Event = Mymembertypes Then             Console.WriteLine("MemberType is of type Event")         ElseIf MemberTypes.Field = Mymembertypes Then             Console.WriteLine("MemberType is of type Field")         ElseIf MemberTypes.Method = Mymembertypes Then             Console.WriteLine("MemberType is of type Method")         ElseIf MemberTypes.Property = Mymembertypes Then             Console.WriteLine("MemberType is of type Property")         ElseIf MemberTypes.TypeInfo = Mymembertypes Then             Console.WriteLine("MemberType is of type TypeInfo")         End If         Return     End Sub End Class