易语言取键代码包括鼠标键代码源码
紫游6年前 (2018-02-17)程序控6068
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕, , , QQ:610040471
' 需要组件：时钟1，编辑框1，编辑框2。
_启动窗口.标题 ＝ “取键代码 GetAsyncKeyState”
时钟1.时钟周期 ＝ 50
.子程序 键_当前已按下的键, 整数型, , 返回当前按下键的键代码,没有按键返回"-1"
.局部变量 i, 整数型
.局部变量 D, 整数型
i ＝ 0
.判断循环首 (i ≤ 255)
D ＝ 键_判断函数调用时指定虚拟键的状态 (i)
.如果真 (D ≠ 0)
返回 (i)
跳出循环 ()
.如果真结束
i ＝ i ＋ 1
.判断循环尾 ()
返回 (-1)
.子程序 _时钟1_周期事件
' 监视所有按键
.如果真 (键_当前已按下的键 () ≠ -1)
时钟1.时钟周期 ＝ 0 ' 停止时钟监视
_启动窗口.标题 ＝ “取键代码 GetAsyncKeyState ：” ＋ 到文本 (键_当前已按下的键 ()) ' 或者 调用另一个子程序()
时钟1.时钟周期 ＝ 50 ' 开始时钟监视
.如果真结束
' 指定按键1
.如果真 (键_当前已按下的键 () ＝ 1) ' 1 = 鼠标左键代码
时钟1.时钟周期 ＝ 0 ' 停止时钟监视
_启动窗口.标题 ＝ “取键代码 GetAsyncKeyState ：鼠标左键代码 = ” ＋ 到文本 (键_当前已按下的键 ()) ' 或者 调用另一个子程序()
时钟1.时钟周期 ＝ 50 ' 开始时钟监视
.如果真结束
' 指定按键2
.如果真 (键_当前已按下的键 () ＝ 2) ' 1 = 鼠标左键代码
时钟1.时钟周期 ＝ 0 ' 停止时钟监视
_启动窗口.标题 ＝ “取键代码 GetAsyncKeyState ：鼠标右键代码 = ” ＋ 到文本 (键_当前已按下的键 ()) ' 或者 调用另一个子程序()
时钟1.时钟周期 ＝ 50 ' 开始时钟监视
.如果真结束
