LOCAL

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgLocal
• 最后更新: 2022-03-21

---

用于设置当前错误处理程序的错误处理语句。

语法

On Local Error Goto label

描述

On Error 结构中的 Local 子句允许在与 On Local Error 所在的同一个 Sub 或 Function 中定义错误处理程序。

备注：目前，Local 子句（仅在 Sub/Function 内部允许）被编译器忽略，错误处理程序应在 On [Local] Error 所在的同一过程的作用域内。

示例

start GeSHi

'' compile with -lang fblite or qb

#lang "fblite"

Declare Sub foo

foo
Print "ok"
Sleep

Sub foo
  Dim errno As Integer
  On Local Error Goto fail
  Open "xzxwz.zwz" For Input As #1
  On Local Error Goto 0
  Exit Sub
fail:                  ' here starts the error handler
  errno = Err
  Print "Error "; errno      ' just print the error number
  Sleep
End Sub

end GeSHi

与 QB 的差异

• LOCAL 子句来自 PDS 7.1。QB 4.5 不支持局部错误处理。

参见

• On Error
• Labels

返回 目录