Visual 6如何使用异常？

Question

我在互联网上到处寻找解决VB6异常处理问题的答案，却找不到任何有用的答案。我想向用户显示一个错误，并在程序遇到错误时停止该程序的执行，我不希望继续执行。

我已经研究过使用End，但这不是我想要的。End关闭所有窗体并退出。我也使用过Stop，但这会暂时中止执行。

如果可能的话，我希望用这个版本的Visual来处理逻辑异常。如果没有例外情况，是否有办法仿效它们？

Answer 1

下面是我在所有项目中使用的模板：

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