Question

vb GetAsyncKeyState

能不能用GetAsyncKeyState 记录按下的键/?是任意键``
if GetAsyncKeyState(vbkeya) then print a
貌似这样很麻烦```GetAsyncKeyState 这个API有这个功能没有?

Answer 1

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_LSHIFT = &HA0

Private Sub Command1_Click()
Dim p As Long
p = GetAsyncKeyState(VK_LSHIFT)
MsgBox p
End Sub

对你问题回答：没有这个功能。这个函数需要你指定对某个键监视，判断是被按下或者弹起.