易语言右下角缓慢弹出公告源码

.版本 2

.程序集 窗口程序集1
.程序集变量 伸缩判断, 逻辑型

.子程序 __启动窗口_创建完毕

载入 (窗口1, _启动窗口, 假)
窗口1.移动 (取屏幕宽度 () － 窗口1.宽度, 取屏幕高度 (), , )
_启动窗口.获取焦点 ()

.子程序 _按钮1_被单击

伸缩判断 ＝ 真
时钟1.时钟周期 ＝ 1

.子程序 _时钟1_周期事件

.如果 (伸缩判断 ＝ 真)
    .如果真 (窗口1.顶边 ＞ 取屏幕高度 () － 窗口1.高度 － 30)
        窗口1.移动 (, 窗口1.顶边 － 1, , )
    .如果真结束

.否则
    .如果真 (窗口1.顶边 ＜ 取屏幕宽度 ())
        窗口1.移动 (, 窗口1.顶边 ＋ 1, , )
    .如果真结束

.如果结束


.子程序 _按钮2_被单击

伸缩判断 ＝ 假
时钟1.时钟周期 ＝ 1

@左手年华右手花