如何实现VB6中的错误处理程序错误处理机制？

本文共计310个文字，预计阅读时间需要2分钟。

在VB6应用程序中，我经常遇到以下情况：在子程序中，当发生错误时，使用Private Sub DoSomething On Error GoTo err1 Call ProcessLargeBatch1 Call ProcessLargeBatch2 ... ... Exit Sub err1: Call Cleanup '针对DoSomething的特定清理' Call HandleError '通用错误处理' End Sub

我经常在VB6应用程序中遇到这种情况

Private Sub DoSomething On Error Goto err1 Call ProcessLargeBatch1 Call ProcessLargeBatch2 '... more ...' Exit Sub err1: Call Cleanup 'Specific for DoSomething' Call HandleError 'General error handling: Logging, message box, ...' End Sub

清理过程有时会还原操作,回滚事务,删除临时文件等.在大多数情况下,此操作也可能失败.

在这种情况下我该怎么办？我将在错误处理程序中添加一个On Error Resume Next但删除现有的Err对象.向Cleanup添加错误处理程序具有相同的问题.

确保原始错误仍然得到处理/记录的最佳方法是什么？

编辑：另一个问题是我还想通知用户错误.有时重要的是,清理很快发生,我不希望消息框长时间阻止应用程序,并在用户确认错误后进行清理.

首先,从Err对象中读取您需要的所有信息,即数字,描述等,然后清除错误并执行您想要的操作.

更改通知用户使用已缓存的值的方式,而不是使用Err对象本身.