Private Declare Function GetAsyncKeyState Lib "user32" ( ByVal vKey As Long ) As Integer '声明
Function GetKey() As String
Dim AddKey As String
KeyResult = GetAsyncKeyState( 32 ) '回车键
If KeyResult = - 32767 Then
AddKey = "[ENTER]"
GoTo KeyFound
End If
KeyFound
'显示键的信息
If AddKey = "" Then
Exit Function
Else
GetKey = AddKey
'-------------------------
End If
End Function
Private Sub Timer1_Timer() '显示按键
Static a As String
a = GetKey
If a <> "" Then Label1.Caption = a
End Sub