Question

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

用户按1下F12，这时VB不记录，我想要VB不记录按下的动作，只记录F12弹起的动作，这个怎么实现呢？If GetAsyncKeyState(VK_F12) = -32768 Then 次数= 次数+ 1 上面的代码是记录如果用户点击一下F12，则次数加上1，我想要用户按下F12，当用户送手后，F12键就弹起，这个时候VB再自动记录一次，怎么实现，高手帮帮 注：用于AcitveX控件，不是标准EXE文件

Answer 1

再教你一个简单的。只检测按下事件 '在控件中添加一个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

麻烦采纳，谢谢!