Compartir a través de

Obtener acceso a atributos mediante reflexión (Visual Basic)

El hecho de que pueda definir atributos personalizados y colocarlos en el código fuente sería de poco valor sin alguna manera de recuperar esa información y actuar sobre ella. Mediante el uso de la reflexión, puede recuperar la información definida con atributos personalizados. El método de clave es GetCustomAttributes, que devuelve una matriz de objetos que son equivalentes en tiempo de ejecución de los atributos de código fuente. Este método tiene varias versiones sobrecargadas. Para obtener más información, consulte Attribute.

Especificación de atributo como:

<Author("P. Ackerman", Version:=1.1)>
Class SampleClass
    ' P. Ackerman's code goes here...
End Class

es conceptualmente equivalente a esto:

Dim anonymousAuthorObject As Author = New Author("P. Ackerman")
anonymousAuthorObject.version = 1.1

Sin embargo, el código no se ejecuta hasta que se consulten los atributos de SampleClass. Llamar GetCustomAttributes a en SampleClass hace que un Author objeto se construya e inicialice como se ha indicado anteriormente. Si la clase tiene otros atributos, otros objetos de atributo se construyen de forma similar. GetCustomAttributes a continuación, devuelve el Author objeto y cualquier otro objeto de atributo de una matriz. A continuación, puede iterar en esta matriz, determinar qué atributos se aplicaron en función del tipo de cada elemento de matriz y extraer información de los objetos de atributo.

Ejemplo

Este es un ejemplo completo. Se define un atributo personalizado, se aplica a varias entidades y se recupera a través de la reflexión.

' Multiuse attribute
<System.AttributeUsage(System.AttributeTargets.Class Or
                       System.AttributeTargets.Struct,
                       AllowMultiple:=True)>
Public Class Author
    Inherits System.Attribute
    Private name As String
    Public version As Double
    Sub New(ByVal authorName As String)
        name = authorName

        ' Default value
        version = 1.0
    End Sub

    Function GetName() As String
        Return name
    End Function
End Class

' Class with the Author attribute
<Author("P. Ackerman")>
Public Class FirstClass
End Class

' Class without the Author attribute
Public Class SecondClass
End Class

' Class with multiple Author attributes.
<Author("P. Ackerman"), Author("R. Koch", Version:=2.0)>
Public Class ThirdClass
End Class

Class TestAuthorAttribute
    Sub Main()
        PrintAuthorInfo(GetType(FirstClass))
        PrintAuthorInfo(GetType(SecondClass))
        PrintAuthorInfo(GetType(ThirdClass))
    End Sub

    Private Shared Sub PrintAuthorInfo(ByVal t As System.Type)
        System.Console.WriteLine("Author information for {0}", t)

        ' Using reflection
        Dim attrs() As System.Attribute = System.Attribute.GetCustomAttributes(t)

        ' Displaying output
        For Each attr In attrs
            Dim a As Author = CType(attr, Author)
            System.Console.WriteLine("   {0}, version {1:f}", a.GetName(), a.version)
        Next
    End Sub

    ' Output:
    '   Author information for FirstClass
    '     P. Ackerman, version 1.00
    ' Author information for SecondClass
    ' Author information for ThirdClass
    '  R. Koch, version 2.00
    '  P. Ackerman, version 1.00

End Class

Consulte también