Question

我是自定义属性的新手，所以我想知道是否可以获取属性的值。我使用自定义属性的类中的属性示例是：

Private mFiller As String
<Position(378), Length(34), DataType("A"), ParticipantDependant("P/D"), RequiredProperty("Required"), Format("Blank")> _
Public Property Filler() As String
   Get
      Return mFiller
   End Get
   Set(ByVal value As String)
      mFiller = value
   End Set
End Property

我正在尝试获取这些属性的值（即获取位置= 378，长度= 34等）。我开始的循环看起来像这样：

Dim gwlImport As New ClientGWLImport
Dim properties() As PropertyInfo = gwlImport.GetType.GetProperties
Dim tmpInfo As PropertyInfo
For Each tmpInfo In properties
   Debug.Print("Attributes for : " & tmpInfo.Name)
   For Each tmpAttribute As Object In tmpInfo.GetCustomAttributes(True)
      Debug.Print(tmpAttribute.ToString)
   Next tmpAttribute
Next tmpInfo

这会获取所有属性的名称，但我不确定如何获取值。有什么想法吗？

干杯，

赖安

Answer 1

您需要知道属性的类型。

例如：

Dim posAtt As PositionAttribute 
posAtt = CType(tmpInfo.GetCustomAttributes(GetType(PositionAttribute), True)(0), PositionAttribute)
'Use some property of posAtt

顺便说一句，您无需创建新的ClientGWLImport来获取其Type对象。
相反，你可以写

Dim properties() As PropertyInfo = GetType(ClientGWLImport).GetProperties()

Answer 2

System.Reflection.CustomAttributeData类公开了检索装饰类型或成员的自定义属性的完整定义的功能。

VB.net自定义属性的值

2 个答案: