Mega Code Archive
Type GetFields (BindingFlags)
<![CDATA[
Imports System
Imports System.Reflection
Imports Microsoft.VisualBasic
Class AttributesSample
Public Sub Mymethod(ByVal int1m As Integer, ByRef str2m As String, ByRef str3m As String)
str2m = "in Mymethod"
End Sub 'Mymethod
Public Shared Function Main(ByVal args() As String) As Integer
Dim MyType As Type = Type.GetType("AttributesSample")
Dim Mymethodbase As MethodBase = MyType.GetMethod("Mymethod")
Console.WriteLine(Mymethodbase)
Dim Myattributes As MethodAttributes = Mymethodbase.Attributes
PrintAttributes(GetType(System.Reflection.MethodAttributes), CInt(Myattributes))
Return 0
End Function 'Main
Public Shared Sub PrintAttributes(ByVal attribType As Type, ByVal iAttribValue As Integer)
If Not attribType.IsEnum Then
Console.WriteLine("This type is not an enum.")
Return
End If
Dim fields As FieldInfo() = attribType.GetFields((BindingFlags.Public Or BindingFlags.Static))
Dim i As Integer
For i = 0 To fields.Length - 1
Dim fieldvalue As Integer = CType(fields(i).GetValue(Nothing), Int32)
If (fieldvalue And iAttribValue) = fieldvalue Then
Console.WriteLine(fields(i).Name)
End If
Next i
End Sub
End Class
]]>