Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Static count As Integer
        count = count + 1
        TextBox1.Text = "你点了我" + count.ToString + "次"
    End Sub
点一次就显示一次 ，，但是你恩住enter 键他会不断的运行，，，
我的意思是恩enter 键不能恩住，，，也要象鼠标那样一下一下点。。。。
高手指教！！！谢了··

你这个是做的吗？
我只知道vb里面单击鼠标和选中按钮按回车都会响应Private Sub Command1_Click()这个事件

其实 我想知道是因为很多小游戏。。。如飞机类的游戏，，，，在按钮上有的设置连击，，，想学学！！！！
希望有人能解决。。。。。谢！！

谢了！！！~~~~~~~~

我们换个思路来想这个问题不?
1\增加一个timer控件,定义一个全局变量,这个变量为 integer 或long
2\在keydown事件中,如果取到的键,就把这个全局变量置为 对应的键值,然后启动timer开始计时.
3\每计一次时,就调用一次按键处理程序.
4\如果发生 keyup 事件,再把这个保存的按键置为0

相关测试代码如下:
新建一个工程,放一个 timer 控件,用下面的代码段.

Option Explicit
Dim keysave As Long
Dim keyjs As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    keysave = KeyCode
    Call 按键处理
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    keysave = 0
End Sub

Private Sub 按键处理
    keyjs = keyjs + 1
    Me.Cls
    Me.Print keysave
    Me.Print keyjs

End Sub

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
    If keysave > 0 Then
        Call 按键处理
    End If
End Sub

[[it] 本帖最后由 风吹过b 于 2008-10-17 16:56 编辑 [/it]]

这是 VB6 的代码.

首先，Enter与空格的不同就在于这个特性，换句话说，Enter就是干这个的。
如果你会玩API，你试试在探测到Enter按下的时候帮他把Enter松开。我没试过。
换个思路，你也可以控制两次运行这个Sub的时间间隔。小于指定间隔的不予处理。

在Click事件激活时检测键盘Enter键是否处于按下状态，如果是，直接跳出。

当然，最精确的方式是，钩住按钮的键盘信息，把所有的13号键盘信息(Enter)改为32号(Space)信息，然后把事件处理放在KeyUp事件中，不用Click，这样就只能按一下Enter键或是空格键并弹起后才能激活事件。

收到的鲜花

• multiple1902 于 2008-10-18 11:41 送鲜花  18朵   附言：好方法！