Delen via

Toegang tot kenmerken met behulp van weerspiegeling (Visual Basic)

Het feit dat u aangepaste kenmerken kunt definiëren en deze in uw broncode kunt plaatsen, zou weinig waarde hebben zonder dat u die informatie op een of andere manier kunt ophalen en erop kunt reageren. Met weerspiegeling kunt u de informatie ophalen die is gedefinieerd met aangepaste kenmerken. De sleutelmethode is GetCustomAttributes, die een matrix met objecten retourneert die de runtime-equivalenten van de broncodekenmerken zijn. Deze methode heeft verschillende overbelaste versies. Zie Attribute voor meer informatie.

Een kenmerkspecificatie zoals:

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

is conceptueel gelijk aan dit:

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

De code wordt echter pas uitgevoerd wanneer SampleClass om kenmerken wordt gevraagd. GetCustomAttributes aanroepen op SampleClass zorgt ervoor dat een Author object wordt geconstrueerd en geïnitialiseerd zoals hierboven. Als de klasse andere kenmerken heeft, worden andere kenmerkobjecten op dezelfde manier samengesteld. GetCustomAttributes retourneert vervolgens het Author object en eventuele andere kenmerkobjecten in een matrix. Vervolgens kunt u deze matrix herhalen, bepalen welke kenmerken zijn toegepast op basis van het type van elk matrixelement en informatie extraheren uit de kenmerkobjecten.

Voorbeeld

Hier volgt een volledig voorbeeld. Er wordt een aangepast kenmerk gedefinieerd, toegepast op verschillende entiteiten en opgehaald via weerspiegeling.

' 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

Zie ook

  • Last updated on