GetKey
返回键盘缓冲区中第一个键的ascii代码
result = GetKey
它返回键盘缓冲区中第一个键的ascii代码。密钥从缓冲区中删除。如果没有密钥存在，GetKey等待它。对于扩展密钥（返回两个字符），扩展代码在第一个字节中返回，并且常规代码在第二个字节中返回。（见下面的例子）
钥匙读取不会回显到屏幕。
对于关键字不停止程序，如果缓冲区中没有键，请参阅Inkey或MultiKey.
语法
用法
result = GetKey
返回值
说明
它返回键盘缓冲区中第一个键的ascii代码。密钥从缓冲区中删除。如果没有密钥存在，GetKey等待它。对于扩展密钥（返回两个字符），扩展代码在第一个字节中返回，并且常规代码在第二个字节中返回。（见下面的例子）
钥匙读取不会回显到屏幕。
对于关键字不停止程序，如果缓冲区中没有键，请参阅Inkey或MultiKey.
例子
Dim As Integer foo
Do
foo = GetKey
Print "总回报：" & foo
If( foo > 255 ) Then
Print "扩展代码：" & (foo And &hff)
Print "常规代码：" & (foo Shr 8)
Else
Print "常规代码：" & (foo)
End If
Print
Loop Until foo = 27
Do
foo = GetKey
Print "总回报：" & foo
If( foo > 255 ) Then
Print "扩展代码：" & (foo And &hff)
Print "常规代码：" & (foo Shr 8)
Else
Print "常规代码：" & (foo)
End If
Loop Until foo = 27
方言差异
- 在-lang qb 方言中不可用，除非使用别名__Getkey引用。
与QB差别
- 新的FreeBASIC
参考