# Re: 注意 DoEvents

Posted by Eric Liu on June 24, 1998 at 14:14:05:

In Reply to: 注意 DoEvents posted by 小吴 on June 23, 1998 at 14:05:35:

: 你的第一个问题有些奇怪。如果程式真的只有那样少少几行的话，是不可能发生这种现象的。

: 唯一的可能就是你在储存资料的程式有使用到 DoEvents，如果你有用到 DoEvents 的话，在你程式储存中将有可以触发多次的 cmdOK_Click，或是 Unload Me 之后仍有程式在执行，导致 Form 会延迟 unload。这点请你检查一下。

如你所说 果然是 DoEvents 造成的不过想再请教
我曾把 Me.Enable 设成 False 但无效

Private Sub CmdOk_Click()
Me.Enabled=False
If SaveData = 0 Then
Unload Me
Else
Me.Enabled=True
End if
End Sub

照理说在 SaveData 中即使有 DoEvents 可
储存多次的 "cmdOK_Click" Event
但这些 Event 遇到 Me.Enable = Fasle 也应该无效
怎么还是会触发

Follow Ups:

- Re: 注意 DoEvents Evan 20:29:58 6/24/98 (0)
- 设定 Enabled 是没用的 小吴 16:43:58 6/24/98 (0)