GetAysncKeyState小写字母

如何解决GetAysncKeyState小写字母

| 我已经声明了功能

Public Declare Function GetAsyncKeyState Lib \"user32\" (ByVal vkey As Int32) As Integer

但是像这样的代码

If GetAsyncKeyState(100) then
\'do something
End

将不起作用[它曾经是-.-]。但是用\'Keys.D \'代替100。剩下的问题是仅限于大写字母。 有没有办法在GetAsyncKeyState中使用Keys.a（小写形式）或使用ASCII代码？ 提前致谢。     

解决方法

        

100

（十进制）是

VK_NUMPAD4 (0x64)

？ 如果要检测小写，则需要检查

VK_CAPITAL

和

VK_SHIFT

的状态。