Megosztás a következőn keresztül:

Attribútumok elérése tükröződés (Visual Basic) használatával

Az a tény, hogy definiálhat egyéni attribútumokat, és elhelyezheti őket a forráskódban, kevés értéket jelentene anélkül, hogy valamilyen módon lekérte volna ezeket az információkat, és cselekedne rajta. A tükröződés használatával lekérheti az egyéni attribútumokkal definiált információkat. A kulcsmetódus az GetCustomAttributes, amely olyan objektumtömböt ad vissza, amelyek a forráskód attribútumainak futásidejű megfelelői. Ez a módszer több túlterhelt verzióval rendelkezik. További információért lásd Attribute.

Attribútumspecifikáció, például:

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

fogalmilag egyenértékű ezzel:

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

A kód azonban csak az attribútumok lekérdezése után lesz végrehajtva SampleClass . A hívás GetCustomAttributesSampleClass hatására egy Author objektum a fenti módon lesz létrehozva és inicializálva. Ha az osztály más attribútumokkal is rendelkezik, az egyéb attribútumobjektumok is hasonlóan jönnek létre. GetCustomAttributes ezután visszaadja az Author objektumot és a tömb többi attribútumobjektumát. Ezután iterálhat ezen a tömbön, meghatározhatja, hogy milyen attribútumokat alkalmaztak az egyes tömbelemek típusa alapján, és adatokat nyerhet ki az attribútumobjektumokból.

példa

Íme egy teljes példa. Egy egyéni attribútum definiálva van, több entitásra van alkalmazva, és tükröződés útján kérhető le.

' 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

Lásd még

  • Last updated on