VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何设计一个可中断循环的按钮。
发表评论(0)作者:, 平台:, 阅读:10400, 日期:2000-03-12
如何设计一个可中断循环的按钮。

当 程 序 进 入 循 环 而 尚 未 脱 离 时 , 使 用 者 将 无 法 操 作 表单

上 的 控 制 控 件 , 所 以 按 钮 也 是 无 法 操 作 的 。 想 要 设计 可

中 断 循 环 的 按 钮 , 首 先 必 须 在 循 环 之 中 安 插 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 的 情 况下 而 脱 离 循 环 。