On Error GoTo ErrorHandler '代码段 '可能会发生错误的代码 Exit Sub ErrorHandler: '错误处理代码 '显示错误消息、记录错误等操作 End Sub ``` 在上面的示例中,当发生错误时,代码会跳转到标签"ErrorHandler"所在的位置执行错误处理代码。您可以根据实际需求在错误处理代码中添加适当的操作,例如显示错误消息、记录...
然后,使用On Error Resume Next语句来延迟错误捕获,以便确定下一语句生成的错误的上下文。 请注意,Err.Clear用于在处理错误后清除Err对象的属性。 VB复制 SubOnErrorStatementDemo()OnErrorGoToErrorHandler' Enable error-handling routine.Open"TESTFILE"ForOutputAs#1 ' Open file for output. Kill "TESTFILE" ' ...
PublicSubOnErrorDemo()OnErrorGoToErrorHandler' Enable error-handling routine.DimxAsInteger=32DimyAsInteger=0DimzAsIntegerz = x / y' Creates a divide by zero errorOnErrorGoTo0' Turn off error trapping.OnErrorResumeNext' Defer error trapping.z = x / y' Creates a divide by zero error again...
PublicSubInitializeMatrix(ByValVar1AsObject,ByValVar2AsObject)OnErrorGoToErrorHandler' Insert code that might generate an error hereExitSubErrorHandler:' Insert code to handle the error hereResumeNextEndSub 此处,错误处理代码跟踪Exit Sub语句后面,并位于End Sub语句前面,以将它与过程流分开。 可以将错误...
On Error GoTo ErrorHandler. . .Exit SubErrorHandler:. . .Resume NextEnd Sub此处,错误处理程序代码在 Exit Sub 语句之后,而在 End Sub 语句之前,从而与过程中的流程分开。错误处理程序代码可以在程序中的任何地方写入。当对象作为文件运行时,对象中未捕获的错误都被返回控制应用程序。在开发环境中,如果设置了...
On Error GoTo ErrorHandler ' 打开错误处理程序。Open "TESTFILE" For Output As #1 ' 打开输出文件。Kill "TESTFILE" ' 试图删除已打开的文件。On Error Goto 0 ' 关闭错误陷阱。On Error Resume Next ' 改变错误陷阱。ObjectRef = GetObject("MyWord.Basic") ' 试图启动不...
如果没有 On Error GoTo 0 语句,在退出过程时,错误处理程序会自动关闭。 在错误未发生的时候,为了防止错误处理程序代码运行,请像在下段程序中那样,在紧靠着错误处理程序的前面写入 Exit Sub、Exit Function 或Exit Property 语句。 Sub InitializeMatrix(Var1, Var2, Var3, Var4) On Error GoTo ErrorHandler ...
event handler 'strMethodName 方法名 'strType 类型,为Sub或Function 'ojbCodeModel 代码窗口,用于检索方法的行号行数 Private Sub dealMethod(ByVal strMethodName$, ByVal strType$, ojbCodeModel As CodeModule) On Error GoTo ErrHand Dim lngFirstProcLine&, lngFirstBodyLine&, lngProcLinesCount& Dim ...