# Re: 重覆执行的问题

Posted by 纪文和 on June 23, 1998 at 14:43:02:

In Reply to: 重覆执行的问题 posted by Eric Liu on June 22, 1998 at 11:27:14:

: 若我以 "Tab" 键将 Focus 移至 "Ok" button 然后快速连按 "Enter"键
: 理论上应执行一次就 unload me 了
: 但 VB 却执行了多次
: (好像因为 SaveData 执行时间又接收 "Enter"键而触发 CmdOk_Click )

之前在我们公司也发生过类似的问题, 很难找到原因, 不过我觉得您可以如下这么做:
反正, 在存档成功后, 您就要Unload Form,
Private Sub CmdOk_Click()
CmdOk.Enabled=False
If SaveData = 0 Then
____Unload Me
Else
____CmdOk.Enabled=True
End if
End Sub

Follow Ups: