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

Question

我在 VB6 中开发了一个应用程序。在客户端的环境中，它会引发运行时错误，我无法在调试器下重现这些错误。有没有办法获得错误的堆栈跟踪或位置？我创建了日志文件和

我使用 Err.Description,Err.Source 但它给出了空白值。

请帮我。

 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