Ejemplos sobre el uso de atributos personalizados
Actualización: noviembre 2007
El ejemplo siguiente define un atributo personalizado que se puede aplicar sólo a clases:
Ejemplo
<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
Sólo el constructor de la clase de atributos puede establecer las propiedades definidas en este atributo. El código siguiente muestra cómo se podría utilizar el atributo.
' Apply the custom attribute to this class.
<Custom("Some metadata", 66)> Class ThisClass
' Add class members here.
End Class
Vea también
Tareas
Cómo: Definir atributos propios
Cómo: Recuperar atributos personalizados
Conceptos
Recuperar información almacenada en atributos