クラスのプロパティに割り当てられた属性を読み取るにはどうすればよいですか？

Question

は、私がCustomerIDのカスタムattibutesまたは他のプロパティを読み取ることができますどのように次のクラス

Public Class Customer 
    Inherits XPBaseObject 

    Private _CustomerID As Integer = -1 

    <Key(True), _ 
    Custom("AllowNull", "True"), _ 
    Custom("AutoInc", "True"), _ 
    DbType("int")> Public Property CustomerID() As Integer 
     Get 
      Return _CustomerID 
     End Get 
     Set(ByVal value As Integer) 
      SetPropertyValue(Of Integer)("CustomerID", _CustomerID, value) 
     End Set 
    End Property 
End Class 

を考えると？リフレクションを使用して、事前

Answer 1

で

ありがとう：

Dim properties As PropertyInfo() = Me.[GetType]().GetProperties() 
For Each prop As PropertyInfo In properties 
    Dim attribute As Attribute = prop.GetCustomAttributes(GetType(Attribute), True)_ 
     .OfType(Of Attribute)()_ 
     .FirstOrDefault() 
Next