哪位高手帮忙解释一下下面的代码啊

Question

Private Function myhotkey(vkeycode) As Boolean
myhotkey = GetAsyncKeyState(vkeycode)
End Function
我是初学者，谢谢帮忙啊

Answer 1

就是一个自定义函数，参数为vkeycode
在此函数中调用api函数GetAsyncKeyState，下面是api函数GetAsyncKeyState的说明：GetAsyncKeyState VB声明 
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer 
说明 
判断函数调用时指定虚拟键的状态 
返回值 
Long，自对GetAsyncKeyState函数的上一次调用以来，如键已被按过，则位0设为1；否则设为0。如键目前处于按下状态，则位15设为1；如抬起，则为0。微软的win32手册指出：倘若输入焦点从属于与调用函数的输入线程不同的另一个输入线程，则返回值为0（例如，一旦另一个程序拥有焦点，则它应返回零）。证据显示，函数实际是在整个系统的范围内工作的 
参数表 
参数 类型及说明 
vKey Long，欲测试的虚拟键的键码 
注解 
如指定了VK_LBUTTON 或 VK_RBUTTON，按钮的状态就会根据实际的按钮报告——无论是否曾用SwapMouseButton函数对鼠标的位置进行了交换。win32提供了额外的一些虚拟键码，比如VK_LSHIFT 和 VK_RSHIFT，以便在两个完全一样的键中区分出左右（也包括Ctrl 和 Alt）