📄 为什么总是不能从窗体退出.txt
字号:
Unload将 窗 体 卸 载 , 但 并 不 终 止 目 前 仍 然 在 执 行 的 事 件 , 只 有 当 所 有 事 件 程 序 都 结 束 , 程 序 才 最 终 结 束 。 而 你 的 While...Wend循 环 是 死 循 环 , 永 远 也 不 会 结 束 。 你 有 两 个 办 法 :
1、 如 果 你 执 行 Unload Me是 为 了 终 止 整 个 程 序 , 可 以 使 用 End语 句 代 替 Unload Me。
2、 你 可 以 修 改 循 环 的 终 止 条 件 , 比 如 设 置 一 个 全 局 变 量 bStop, 修 改 Form_Load为 :
bStop = False
While Not bStop
...
DoEvents
Wend
修 改 MouseDown事 件 为 :
bStop = True
Unload Me
这 样 你 在 执 行 Unload Me时 , bStop为 True, While循 环 条 件 不 满 足 将 退 出 , 你 的 程 序 就 可 以 正 常 退 出 了 。
<END>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -