易语言小白求助 实现启动窗口左键单击窗口内任意位置,按钮就跑到那个位置的效果,请问代码问题出在哪里

2025-04-28 02:25:15
推荐回答(1个)
回答1:

.版本 2

.支持库 spec


.子程序 __启动窗口_鼠标左键被按下, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型


.如果 (横向位置 > 按钮1.左边)

    .判断循环首 (横向位置 > 按钮1.左边 + 按钮1.宽度 ÷ 2)

        按钮1.左边 = 按钮1.左边 + 1

        延迟 (10)

    .判断循环尾 ()

.否则

    .判断循环首 (横向位置 < 按钮1.左边 + 按钮1.宽度 ÷ 2)

        按钮1.左边 = 按钮1.左边 - 1

        延迟 (10)

    .判断循环尾 ()

.如果结束


.如果 (纵向位置 > 按钮1.顶边)

    .判断循环首 (纵向位置 > 按钮1.顶边 + 按钮1.高度 ÷ 2)

        按钮1.顶边 = 按钮1.顶边 + 1

        延迟 (10)

    .判断循环尾 ()

.否则

    .判断循环首 (纵向位置 < 按钮1.顶边 + 按钮1.高度 ÷ 2)

        按钮1.顶边 = 按钮1.顶边 - 1

        延迟 (10)

    .判断循环尾 ()

.如果结束

-------------