VB6 - 如何在运行时捕获异常或错误

Question

我用 VB6 开发了一个应用程序。在客户端环境中，它会引发运行时错误，我无法在调试器下重现该错误。有什么方法可以获取堆栈跟踪或错误位置吗？我创建了日志文件并且

I used Err.Description,Err.Source but it gives blank values.

请帮助我。

 my method(......

    On Error GoTo Error_Handler

             .........
    Error_Handler : 
                  writeToLogFile(Err.Source,Err.Description)

Answer 1

在写入日志文件之前，您可能已经执行了一些操作来清除 Err 对象。这非常非常容易做到。您需要做的是，一旦检测到发生错误，请在执行其他操作之前获取错误消息。然后将错误消息传递给您正在使用的任何日志记录例程。例如:

Dim sMsg As String

On Error Goto ErrHandler

' ...code here...

Exit Function

ErrHandler:
sMsg = "Error #" & Err.Number & ": '" & Err.Description & "' from '" & Err.Source & "'"
GoLogTheError sMsg