📄 3425.html
字号:
<html>
<head>
<title>重覆执行的问题</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>重覆执行的问题</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:eric@informm.com.tw">Eric Liu</a> on June 22, 1998 at 11:27:14:<p>
<p>我写了一个资料库维护的 Form <br>功能是按 "OK" button 将Form 上的资料新增至资料库<br>"OK" button 程式如下<br>SaveData 是 function 新增成功传回0<br> 新增失败传回 Error Number<p>Private Sub CmdOk_Click()<br>'if flag=true then exit sub<br> <br> If SaveData = 0 Then<br> Unload Me<br> edn if<p>End Sub<p>若我以 "Tab" 键将 Focus 移至 "Ok" button 然后快速连按 "Enter"键<br>理论上应执行一次就 unload me 了<br>但 VB 却执行了多次 <br>(好像因为 SaveData 执行时间又接收 "Enter"键而触发 CmdOk_Click )<p><br>虽然可于 SaveData function 内设一个 Flag <br>若 SaveData 未执行完 flag=true <br>"OK" button 程式若发现 flag=true 则 exit sub<br>(注解符号那行)<p>但觉得此法太笨<p><br>且类似问题亦发生于 Form 切换时<br>当于 Form1 上 click 某 buttin 呼叫 Foem2.show 时<br>于Form2 未 Show起时<br>若再于 Form1 到处 Click <br>这些 Click Enent 会于Form2 Show起后触发于 Form2 <p>请问这重覆执行的问题应如何解?<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 3425-->
<!--top: 3432--><li><a href="3432.html">Re: 重覆执行的问题</a> <b>纪文和</b> <i>14:43:02 6/23/98</i>
(<!--responses: 3432-->0)
<ul><!--insert: 3432-->
</ul><!--end: 3432-->
<!--top: 3431--><li><a href="3431.html">注意 DoEvents</a> <b>小吴</b> <i>14:05:35 6/23/98</i>
(<!--responses: 3431-->3)
<ul><!--insert: 3431-->
<!--top: 3457--><li><a href="3457.html">Re: 注意 DoEvents</a> <b>Eric Liu</b> <i>14:14:05 6/24/98</i>
(<!--responses: 3457-->2)
<ul><!--insert: 3457-->
<!--top: 3466--><li><a href="3466.html">Re: 注意 DoEvents</a> <b>Evan</b> <i>20:29:58 6/24/98</i>
(<!--responses: 3466-->0)
<ul><!--insert: 3466-->
</ul><!--end: 3466-->
<!--top: 3461--><li><a href="3461.html">设定 Enabled 是没用的</a> <b>小吴</b> <i>16:43:58 6/24/98</i>
(<!--responses: 3461-->0)
<ul><!--insert: 3461-->
</ul><!--end: 3461-->
</ul><!--end: 3457-->
</ul><!--end: 3431-->
</ul><!--end: 3425-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -