VB.NET函数将属性名称作为字符串

发布时间：2020-12-17 00:21:43 所属栏目：大数据来源：网络整理

导读：我正在尝试创建一个函数,当一个属性作为参数传递给它时,它返回用于将属性定义为字符串的名称.例如, Shared Function PropertyToStr(Propert As Object) 'Code to get property name and return it as a string goes here End Function 假设First_Name是属性

我正在尝试创建一个函数,当一个属性作为参数传递给它时,它返回用于将属性定义为字符串的名称.例如,

Shared Function PropertyToStr(Propert As Object)
     'Code to get property name and return it as a string goes here  
End Function

假设First_Name是属性的名称,定义如下：

Property First_Name as String

该功能应该像：

Dim str as String = PropertyToStr(First_Name) ' Resulting in str = "First_Name"

注意我只想在此函数中返回属性名称“First_Name”,而不是“MyClass.First_Name”.

我找到了我需要用c#编写的函数类似代码的其他示例,但我还是无法在VB.Net中复制它们对MemberExpression的使用

Getting sub property names strongly typed

Get name of property as a string

Retrieving Property name from lambda expression

编辑：在Visual Studio 2015中,您可以使用NameOf运算符来完成此操作：

Property First_Name As String

Private Sub Form1_Load(sender As Object,e As EventArgs) Handles MyBase.Load
    MessageBox.Show(NameOf(First_Name))
End Sub

旧版.net的原始答案：

通过一些代码转换器运行其他答案并清理它会产生以下结果,这似乎工作得很好.

Private Shared Function GetMemberInfo(method As Expression) As MemberExpression
    Dim lambda As LambdaExpression = TryCast(method,LambdaExpression)
    If lambda Is Nothing Then
        Throw New ArgumentNullException("method")
    End If

    Dim memberExpr As MemberExpression = Nothing

    If lambda.Body.NodeType = ExpressionType.Convert Then
        memberExpr = TryCast(DirectCast(lambda.Body,UnaryExpression).Operand,MemberExpression)
    ElseIf lambda.Body.NodeType = ExpressionType.MemberAccess Then
        memberExpr = TryCast(lambda.Body,MemberExpression)
    End If

    If memberExpr Is Nothing Then
        Throw New ArgumentException("method")
    End If

    Return memberExpr
End Function

Public Shared Function GetPropertyName(Of T)(prop As Expression(Of Func(Of T))) As String
    Dim expression = GetMemberInfo(prop)
    Return expression.Member.Name
End Function

Property First_Name As String
Property LastName As String
Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
    MessageBox.Show(GetPropertyName(Function() First_Name))
    MessageBox.Show(GetPropertyName(Function() LastName))
End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!