Mega Code Archive
BindingFlags Public Or BindingFlags Static
<![CDATA[
Imports System
Imports System.Reflection
Imports Microsoft.VisualBasic
Public Class Demo
Private m_field As String = "String A"
Public Field As String = "String B"
Public Const FieldC As String = "String C"
End Class
Module Module1
Sub Main()
Dim d As New Demo()
Dim myType As Type = GetType(Demo)
Dim fiConstant As FieldInfo = myType.GetField("FieldC",BindingFlags.Public Or BindingFlags.Static)
DisplayField(d, fiConstant)
End Sub
Sub DisplayField(ByVal obj As Object, ByVal f As FieldInfo)
Console.WriteLine("{0} = ""{1}""; attributes: {2}",f.Name, f.GetValue(obj), f.Attributes)
End Sub
End Module
]]>