易语⾔制作屏幕右下⾓弹出窗⼝的源码
屏幕右下⾓⼴告
.版本 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
运⾏结果:
总结
以上就是这篇⽂章的全部内容了,希望本⽂的内容对⼤家的学习或者⼯作具有⼀定的参考学习价值,谢谢⼤家对的⽀持。如果你想了解更多相关内容请查看下⾯相关链接
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论