string - 获取 VB6 变量的名称作为字符串值

Question

我想获取一个 VB6 变量的名称作为字符串值，以便在我使用的日志工具中处理它，如下所示（请检查 !!!VariableName !!!）。

有什么办法可以做到这一点？我对 VB6 很陌生，我应该维护和调试现有的旧 VB6 代码。

Public Sub AddVariableValue2Log(ByVal checkDebug, _
                                ByVal sFunctionName As String, _
                                ByVal sVariableValue As String, _
                                ByVal sTimeStamp As String)

  If checkDebug Then
    Dim sLogPath As String
    sLogPath = "C:\Temp\Log_" & sTimeStamp & ".txt"

    Dim fn As Integer
    fn = FreeFile

    Open sLogPath For Append As #fn
    Write #fn, Now & "|" & sFunctionName & "|>>>!!!VariableName!!! value: [" & sVariableValue & "]"
    Close #fn
  End If

End Sub

Answer 1

这在 VB6 中是不可能的。您必须传递变量的名称。

AddVariableValue2Log(True, "MyFunction", "MyVariable", MyVariable, Now())