O N E S C A P E 命 令

指定在程序或命令运行过程中 按下 ESC 键时所执行的命令

语 法

ON ESCAPE

[ Command ]

参 数 描 述

Command

指 定 V isual FoxPro 要 执 行 的 命 令 命 令 执 行 之 后 程 序 将 从 按 下 ESC 键 时所 在 执 行 程 序 行 的 下 一 行 重 新 开 始 执 行 但 如 果 在 ON ESCAPE 指 定 的 过 程中 包 含 RETRY 则 重 新 执 行 按 下 ESC 键 时 正 执 行 的 程 序 行

说 明

一般来说 ON ESCAPE 使用 DO 来执行一个过程

如果在按下 ESC 时 ON ESCAPE 和 ON KEY 都 有效 Visual FoxPro 将执行 ON ESCAPE 指定的命令

若使用不带命令的 ON ESCAPE 按下 ESC 键时将不执行任何命令 (默认情况 )

注 意 如 果 SET ESCAPE 为 OFF V isual FoxPro 将 不 执 行 ON ESCAPE 过程

示 例

下面的示例设置了一个无限循环 但是定义了一个 ON ESCAPE 例程以退出

SET ESCAPE ON

ON ESCAPE DO stopit

WAIT WINDOW 'Press ESC to stop loop' NOWAIT glMoreLoop = .T.

DO WHILE glMoreLoop ENDDO

RETURN

PROCEDURE stopit glMoreLoop = .F. RETURN

请 参 阅

INKEY ( )