Question

易语言使用按键移动无边框窗口

易语言使用按键移动无边框窗口
无边框窗口
使用方向键“上”，整个窗口上移1个像素
使用方向键“下”，整个窗口下移1个像素
使用方向键“左”，整个窗口左移1个像素
使用方向键“右”，整个窗口右移1个像素

请问要怎么写代码？谢谢

Answer 1

.版本 2

.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (键代码 ＝ 38)
_启动窗口.顶边 ＝ _启动窗口.顶边 － 1
.如果真结束
.如果真 (键代码 ＝ 40)
_启动窗口.顶边 ＝ _启动窗口.顶边 ＋ 1
.如果真结束
.如果真 (键代码 ＝ 37)
_启动窗口.左边 ＝ _启动窗口.左边 － 1
.如果真结束
.如果真 (键代码 ＝ 39)
_启动窗口.左边 ＝ _启动窗口.左边 ＋ 1
.如果真结束