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

TPP*_*PPZ 3 string vb6 debugging parsing

我想得到一个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
Run Code Online (Sandbox Code Playgroud)

Erd*_*tur 5

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

AddVariableValue2Log(True, "MyFunction", "MyVariable", MyVariable, Now())
Run Code Online (Sandbox Code Playgroud)