按键精灵如何调用获取按键状态的api
如题,需要知道获取按键状态的api,要求在按住某一个键不松的情况下,按第二个键也能够检测出来的,如果能够防抖最好,不能也行。能够用按键精灵调用的写法,感谢!...
如题,需要知道获取按键状态的api,要求在按住某一个键不松的情况下,按第二个键也能够检测出来的,如果能够防抖最好,不能也行。能够用按键精灵调用的写法,感谢!
展开
1个回答
展开全部
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Function 获取键盘按键状态(键盘码)
Dim 按键状态
按键状态 = GetKeyState(键盘码)
If 按键状态 < 0 Then
//按下状态
获取键盘按键状态 = 1
Else
//弹起状态
获取键盘按键状态 = 0
End If
End Function
Function 获取键盘按键状态(键盘码)
Dim 按键状态
按键状态 = GetKeyState(键盘码)
If 按键状态 < 0 Then
//按下状态
获取键盘按键状态 = 1
Else
//弹起状态
获取键盘按键状态 = 0
End If
End Function
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |