从类中搜寻是本类集合的成员

Author： 水如烟  

参考应用类代码和辅助类代码

尝试的。

这个类蛮偏，应用范围不大。

示例代码：

Public   Class  GetSameTypeCollectionFromTypeTest
     Private   Shared  gService  As   New  LzmTW.uSystem.uReflection.GetSameTypeCollectionFromType

     Public   Shared   Sub  Run()
         With  gService
            .Read( GetType (Test))

             Print ()
            .Clear()

            .Read( GetType (TreeNode))
            .Read( GetType (Control))

             Print ()
            .Clear()

            .Read( GetType (LzmTW.uSystem.uCollection.Node( Of   String )))
             Print ()
         End   With


     End Sub

     Private   Shared   Sub   Print ()
         For   Each  m  As  Reflection.MemberInfo  In  gService.Result
            Console.WriteLine( String .Concat(m.DeclaringType.FullName,  " + " , m.Name))
         Next
     End Sub

End Class

 

Public   Class  Test

     Public  Items()  As  Test

     Public   ReadOnly   Property  Nodes()  As  Test()
         Get

         End   Get
     End Property
End Class

结果：

 

MainFormDemo.Test + Items
MainFormDemo.Test + Nodes
System.Windows.Forms.TreeNode + Nodes
System.Windows.Forms.Control + Controls
System.Windows.Forms.Control + DataBindings
LzmTW.uSystem.uCollection.Node` 1 [[System.String, mscorlib, Version = 2.0 . 0.0 , Culture = neutral, PublicKeyToken = b77a5c561934e089]] + Nodes

类：

Namespace  LzmTW.uSystem.uReflection

     Public   Class  GetSameTypeCollectionFromType

         Private  gMemberInfos  As   New  Dictionary( Of   String , Reflection.MemberInfo)
         Private  gCollectList  As   String ()  =  { " IList " ,  " ICollection " ,  " IEnumerable " }

         Public   ReadOnly   Property  Result()  As  Reflection.MemberInfo()
             Get

                 Dim  tmp(gMemberInfos.Count  -   1 )  As  Reflection.MemberInfo
                gMemberInfos.Values.CopyTo(tmp,  0 )

                 Return  tmp
             End   Get
         End Property

         Public   Sub  Read( ByVal  type  As  Type,  Optional   ByVal  referBaseType  As   Boolean   =   False )

             Me .GetFromFields(type, referBaseType)
             Me .GetFromProperties(type, referBaseType)

         End Sub

         Public   Sub  Read( ByVal  item  As   Object ,  Optional   ByVal  referBaseType  As   Boolean   =   False )
             Dim  type  As  Type  =  item.GetType

             Me .GetFromFields(type, referBaseType)
             Me .GetFromProperties(type, referBaseType)

         End Sub

         Public   Sub  Clear()
            gMemberInfos.Clear()
         End Sub

         Private   Sub  Add( ByVal  memberInfo  As  Reflection.MemberInfo)

             If   Not  gMemberInfos.ContainsKey(memberInfo.Name)  Then
                gMemberInfos.Add(memberInfo.Name, memberInfo)
             End   If

         End Sub

         Private   Sub  AddByInterfaceType( ByVal  type  As  Type,  ByVal  memberInfo  As  Reflection.MemberInfo,  ByVal  PropertyTypeProperty  As  Reflection.PropertyInfo,  ByVal  referBaseType  As   Boolean )
             If  referBaseType  Then
                 If  PropertyTypeProperty.PropertyType  Is  type.BaseType  Then
                    Add(memberInfo)
                 End   If
             Else
                 If  PropertyTypeProperty.PropertyType  Is  type  Then
                    Add(memberInfo)
                 End   If
             End   If
         End Sub

         Private   Sub  AddByArray( ByVal  type  As  Type,  ByVal  TypePropertyInfo  As  Reflection.PropertyInfo,  ByVal  TypePropertyInfoGetMemthodInfo  As  Reflection.MethodInfo,  ByVal  referBaseType  As   Boolean )
             If  TypePropertyInfoGetMemthodInfo  IsNot   Nothing   Then
                 If  referBaseType  Then
                     If  TypePropertyInfoGetMemthodInfo.ReturnType.Name.Equals(type.BaseType.Name  &   " [] " )  Then
                        Add(TypePropertyInfo)
                     End   If
                 Else
                     If  TypePropertyInfoGetMemthodInfo.ReturnType.Name.Equals(type.Name  &   " [] " )  Then
                        Add(TypePropertyInfo)
                     End   If
                 End   If
             End   If
         End Sub

         Private   Sub  AddByArray( ByVal  type  As  Type,  ByVal  TypeFieldInfo  As  Reflection.FieldInfo,  ByVal  referBaseType  As   Boolean )

             If  referBaseType  Then
                 If  TypeFieldInfo.FieldType.Name.Equals(type.BaseType.Name  &   " [] " )  Then
                    Add(TypeFieldInfo)
                 End   If
             Else
                 If  TypeFieldInfo.FieldType.Name.Equals(type.Name  &   " [] " )  Then
                    Add(TypeFieldInfo)
                 End   If
             End   If

         End Sub

         Private   Sub  GetFromFields( ByVal  t  As  Type,  Optional   ByVal  referBaseType  As   Boolean   =   False )

             For   Each  TypeFieldInfo  As  Reflection.FieldInfo  In  t.GetFields

                 If  TypeFieldInfo.FieldType.IsArray  Then

                    AddByArray(t, TypeFieldInfo, referBaseType)
                 End   If

             Next

         End Sub

         Private   Sub  GetFromProperties( ByVal  t  As  Type,  Optional   ByVal  referBaseType  As   Boolean   =   False )


             For   Each  TypePropertyInfo  As  Reflection.PropertyInfo  In  t.GetProperties

                 If  TypePropertyInfo.PropertyType.IsArray  Then

                     Dim  TypePropertyInfoGetMemthodInfo  As  Reflection.MethodInfo  =  TypePropertyInfo.GetGetMethod( False )
                    AddByArray(t, TypePropertyInfo, TypePropertyInfoGetMemthodInfo, referBaseType)

                 Else
                     For   Each  PropertyInterfaceType  As  Type  In  TypePropertyInfo.PropertyType.GetInterfaces

                         If  Array.IndexOf(gCollectList, PropertyInterfaceType.Name)  <>   - 1   Then

                             For   Each  PropertyTypeProperty  As  Reflection.PropertyInfo  In  TypePropertyInfo.PropertyType.GetProperties

                                AddByInterfaceType(t, TypePropertyInfo, PropertyTypeProperty, referBaseType)

                             Next

                         End   If

                     Next
                 End   If

             Next

         End Sub

     End Class

End Namespace

测试一下Framewoks,这种情形还真不多:

 

Public   Class  GetSameTypeCollectionFromTypeTest
     Private   Shared  gService  As   New  LzmTW.uSystem.uReflection.GetSameTypeCollectionFromType

     Public   Shared   Sub  Run()
        CheckFrameworks()
     End Sub

     Private   Shared   Sub   Print ()
         For   Each  m  As  Reflection.MemberInfo  In  gService.Result
            Console.WriteLine( String .Concat(m.DeclaringType.FullName,  " + " , m.Name))
         Next
     End Sub

     Private   Shared   Sub  CheckFrameworks()

         Dim  mAllDllFiles  As  ArrayList  =  GetFrameworksDLLFileList()
         For   Each  f  As   String   In  mAllDllFiles
             Try
                 Dim  mAssembly  As   Assembly   =   Assembly .LoadFrom(f)

                 For   Each  mModule  As  [ Module ]  In  mAssembly.GetModules

                     For   Each  mType  As  Type  In  mModule.GetTypes
                        gService.Clear()
                        gService.Read(mType)
                         Print ()
                     Next
                 Next
             Catch  ex  As  Exception
             End   Try
         Next

     End Sub

     Private   Shared   Function  GetFrameworksDLLFileList()  As  ArrayList
         Dim  mList  As   New  ArrayList
         Dim  mFrameworksPath  As   String   =   Nothing

         Dim  tmpAssembly  As  System.Reflection.Assembly  =   GetType ( Object ).Assembly
        mFrameworksPath  =  IO.Path.GetDirectoryName(tmpAssembly.Location)

         Try

             If  Directory.Exists(mFrameworksPath)  Then
                 Dim  dllFiles  As   String ()  =  Directory.GetFiles(mFrameworksPath,  " *.dll " )

                 For  i  As   Integer   =   0   To  dllFiles.Length  -   1
                    mList.Add(dllFiles(i))
                 Next  i
             End   If

         Catch  Ex  As  Exception
         End   Try

         Return  mList
     End Function
End Class

结果:

Microsoft.Build.Tasks.Deployment.Bootstrapper.BootstrapperBuilder + GraphNode + Edges
System.Type + EmptyTypes
System.Reflection.CustomAttributeEncodedArgument + ArrayValue
System.Configuration.ConfigurationSectionGroup + SectionGroups
System.Configuration.Install.Installer + Installers
System.Diagnostics.SerializableRegistryKey + Keys
System.Data.DataRowView + DataView
System.Data.DataSet + DefaultViewManager
System.Data.DataTable + DefaultView
System.Xml.Xsl.XmlQueryType + Prime
System.Xml.ListBase` 1 [[System.Xml.Xsl.XmlQueryType, System.Data.SqlXml, Version = 2.0 . 0.0 , Culture = neutral, PublicKeyToken = b77a5c561934e089]] + Item
System.Xml.Xsl.Qil.QilNode + Item
System.Xml.Xsl.Xslt.Stylesheet + Imports
System.Xml.Xsl.Xslt.XslNode + Content
System.Web.UI.Design.DataBindingsDialog + FormatItem + DefaultFormats
System.Web.UI.Design.DataBindingsDialog + FormatItem + DateTimeFormats
System.Web.UI.Design.DataBindingsDialog + FormatItem + NumericFormats
System.Web.UI.Design.DataBindingsDialog + FormatItem + DecimalFormats
System.DirectoryServices.ActiveDirectory.ActiveDirectorySchemaClass + PossibleSuperiors
System.DirectoryServices.ActiveDirectory.ActiveDirectorySchemaClass + PossibleInferiors
System.DirectoryServices.ActiveDirectory.ActiveDirectorySchemaClass + AuxiliaryClasses
System.DirectoryServices.ActiveDirectory.ActiveDirectorySite + AdjacentSites
System.DirectoryServices.ActiveDirectory.Domain + Children
System.CodeDom.CodeTypeReference + TypeArguments
System.ComponentModel.Design.DesignerOptionService + DesignerOptionCollection + Parent
System.ComponentModel.Design.DesignerOptionService + DesignerOptionCollection + Item
System.Collections.Generic.LinkedListNode` 1 + List
System.Drawing.FontFamily + Families
System.Messaging.DefaultPropertiesToSend + AdministrationQueue
System.Messaging.DefaultPropertiesToSend + ResponseQueue
System.Messaging.DefaultPropertiesToSend + TransactionStatusQueue
System.Security.Cryptography.Pkcs.SignerInfo + CounterSignerInfos
System.ServiceProcess.ServiceController + DependentServices
System.ServiceProcess.ServiceController + ServicesDependedOn
System.Web.HttpApplicationState + Contents
System.Web.SiteMapNode + ChildNodes
System.Web.SessionState.HttpSessionState + Contents
System.Web.UI.Control + Controls
System.Web.UI.WebControls.MenuItem + ChildItems
System.Web.UI.WebControls.TreeNode + ChildNodes
System.Web.Services.Description.MimeTextMatch + Matches
System.Web.Services.Description.ServiceDescription + ServiceDescriptions
System.Windows.Forms.IBindableComponent + DataBindings
System.Windows.Forms.Control + Controls
System.Windows.Forms.Control + DataBindings
System.Windows.Forms.Control + ImeModeConversion + ImeModeConversionBits
System.Windows.Forms.Form + MdiChildren
System.Windows.Forms.Form + OwnedForms
System.Windows.Forms.GridItem + GridItems
System.Windows.Forms.HtmlElement + All
System.Windows.Forms.HtmlElement + Children
System.Windows.Forms.HtmlWindow + Frames
System.Windows.Forms.InputLanguage + InstalledInputLanguages
System.Windows.Forms.Menu + MenuItems
System.Windows.Forms.Screen + AllScreens
System.Windows.Forms.TableLayoutPanel + Controls
System.Windows.Forms.TreeNode + Nodes
System.Xml.XmlNode + ParentNode
System.Xml.XmlNode + ChildNodes
System.Xml.XmlNode + PreviousSibling
System.Xml.XmlNode + NextSibling
System.Xml.XmlNode + OwnerDocument
System.Xml.XmlNode + FirstChild
System.Xml.XmlNode + LastChild
System.Xml.XmlNode + Item
System.Xml.XmlNode + Attributes
System.Xml.XmlAttributeCollection + ItemOf
System.Xml.XmlNodeList + ItemOf
System.Xml.XmlDocument + ParentNode
System.Xml.XmlDocument + DocumentType
System.Xml.XmlDocument + DocumentElement
System.Xml.XmlDocument + OwnerDocument
System.Xml.XmlNode + PreviousSibling
System.Xml.XmlNode + NextSibling
System.Xml.XmlNode + FirstChild
System.Xml.XmlNode + LastChild
System.Xml.XmlNode + Item
System.Xml.XmlNode + OwnerDocument
System.Xml.XmlElement + ParentNode
System.Xml.XmlElement + OwnerDocument
System.Xml.XmlElement + NextSibling
System.Xml.XmlLinkedNode + PreviousSibling
System.Xml.XmlNode + FirstChild
System.Xml.XmlNode + LastChild
System.Xml.XmlNode + Item