Freigeben über

Zugreifen auf Attribute mithilfe von Reflection (Visual Basic)

Die Tatsache, dass Sie benutzerdefinierte Attribute definieren und in Ihrem Quellcode platzieren können, wäre von geringem Wert, ohne diese Informationen abzurufen und darauf zu handeln. Mithilfe der Spiegelung können Sie die Informationen abrufen, die mit benutzerdefinierten Attributen definiert wurden. Die Schlüsselmethode ist GetCustomAttributes, die ein Array von Objekten zurückgibt, die die Laufzeitentsprechungen der Quellcodeattribute sind. Diese Methode hat mehrere überladene Versionen. Weitere Informationen finden Sie unter Attribute.

Eine Attributspezifikation, z. B.:

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

ist mit Folgendem vergleichbar:

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

Der Code wird jedoch erst ausgeführt, wenn SampleClass für Attribute abgefragt wird. Das Aufrufen von GetCustomAttributes bei SampleClass bewirkt, dass ein Author Objekt wie oben erstellt und initialisiert wird. Wenn die Klasse andere Attribute aufweist, werden andere Attributobjekte ähnlich konstruiert. GetCustomAttributes gibt dann das Author Objekt und alle anderen Attributobjekte in einem Array zurück. Anschließend können Sie dieses Array durchlaufen, bestimmen, welche Attribute basierend auf dem Typ jedes Arrayelements angewendet wurden, und Informationen aus den Attributobjekten extrahieren.

Beispiel

Hier ist ein vollständiges Beispiel. Ein benutzerdefiniertes Attribut wird definiert, auf mehrere Entitäten angewendet und über Spiegelung abgerufen.

' 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

Siehe auch

  • Last updated on