vb中如何得到单击次数

来源：百度知道 编辑：UC知道 时间：2024/06/15 09:59:19
我现在要实现一个这样的功能，我要计算我在1分钟内不停的点击鼠标 计算我在1分钟内点击鼠标的次数 最后将次数显示在窗体上。

Option Explicit

Private Sub Form_Click()
Static i As Integer '定义静态变量
i = i + 1
Me.Cls
Me.Print "您单击了:" & i & "次"
End Sub

第二种方法:
dim i as integer
Private Sub Form_Click()
i = i + 1
Me.Cls
Me.Print "您单击了:" & i & "次"
End Sub

哈哈！应该用 MouseDown！否则就算成双击了