AttributeUsage (Visual Basic)
Determina como uma classe de atributo personalizado pode ser usada. AttributeUsage é um atributo que pode ser aplicado a definições de atributo personalizadas para controlar como o novo atributo pode ser aplicado. As configurações padrão têm esta aparência quando aplicadas explicitamente:
<System.AttributeUsage(System.AttributeTargets.All,
AllowMultiple:=False,
Inherited:=True)>
Class NewAttribute
Inherits System.Attribute
End Class
Neste exemplo, a NewAttribute classe pode ser aplicada a qualquer entidade de código atributável, mas pode ser aplicada apenas uma vez a cada entidade. É herdado por classes derivadas quando aplicado a uma classe base.
Os AllowMultiple argumentos e Inherited são opcionais, portanto, esse código tem o mesmo efeito:
<System.AttributeUsage(System.AttributeTargets.All)>
Class NewAttribute
Inherits System.Attribute
End Class
O primeiro AttributeUsage argumento deve ser um ou mais elementos da AttributeTargets enumeração. Vários tipos de destino podem ser vinculados com o operador OR, da seguinte forma:
<AttributeUsage(AttributeTargets.Property Or AttributeTargets.Field)>
Class NewPropertyOrFieldAttribute
Inherits Attribute
End Class
Se o AllowMultiple argumento for definido como true, o atributo resultante poderá ser aplicado mais de uma vez a uma única entidade, da seguinte forma:
<AttributeUsage(AttributeTargets.Class, AllowMultiple:=True)>
Class MultiUseAttr
Inherits Attribute
End Class
<MultiUseAttr(), MultiUseAttr()>
Class Class1
End Class
Neste caso MultiUseAttr pode ser aplicado repetidamente porque AllowMultiple está definido como true. Ambos os formatos mostrados para a aplicação de vários atributos são válidos.
Se Inherited estiver definido como false, o atributo não será herdado por classes derivadas de uma classe atribuída. Por exemplo:
<AttributeUsage(AttributeTargets.Class, Inherited:=False)>
Class Attr1
Inherits Attribute
End Class
<Attr1()>
Class BClass
End Class
Class DClass
Inherits BClass
End Class
Neste caso Attr1 não se aplica a DClass via herança.
Observações
O AttributeUsage atributo é um atributo de uso único - não pode ser aplicado mais de uma vez à mesma classe. AttributeUsage é um alias para AttributeUsageAttribute.
Para obter mais informações, consulte Acessando atributos usando reflexão (Visual Basic).
Exemplo
O exemplo a seguir demonstra o efeito dos Inherited argumentos e AllowMultiple para o AttributeUsage atributo e como os atributos personalizados aplicados a uma classe podem ser enumerados.
' Create some custom attributes:
<AttributeUsage(System.AttributeTargets.Class, Inherited:=False)>
Class A1
Inherits System.Attribute
End Class
<AttributeUsage(System.AttributeTargets.Class)>
Class A2
Inherits System.Attribute
End Class
<AttributeUsage(System.AttributeTargets.Class, AllowMultiple:=True)>
Class A3
Inherits System.Attribute
End Class
' Apply custom attributes to classes:
<A1(), A2()>
Class BaseClass
End Class
<A3(), A3()>
Class DerivedClass
Inherits BaseClass
End Class
Public Class TestAttributeUsage
Sub Main()
Dim b As New BaseClass
Dim d As New DerivedClass
' Display custom attributes for each class.
Console.WriteLine("Attributes on Base Class:")
Dim attrs() As Object = b.GetType().GetCustomAttributes(True)
For Each attr In attrs
Console.WriteLine(attr)
Next
Console.WriteLine("Attributes on Derived Class:")
attrs = d.GetType().GetCustomAttributes(True)
For Each attr In attrs
Console.WriteLine(attr)
Next
End Sub
End Class
Resultado da Amostra
Attributes on Base Class:
A1
A2
Attributes on Derived Class:
A3
A3
A2
