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

前端之家收集整理的这篇文章主要介绍了VB.NET函数将属性名称作为字符串前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在尝试创建一个函数,当一个属性作为参数传递给它时,它返回用于将属性定义为字符串的名称.例如,
  1. Shared Function PropertyToStr(Propert As Object)
  2. 'Code to get property name and return it as a string goes here
  3. End Function

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

  1. Property First_Name as String

功能应该像:

  1. 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运算符来完成此操作:
  1. Property First_Name As String
  2.  
  3. Private Sub Form1_Load(sender As Object,e As EventArgs) Handles MyBase.Load
  4. MessageBox.Show(NameOf(First_Name))
  5. End Sub

旧版.net的原始答案:

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

  1. Private Shared Function GetMemberInfo(method As Expression) As MemberExpression
  2. Dim lambda As LambdaExpression = TryCast(method,LambdaExpression)
  3. If lambda Is Nothing Then
  4. Throw New ArgumentNullException("method")
  5. End If
  6.  
  7. Dim memberExpr As MemberExpression = Nothing
  8.  
  9. If lambda.Body.NodeType = ExpressionType.Convert Then
  10. memberExpr = TryCast(DirectCast(lambda.Body,UnaryExpression).Operand,MemberExpression)
  11. ElseIf lambda.Body.NodeType = ExpressionType.MemberAccess Then
  12. memberExpr = TryCast(lambda.Body,MemberExpression)
  13. End If
  14.  
  15. If memberExpr Is Nothing Then
  16. Throw New ArgumentException("method")
  17. End If
  18.  
  19. Return memberExpr
  20. End Function
  21.  
  22. Public Shared Function GetPropertyName(Of T)(prop As Expression(Of Func(Of T))) As String
  23. Dim expression = GetMemberInfo(prop)
  24. Return expression.Member.Name
  25. End Function
  26.  
  27. Property First_Name As String
  28. Property LastName As String
  29. Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
  30. MessageBox.Show(GetPropertyName(Function() First_Name))
  31. MessageBox.Show(GetPropertyName(Function() LastName))
  32. End Sub

猜你在找的VB相关文章