自定义属性用法的示例
更新:2007 年 11 月
下面的示例定义只能应用于类的自定义属性:
示例
<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
只有属性 (Attribute) 类的构造函数可以设置在此属性 (Attribute) 中定义的属性 (Property)。下面的代码展示可以如何使用该属性:
' Apply the custom attribute to this class.
<Custom("Some metadata", 66)> Class ThisClass
' Add class members here.
End Class