2012-08-16 148 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