设计一个可中断回圈的命令钮

当 程 式 进 入 回 圈 而 尚 未 脱 离 时 ， 使 用 者 将 无 法 操 作 表单 上 的 控 制 元 件 ， 所 以 命 令 钮 也 是 无 法 操 作 的 。 想 要 设计 可 中 断 回 圈 的 命 令 钮 ， 首 先 必 须 在 回 圈 之 中 安 插 DoEvents 叙 述 ， 例 如 ：

While ...
回 圈 内 的 处 理 工 作
DoEvents
Wend
DoEvents 的 作 用 是 暂 时 释 放 CPU， 让 其 他 程 式 得 以 被 执 行， 也 就 是 让 使 用 者 可 以 操 作 表 单 上 的 控 制 元 件 。

接 着 宣 告 一 个 全 域 变 数 ： Dim bExit As Boolean， 然 後 在 回圈 中 增 加 以 下 的 判 断 式 ：

While Not bExit
回 圈 内 的 处 理 工 作
DoEvents
Wend
bExit = False
最 後 则 是 在 命 令 钮 的 Click 事 件 程 序 中 撰 写 以 下 叙 述 ：

bExit = True
以 上 程 式 有 两 大 重 点

(1) DoEvents 让 使 用 者 可 以 按 下 命令 钮

(2) 命 令 钮 按 下 时 ， 将 全 域 变 数 bExit 设 定 成 True， 使 得 程 式 在 判 断 Not bExit 为 False 的 情 况下 而 脱 离 回 圈 。