VB6.0如何实现用户点击F12，当F12弹起的时候自动记录一次

用户按1下F12，这时VB不记录，我想要VB不记录按下的动作，只记录F12弹起的动作，这个怎么实现呢？If GetAsyncKeyState(VK_F12) = -32768 Then
次数= 次数+ 1

上面的代码是记录如果用户点击一下F12，则次数加上1，我想要用户按下F12，当用户送手后，F12键就弹起，这个时候VB再自动记录一次，怎么实现，高手帮帮

注：用于AcitveX控件，不是标准EXE文件

再教你一个简单的。只检测按下事件

'在控件中添加一个timer控件.

'

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Dim lngTmp As Long
Dim lngBak As Long
Dim lngCnt As Long

Private Sub Timer1_Timer()
lngTmp = GetKeyState(vbKeyF12)

If lngTmp <> lngBak And lngTmp <> 0 And lngTmp <> 1 Then
lngBak = lngTmp
lngCnt = lngCnt + 1
Me.Caption = lngCnt
End If
End Sub

EXE的可以解决，问题是你活动控件要在哪里应用

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息