vb GetAsyncKeyState

来源:百度知道 编辑:UC知道 时间:2024/06/22 13:13:17
能不能用GetAsyncKeyState 记录按下的键/?是任意键``
if GetAsyncKeyState(vbkeya) then print a
貌似这样很麻烦```GetAsyncKeyState 这个API有这个功能没有?

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

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