Question

用易语言如何做一个可随按建按下移动物体！

用易语言如何做一个按下w键就会使图片框向左移动！不按w键就停止移动。求源码

Answer 1

添加一个时钟、一个按钮、一个标签组件(不要改动组件名称)，然后写如下代码:

.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 ＝ #W键 且 按钮1.顶边 ≥ -10) ' 且条件不用管，那个只是作为不让按钮跑出窗口外的条件而已
按钮1.顶边 ＝ 按钮1.顶边 － 10
.如果真结束
.如果真 (键代码 ＝ #A键 且 按钮1.左边 ≥ -10)
按钮1.左边 ＝ 按钮1.左边 － 10
.如果真结束
.如果真 (键代码 ＝ #D键 且 按钮1.左边 ≤ _启动窗口.宽度 － 按钮1.宽度 － 10)
按钮1.左边 ＝ 按钮1.左边 ＋ 10
.如果真结束
.如果真 (键代码 ＝ #S键 且 按钮1.顶边 ≤ _启动窗口.高度 － 2 × 按钮1.高度)
按钮1.顶边 ＝ 按钮1.顶边 ＋ 10
.如果真结束

.子程序 _时钟1_周期事件
标签1.标题 ＝ 到文本 (按钮1.左边) ＋ “,” ＋ 到文本 (按钮1.顶边)
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 ＝ 100