Não é possível usar o método de extensão assim diretamente como você tentou, porque o método se aplica somente a tipos PropertyInfo
, e a propriedade HelloWorld
é do tipo String
, por isso é necessário primeiro obter o PropertyInfo
dessa propriedade.
Eu fiz uma pesquisa e vi que você pode fazer isso de forma "manual", pegando o tipo da classe e depois usando o método GetProperty()
. Você pode fazer isso usando o nome da propriedade, como um String
:
Dim propInfoManual As PropertyInfo = GetType(Foo).GetProperty("HelloWorld")
Ou você pode usar o operador NameOf
, que evita erros de digitação, que serão notados já em momento de compilação:
Dim propInfoManual As PropertyInfo = GetType(Foo).GetProperty(NameOf(Foo.HelloWorld))
Mas, se você ainda quiser fazer um método de extensão, você pode fazer assim, se for passar o nome da propriedade como um String
:
<Extension()>
Public Function GetPropInfo(Of T)(origem As T, prop As String) As PropertyInfo
Return GetType(T).GetProperty(prop)
End Function
Se quiser aquela vantagem da tipagem forte, que possibilita pegar erros de digitação em momento de compilação, nesse caso a coisa fica mais complicada e a única forma que achei foi usando as classes de construção/desconstrução de expressões lambda:
' Necessário para usar as classes de expressões lambda.
Imports System.Linq.Expressions
'[...]
<Extension()>
Public Function GetPropInfo(Of TSource, TProp)(origem As TSource,
seletorProp As Expression(Of Func(Of TProp))
) As PropertyInfo
Select Case seletorProp.Body.NodeType
Case ExpressionType.MemberAccess
Dim memExp As MemberExpression = DirectCast(seletorProp.Body, MemberExpression)
Return DirectCast(memExp.Member, PropertyInfo)
Case Else
Throw New ArgumentException()
End Select
End Function
Para testar os três métodos:
Public Class Foo
<Description("Hello world with space")>
Public Property HelloWorld As String
Public Function DescricaoPropriedade() As String
Dim descManual As String = GetType(Foo).GetProperty(NameOf(Foo.HelloWorld)).GetDescription()
Dim descExtStr As String = Me.GetPropInfo("HelloWorld").GetDescription()
Dim descExtLambda As String = Me.GetPropInfo(Function() Me.HelloWorld).GetDescription()
Return $"Desc manual: {descManual} {vbCrLf}" &
$"Desc estendido (str): {descExtStr} {vbCrLf}" &
$"Desc estendido (lambda): {descExtLambda}"
End Function
End Class
Você também pode usar o método de extensão com lambda sem os Me.
, eu coloquei só para ficar mais didático.
Fontes:
EDIÇÃO
Na hora não visualizei, mas agora percebi que é possível usar a solução mais simples de extensão, com parâmetro String
ao invés de expressão lambda, e ainda ter tipagem forte, usando aqui também o operador NameOf
:
Dim descExtStr As String = Me.GetPropInfo(NameOf(HelloWorld)).GetDescription()