Type.FindMembers : Type « Reflection « VB.Net

1. VB.Net
2. Reflection
3. Type

Type.FindMembers

 

Imports System
Imports System.Reflection
Imports Microsoft.VisualBasic

Class MyFindMembersClass
    Public Shared Sub Main()
        Dim objTest As New Object()
        Dim objType As Type = objTest.GetType()
        Dim arrayMemberInfo() As MemberInfo
        arrayMemberInfo = objType.FindMembers(MemberTypes.Method, _
                          BindingFlags.Public Or BindingFlags.Static _
                          Or BindingFlags.Instance, _
                          New MemberFilter(AddressOf DelegateToSearchCriteria), _
                          "ReferenceEquals")

        Dim index As Integer
        For index = 0 To arrayMemberInfo.Length - 1
            Console.WriteLine(arrayMemberInfo(index).ToString())
        Next index
    End Sub 'Main

    Public Shared Function DelegateToSearchCriteria _
                            (ByVal objMemberInfo As MemberInfo, _
                             ByVal objSearch As Object) As Boolean
        If objMemberInfo.Name.ToString() = objSearch.ToString() Then
            Return True
        Else
            Return False
        End If
    End Function 
End Class 

   
  

Related examples in the same category