充实每一天
停止空想,付诸行动;踏踏实实学知识,老老实实做人。 http://pan.baidu.com/s/1zgse6

备份下

这些键只能使用扫描码,没有ASCII码
────────────────────────
     Key       Code

     F1          59
     F2          60
     F3          61
     F4          62
     F5          63
     F6          64
     F7          65
     F8          66
     F9          67
     F10         68
     F11        133
     F12        134
     NumLock     69
     Scroll Lock 70
     Home or 7   71
     Up or 8     72
     PgUp or 9   73
     Gray -      74
     Left or 4   75
     Center or 5 76
     Right or 6  77
     Gray +      78
     End or 1    79
     Down or 2   80
     PgDn or 3   81
     Ins or 0    82
     Del or .    83

--------------------------------这些是扫描码,在识别前加chr$(0)

例:
WHILE INKEY$ <> CHR$(0)+chr$(72): WEND
或者是:

引用:
DO
  K$=INKEY$
LOOP UNTIL K$<>""
? ASC(right$(K$,1))
END

 

posted on 2009-06-02 17:38  舵手  阅读(203)  评论(0编辑  收藏  举报