易语言制作屏幕右下角弹出窗口的源码

今天小编就为大家分享一篇关于易语言制作屏幕右下角弹出窗口的源码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

屏幕右下角广告

				?

									.版本 2

									.程序集 窗口程序集1

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

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

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

									.如果 (伸缩判断 ＝ 真)

									  .如果真 (窗口1.顶边 ＞ 取屏幕高度 () － 窗口1.高度 － 30)

									    窗口1.移动 (, 窗口1.顶边 － 1, , )

									  .如果真结束

									.否则

									  .如果真 (窗口1.顶边 ＜ 取屏幕宽度 ())

									    窗口1.移动 (, 窗口1.顶边 ＋ 1, , )

									  .如果真结束

									.如果结束

									.子程序 _按钮_关闭_被单击

									伸缩判断 ＝ 假

									时钟1.时钟周期 ＝ 1

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

									伸缩判断 ＝ 真

									时钟1.时钟周期 ＝ 1

									载入 (窗口1, , 真)

									时钟2.时钟周期 ＝ 0

									.子程序 _按钮_弹出_被单击

									载入 (窗口1, _启动窗口, 假)

									窗口1.移动 (取屏幕宽度 () － 窗口1.宽度, 取屏幕高度 (), , )

									_启动窗口.获取焦点 ()

									时钟2.时钟周期 ＝ 2000