Question

发生错误时如何重新运行程序[Vb6]？

Answer 1

在VB6中，您可以选择通过启动表单或调用某个全局“Main”例程（在项目设置中）来启动程序。选择后一个选项（全局主例程）。

在您的全局主要例程中，请使用以下内容：

Public Sub MyMain()
    On Error Goto errHandler
    frmMain.Show
    Exit Sub
errHandler:
    Unload frmMain
    Resume
End Sub

Resume将在导致错误的同一行重新启动，并且因为实际上只有一行，所以它将始终加载相同的表单。

这假设您有一个名为frmMain的主表单，并且它可以成功通过Form_Load子例程。

Answer 2

您也可以使用Resume Next继续处理下一条指令

Public Sub MyMain()
    On Error Resume Next
    aNumber = someNumber / 0    'Divide by Zero will yield a run time error
    If Err<>0 Then         'In case you want to re-act with the error to the user
        MsgBox "Divide by Zero Occurred"
    End If
    On Error Goto 0    'This will un-do the effect of On Error Resume Next, meaning
                       ' that if any other error occurs, there will be a runtime error
                       ' use this if you intentionally want to
End Sub

发生错误时如何重新运行程序[Vb6]

2 个答案: