【易语言】【开源】窗口抖动

箭伤心

看到VB的都有了，就是没易语言的，就搞出来给大家玩玩啦
做的不好大家不要笑话啦
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
按钮1.禁止 ＝ 真
抖动窗口 (到数值 (编辑框1.内容), 到数值 (编辑框2.内容))
按钮1.禁止 ＝ 假
.子程序 抖动窗口
.参数 抖动次数, 整数型
.参数 抖动速度, 整数型
.计次循环首 (抖动次数, )
    _启动窗口.移动 (左边 ＋ 10, , , )
    延时 (抖动速度)
    处理事件 ()
    _启动窗口.移动 (, 顶边 ＋ 10, , )
    延时 (抖动速度)
    处理事件 ()
    _启动窗口.移动 (左边 － 10, , , )
    延时 (抖动速度)
    处理事件 ()
    _启动窗口.移动 (, 顶边 － 10, , )
    延时 (抖动速度)
    处理事件 ()
.计次循环尾 ()

huzhishu

额
我是外行的哦
我是看不动了 啊

zarling

易语言是什么东东？

boshila

易语言不大明白……

JOcszJO

易语言写起来真爽~~