Question

易语言如何记录鼠标点击?要求如下:

程序运行后,单击鼠标左键时,编辑框内加入"鼠标左键单击第1次" 单击第2次时加入"鼠标左键单击第2次"以后以此类推!请说具体代码!如过要什么模块,请提前说明!谢谢!!

Answer 1

以下代码：.版本 2
.支持库 EdirectX.程序集 窗口程序集1
.程序集变量 左键次数, 整数型
.程序集变量 右键次数, 整数型.子程序 __启动窗口_创建完毕输入设备1.置刷新时间 (50)
输入设备1.选择输入设备 (真, 假, 假)
输入设备1.初始化 (0)
左键次数 ＝ 0
右键次数 ＝ 0.子程序 _输入设备1_鼠标按键被改变
.参数 键值, 整数型
.参数 键状态, 整数型.如果真 (键值 ＝ 256 且 键状
态 ＝ 1) ' 左键被按下且放开
左键次数 ＝ 左键次数 ＋ 1
标签1.标题 ＝ “鼠标左键被单击” ＋ 到文本 (左键次数) ＋ “次”
.如果真结束.如果真 (键值 ＝ 257 且 键状态 ＝ 1) ' 右键被按下且放开
标签2.标题 ＝ “鼠标左键被单击” ＋ 到文本 (左键次数) ＋ “次”
.如果真结束