使用 Error.Backtrace().Join("\n") 进行方便的错误跟踪

调试代码时，捕获错误并使用Error的回溯属性Backtrace 跟踪其来源。


Public Sub Form_Load()

' Your Code Here...

Catch
  Message.Error(Error.Text & "\nBacktrace:\n" & Error.Backtrace.Join("\n"))
End

或者...


Public Sub Form_Load()

' Your Code Here...

Catch
  Debug Error.Text & "\nBacktrace:\n" & Error.Backtrace.Join("\n")
End

这种方法可以通过仅在调试编译的对话框中显示错误来进一步改进——如本文所示，同时将错误写入发布编译的日志文件。调试编译和发布编译之间的区别可以通过全局静态常数来实现。

Public $bDEBUG As Boolean = False
Public $sPath As String = "~/gambas-log.txt"

Public Sub Form_Load()

' Your Code Here...

Catch
  Dim sError As String = Error.Text & "\nBacktrace:\n" & Error.Backtrace.Join("\n")
  If $bDEBUG Then
    Message.Error(sError)
  Else
    If LogToFile($sPath, "Error", "My-current-component", sError) = False Then
      ' Somenting really bad happened!
    Endif
  Endif
End


Public Function LogToFile(sPath As String, sCategory As String, sTopic As String, sMessage As String) As Boolean
  Dim hFile As File

  If Exist(sPath) Then
    hFile = Open sPath For Write Append
  Else
    hFile = Open sPath For Write Create
  Endif

  Print #hFile, Now; " | "; sCategory; " | "; sTopic; " | "; Replace$(Replace$(sMessage, "\n", "; "), ":;", ":")
  Close #hFile

  Return True

Catch
  Return False
End