Exemplos de uso do atributo personalizado

O exemplo a seguir define um atributo personalizado que pode ser aplicado apenas às classes:

Exemplo

<AttributeUsage(AttributeTargets.Class)> Public Class CustomAttribute
    Inherits System.Attribute

    'Declare two private fields to store the property values.
    Private m_LlabelValue As String
    Private m_VValueValue As Integer

    'The Sub New constructor is the only way to set the properties.
    Public Sub New(ByVal _Label As String, ByVal _Value As Integer)
        m_LlabelValue = _Label
        m_VValueValue = _Value
    End Sub

    Public ReadOnly Property Label() As String
        Get
            Return m_LlabelValue
        End Get
    End Property

    Public ReadOnly Property Value() As Integer
        Get
            Return m_VValueValue
        End Get
    End Property
End Class

Somente o construtor da classe de atributos pode conjunto as propriedades definidas este atributo.O código a seguir mostra como usar o atributo:

' Apply the custom attribute to this class.
<Custom("Some metadata", 66)> Class ThisClass
    ' Add class members here.
End Class

Consulte também

Tarefas

Como: Definir seus próprios atributos

Como: Recuperar atributos personalizados

Conceitos

Aplicação de Atributos

Recuperando Informações Armazenadas em Atributos

Referência

AttributeUsageAttribute