在VB.NET中将变量名存储在String中

Imports System.Reflection

Module Module1

    Sub Main()
        Dim variableName As String = GetVariableName(Of String)(Function() myVariable)
        Console.WriteLine($"The variable name is: {variableName}")
    End Sub

    Function GetVariableName(Of T)(ByVal expression As Expression(Of Func(Of T))) As String
        Dim memberExpression As MemberExpression = TryCast(expression.Body, MemberExpression)
        If memberExpression IsNot Nothing Then
            Return memberExpression.Member.Name
        End If
        Return Nothing
    End Function

    Dim myVariable As String = "Hello, world!"

End Module