VB.net Значения пользовательских атрибутов

Question

Я новичок в пользовательских атрибутах, поэтому мне интересно, можно ли получить значения атрибутов. Пример свойств в моем классе, который я использую пользовательские атрибуты это:

Private mFiller As String 
<Position(378), Length(34), DataType("A"), ParticipantDependant("P/D"), RequiredProperty("Required"), Format("Blank")> _ 
Public Property Filler() As String 
    Get 
     Return mFiller 
    End Get 
    Set(ByVal value As String) 
     mFiller = value 
    End Set 
End Property 

Я пытаюсь получить значения этих атрибутов (т.е. получить позицию = 378, длина = 34 и т.д.). , Петля я начинал с выглядит следующим образом:

Dim gwlImport As New ClientGWLImport 
Dim properties() As PropertyInfo = gwlImport.GetType.GetProperties 
Dim tmpInfo As PropertyInfo 
For Each tmpInfo In properties 
    Debug.Print("Attributes for : " & tmpInfo.Name) 
    For Each tmpAttribute As Object In tmpInfo.GetCustomAttributes(True) 
     Debug.Print(tmpAttribute.ToString) 
    Next tmpAttribute 
Next tmpInfo 

Это заставляет меня имена всех атрибутов, но я не уверен, как получить значение. Есть идеи?

Приветствия,

Ryan

Answer 1

Вам нужно будет знать тип атрибута.

Например:

Dim posAtt As PositionAttribute 
posAtt = CType(tmpInfo.GetCustomAttributes(GetType(PositionAttribute), True)(0), PositionAttribute) 
'Use some property of posAtt 

Кстати, вам не нужно создавать новый ClientGWLImport, чтобы получить его Type объект.
Вместо этого, вы можете написать

Dim properties() As PropertyInfo = GetType(ClientGWLImport).GetProperties() 

Answer 2

System.Reflection.CustomAttributeData класса предоставляет функциональные возможности для получения полного определения пользовательских атрибутов декорирования типа или члена.