请教一个问题，我要做一个能统计击键次数的小东西

Question

请教一个问题，我要做一个能统计击键次数的小东西，比如说你在WORD里输文本，这个小东东能统计出你的击键次数，只知道要用钩子函数，或者是拦截键盘程序，但不知如何具体做？

Answer 1

Dim i As IntegerPrivate Sub Command1_Click()
    MsgBox i
End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    i = i + 1
    Debug.Print KeyCode
End SubPrivate Sub Form_Load()
    i = 0
    Me.KeyPreview = True
End Sub

Answer 2

dim i as integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    i = i + 1
End Sub
另外通过限制KeyCode 可以分别统计击左键和击右键的次数

Answer 3

错了，错了，不好意思，你是说击键盘是么，我是说击鼠标，不好意思，其实方法一样
有mousedown属性

Answer 4

楼上的好象都不大好吧,如果不在你的FORM上敲键盘呢,楼主要在WORD中啊

Answer 5

是亚，我要在WORD中啊，不是FORM上敲键盘,
                                          楼主