关于"ENTER"键的有关问题

关于"ENTER"键的问题
不管我一直按住 "ENTER "键多久,事件总是触发一次.这样的代码有吗?


------解决方案--------------------
http://community.csdn.net/Expert/topic/5349/5349660.xml?temp=.2797052
这里也在讨论同样的问题
------解决方案--------------------
我来提供一个方法,不过还要改进一下希望谁来解决一下
Option Explicit
Private Declare Function GetCurrentTime Lib "kernel32 " Alias "GetTickCount " () As Long
Dim xx As Long

Private Sub Command1_Click()
Dim yy As Long
yy = GetCurrentTime()
If Abs(yy - xx) > 50 Then
Text1.Text = Text1.Text + 1
End If

xx = GetCurrentTime()
End Sub

Private Sub Form_Load()
xx = GetCurrentTime()
End Sub
思路是按住键不放的话,前后运行的两次时间差不会超过50MS
所以根据此思路提供以上代码!不过经过测试,按住ENTER不放,将执行2次++,这个是我一直搞不明白的事情,按照理论也是只执行一次!希望谁来解析一下.


------解决方案--------------------
不知道这样子行不？？？

按了回车之后， 把焦点转换到别的地方去就行了。