<< 向前        下一页 >>

ID : 109

On Error

功能

指定发生错误等级1的错误时的处理程序。

格式

On Error 处理

指定项目

处理
指定发生错误时的处理。指定“Resume Next”或“GoTo标签名”、“Goto 0”。

解说

执行该语句后的语句中发生错误等级1的错误时，无需停止程序直接处理错误。

通过On Error GoTo 0使错误处理无效。

仅在过程内指定的错误处理有效。

指定处理 错误处理内容
Resume Next 跳过发生错误的语句，执行下一行。
GoTo 标签名 指定错误处理程序的标签名。
GoTo 0 使错误处理无效。

相关项目

Resume、 GoTo、 错误等级1、 错误处理程序、 错误处理示例

注意事项

  • 仅在过程内指定的错误处理有效。参照错误处理示例”
  • 在特权任务、操作盘内发生的等级1、2的错误作为等级3处理。但是、记述On Error时作为等级1处理，执行On Erro指定的处理。

应用示例

'!TITLE "发生错误时执行指定标签的处理"
' 发生错误时显示警告语
Sub Sample_OnErrorGoTo

  Dim aaa As Integer
  
  '错误处理程序为LABEL1
  On Error GoTo LABEL1 
  
  aaa = "test"  ' 进行该处理时发生错误

  ' 发生错误时,跳过该行，执行下一行
  On Error Resume Next 

  aaa = "test"  ' 进行该处理时发生错误

  ' 错误处理程序无效（发生错误）
  On Error GoTo 0 

  aaa = "test"  ' 进行该处理时发生错误
  
  Exit Sub

LABEL1:

  ' 在讯息输出视窗中显示警告语
  PrintDbg "Error Occurred !!"
  Resume Next

End Sub

ID : 109

<< 向前        下一页 >>