paint事件不停发生.txt

VB技巧问答10000例 VB技巧问答10000例

由 于 没 用 具 体 代 码 ， 只 能 给 一 点 建 议 。 
    一 般 来 说 ， Refresh事 件 会 触 发 Paint事 件 ， 控 件 的 移 动 也 可 能 会 触 发 Paint事 件 。 所 以 先 找 找 你 的 代 码 中 是 否 有 这 样 的 代 码 。 你 也 可 以 在 Paint事 件 中 定 义 一 个 变 量 ： 
    Static bPaint As Boolean 
    在 Paint事 件 一 开 始 加 上 这 样 的 语 句 ： 
    If bPaint Then Exit Sub 
    bPaint = True 
    在 Paint事 件 结 束 时 加 上 bPaint = False。 这 样 可 以 避 免 一 个 Paint事 件 尚 未 结 束 ， 另 一 个 Paint事 件 就 发 生 。 
    如 果 这 些 办 法 都 不 能 解 决 问 题 ， 你 就 必 须 每 次 注 释 掉 几 行 绘 图 的 代 码 ， 然 后 运 行 一 下 ， 看 看 到 底 是 哪 些 代 码 造 成 的 这 个 问 题 。 
<END>