2012-08-16 85 views
3

我想获得一个VB6变量的名称作为字符串值,以便在日志工具中处理它我正在使用像下面一样(请检查!变量名! !)。获取VB6变量的名称作为字符串值

有什么办法可以达到这个目的吗?我对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 
+1

+1因为我希望它*有可能,但我不相信它。 – MarkJ 2012-08-16 11:06:00

+0

你应该尝试(并尝试过) https://www.google.co.uk/search?q=VB6+obtain+debug+info+programmatically+at+runtime 它提出了很多关于相同 – 2012-08-16 11:06:31

+1

@GermannArlington感谢您的建议。事实上,我不能像你那样用Google解释自己。我在Google和StackOverflow上都使用了“获取VB6变量名称作为字符串值”之类的查询,但未能找到答案。 – TPPZ 2012-08-16 11:16:00

回答

5

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

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

谢谢!我怀疑它,但我无法找到任何有用的信息。 – TPPZ 2012-08-16 11:13:52

相关问题