问更复杂的属性参数

EN

Public Class Foo
   Public Property Id as Integer
   <Attribute(AttributeInputA.Create(of Bar)(Function(item) item.Name))>
   Public Property Name as String
End Class 
Public Class Bar
    Public Property Name as String
End Class
<AttributeUsage(AttributeTargets.Property Or
                   AttributeTargets.Field,
                   AllowMultiple:=True)>
Public Class Attribute
   Public Sub New(attibuteInputA as AttributeInputA)
   End Sub
End Class
Public Class AttributeInputA
    Public Share Function Create(Of T)(System.Linq.Expressions.Expression(Of Func(Of Object , T)) AS AttributeInputA
    End Function
End Class