如何同时进行？

fgfeng

如图，小孩自己做了一个游戏（很简陋，勿喷，谢谢！）
当我先按下一个小人的热键，再按下另一个小人的热键，第一个被按下热键的小人会暂停运动，只动第二个小人，估计这是键盘本身机制的原因，两个按键不能同时作用。在此请教各位，该如何处理？让两个热键不会互相干扰，谢谢！代码如下（左边小人的热键分别是：w（上）x(下）a（左）d（右）。右边小人的热键分别是 ：↑（上）↓（下）←（左）→（右）)：
.版本 2
.支持库 shellEx
.支持库 EThread
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 向上箭头, 整数型
.程序集变量 向下箭头, 整数型
.程序集变量 左箭头, 整数型
.程序集变量 右箭头, 整数型
.程序集变量 空格键, 整数型
.程序集变量 a, 整数型
.程序集变量 d, 整数型
.程序集变量 w, 整数型
.程序集变量 x, 整数型
.程序集变量 s, 整数型

.子程序 __启动窗口_创建完毕

空格键 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 32)
向上箭头 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 38)
向下箭头 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 40)
左箭头 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 37)
右箭头 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 39)
a ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 65)
d ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 68)
w ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 87)
x ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 88)
s ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 83)

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.判断开始 (参数一 ＝ 空格键)
    _按钮6_被单击 ()
.默认

.判断结束
.判断开始 (参数一 ＝ 向上箭头)
    _按钮10_被单击 ()
.默认

.判断结束
.判断开始 (参数一 ＝ 向下箭头)
    _按钮7_被单击 ()
.默认

.判断结束
.判断开始 (参数一 ＝ 左箭头)
    _按钮9_被单击 ()
.默认

.判断结束
.判断开始 (参数一 ＝ 右箭头)
    _按钮8_被单击 ()
.默认

.判断结束
.判断开始 (参数一 ＝ a)
    _按钮2_被单击 ()
.默认

.判断结束
.判断开始 (参数一 ＝ d)
    _按钮3_被单击 ()
.默认

.判断结束
.判断开始 (参数一 ＝ w)
    _按钮1_被单击 ()
.默认

.判断结束
.判断开始 (参数一 ＝ x)
    _按钮4_被单击 ()
.默认

.判断结束
.判断开始 (参数一 ＝ s)
    _按钮5_被单击 ()
.默认

.判断结束


.子程序 _按钮2_被单击
.局部变量 b, 整数型

强制结束线程 (b)
启动线程 (&W, , b)

.子程序 W

图片框2.左边 ＝ 图片框2.左边 － 5
图片框1.左边 ＝ 图片框1.左边 － 5

.子程序 _按钮3_被单击
.局部变量 b, 整数型

强制结束线程 (b)
启动线程 (&Y, , b)

.子程序 Y

图片框2.左边 ＝ 图片框2.左边 ＋ 5
图片框1.左边 ＝ 图片框1.左边 ＋ 5

.子程序 _按钮1_被单击
.局部变量 b, 整数型

强制结束线程 (b)
启动线程 (&C, , b)

.子程序 C

图片框2.顶边 ＝ 图片框2.顶边 － 5
图片框1.顶边 ＝ 图片框1.顶边 － 5

.子程序 _按钮4_被单击
.局部变量 b, 整数型

强制结束线程 (b)
启动线程 (&P, , b)

.子程序 P

图片框2.顶边 ＝ 图片框2.顶边 ＋ 5
图片框1.顶边 ＝ 图片框1.顶边 ＋ 5

.子程序 _按钮5_被单击
.局部变量 a, 整数型

强制结束线程 (a)
启动线程 (&发射2, , a)

.子程序 _按钮10_被单击
.局部变量 b, 整数型

强制结束线程 (b)
启动线程 (&J, , b)

.子程序 J

图片框3.顶边 ＝ 图片框3.顶边 － 5
图片框4.顶边 ＝ 图片框4.顶边 － 5

.子程序 _按钮9_被单击
.局部变量 b, 整数型

强制结束线程 (b)
启动线程 (&U, , b)

.子程序 U

图片框3.左边 ＝ 图片框3.左边 － 5
图片框4.左边 ＝ 图片框4.左边 － 5

.子程序 _按钮7_被单击
.局部变量 b, 整数型

强制结束线程 (b)
启动线程 (&H, , b)

.子程序 H

图片框3.顶边 ＝ 图片框3.顶边 ＋ 5
图片框4.顶边 ＝ 图片框4.顶边 ＋ 5

.子程序 _按钮8_被单击
.局部变量 b, 整数型

强制结束线程 (b)
启动线程 (&Q, , b)

.子程序 Q

图片框3.左边 ＝ 图片框3.左边 ＋ 5
图片框4.左边 ＝ 图片框4.左边 ＋ 5

.子程序 _按钮6_被单击
.局部变量 a, 整数型

强制结束线程 (a)
启动线程 (&发射1, , a)

.子程序 发射1

.判断循环首 (图片框4.左边 ＞ -200)
    图片框4.左边 ＝ 图片框4.左边 － 20
    .如果真 (图片框4.左边 ＜ -200)
        图片框4.左边 ＝ 图片框3.左边
        返回 ()
    .如果真结束
    延迟 (5)
.判断循环尾 ()


.子程序 发射2

.判断循环首 (图片框1.左边 ＜ 1941)
    图片框1.左边 ＝ 图片框1.左边 ＋ 20
    .如果真 (图片框1.左边 ≥ 1941)
        图片框1.左边 ＝ 图片框2.左边
        返回 ()
    .如果真结束
    延迟 (5)
.判断循环尾 ()

.子程序 _按钮11_被单击

图片框3.图片 ＝ #图片1
图片框4.图片 ＝ #图片6

.子程序 _按钮12_被单击

图片框3.图片 ＝ #图片2
图片框4.图片 ＝ #图片4

.子程序 _按钮13_被单击

图片框3.图片 ＝ #图片3
图片框4.图片 ＝ #图片5

.子程序 _按钮14_被单击

按钮11.可视 ＝ 假
按钮12.可视 ＝ 假
按钮13.可视 ＝ 假
按钮14.可视 ＝ 假
按钮15.可视 ＝ 真

.子程序 _按钮20_被单击

图片框2.图片 ＝ #图片7
图片框1.图片 ＝ #图片8

.子程序 _按钮18_被单击

图片框2.图片 ＝ #图片9
图片框1.图片 ＝ #图片10

.子程序 _按钮19_被单击

图片框2.图片 ＝ #图片11
图片框1.图片 ＝ #图片12

.子程序 _按钮17_被单击

按钮17.可视 ＝ 假
按钮18.可视 ＝ 假
按钮19.可视 ＝ 假
按钮20.可视 ＝ 假
按钮16.可视 ＝ 真

chenboss

修复按键移动图片框失效.e

阿白不爱吃菜

不直接调用子程序,用线程

fgfeng

阿白不爱吃菜 发表于 2025-1-29 01:32
不直接调用子程序,用线程

谢谢回复。现在的问题是已经用了线程，我是希望热键按下后一直起作用，现在估计是键盘的机制问题，两个按键不能同时起作用。举个例子，就象在文本纺辑器里打英文字符，比如这里的回复框。按下字符j不松开，就会一直打出j这个字符，但是在不松开字符j的情况下，按下其它字符比如w，就会一直打出字符w，之前一直按下的字符j就会失效，会一直打出字符w。现在是希望两个按下的按都会一直起作用。不知道我有没有说清楚问题。

判断开始 (参数一 ＝ 向上箭头)
    _按钮10_被单击 ()
.默认

.判断结束

子程序 _按钮10_被单击
.局部变量 b, 整数型

强制结束线程 (b)
启动线程 (&J, , b)