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

2024-12-03 21:05:14
推荐回答(1个)
回答1:

.版本 2

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

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