'使用GetAsyncKeyState函数可以获得键盘的动作。GetAsyncKeyState函数根据虚拟键表判断按键的类型
'返回值为一个16位的二进制数,如果被按下则最高位为1,即返回-32767
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
但我觉得不用API也可以实现:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 120 Then Text1.Text = "hi" 'KeyCode = 120代表F9键,具体可查阅ASC码表
End Sub
有问题Hi我就可以了~
调用 API 函数
呵呵
PostMessage