Question

vb 中GetAsyncKeyState函数的问题？

Private Sub Timer1_Timer() Dim Res As Long Dim i As Integer For i = 0 To 255 Res = GetAsyncKeyState(i) If Res = -32767 Then Text1.Text = Text1.Text & GetKeyName(i) & Chr(13) & Chr(10) End If Next i End Sub 以上是键盘记录代码的一部分 我不明白里面的 If Res = -32767 Then 这句的意思,为什么是-32767，这个数有什么含义?

Answer 1

呵呵，如果你了解GetAsyncKeyState()函数的返回值，你的问题就解决了。GetAsyncKeyState函数根据虚拟键表判断按键的类型。返回值为一个16位的二进值数，如果被按下则最高位为1，即返回-32767。你上面的代码If Res = -32767 Then ……是判断键是否被按下，如果按下执行Then后面语句。