我在互联网上找遍了所有关于VB6中异常处理的答案,都没有找到有用的东西。我想向用户显示一个错误,并在程序遇到该错误的地方停止执行,我不想让执行继续。
我已经研究过在VB6中使用 End
但这不是我想要的。End
关闭所有表格并退出。我还使用了 Stop
但会暂时中止执行。
如果可能的话,我想用这个版本的Visual Basic处理逻辑异常。如果不能处理异常,有没有办法模拟异常?
下面是我在所有项目中使用的一个模板。
Private Sub Test()
On Error GoTo catch
'your code which may cause an error
'if you wanted to raise a user-defined error which start at 513
Err.Raise vbObjectError + 513, "MyModule", "MyMessage"
finally:
'any code that always has to happen
Exit Sub
catch:
'logging, message boxes, etc, however you want to handle the error
MsgBox Err.Number & ": " & Err.Description
Resume finally
End Sub