VB.net Valeurs des attributs personnalisés

Question

Je ne connais pas encore les attributs personnalisés, donc je me demande s'il est possible d'obtenir les valeurs des attributs. Un exemple des propriétés dans ma classe que j'utiliser les attributs personnalisés est:

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 

Je suis en train d'obtenir les valeurs de ces attributs (c.-à-obtenir la position = 378, Longueur = 34, etc.). . La boucle I commençait à ressembler à ceci:

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 

Cela me obtient les noms de tous les attributs, mais je ne suis pas sûr de savoir comment obtenir les valeurs. Des idées?

Cheers,

Ryan

Answer 1

Vous aurez besoin de connaître le type de l'attribut.

Par exemple:

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

Par ailleurs, vous n'avez pas besoin de créer une nouvelle ClientGWLImport pour obtenir son objet Type.
Au lieu de cela, vous pouvez écrire

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

Answer 2

La classe System.Reflection.CustomAttributeData expose les fonctionnalités pour récupérer la définition complète des attributs personnalisés de décoration d'un type ou d'un membre.