易语言制作屏幕右下角弹出窗口的源码
<p><strong>屏幕右下角广告</strong></p><div class="jb51code">
<pre class="brush:xhtml;">
.版本 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</pre>
</div>
<p><strong>运行结果：</strong></p>
<p style="text-align: center"><img id="theimg" src="https://img.jbzj.com/file_images/article/201812/2018125112138311.png?2018115112155" alt="" /></p>
<p><strong>总结</strong></p>
<p>以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对琼殿技术社区的支持。如果你想了解更多相关内容请查看下面相关链接<br />
</p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>易语言地下城与勇士拾取卖物功能类源码</li><li>易语言地下城与勇士辅助顺图类源码</li><li>易语言地下城与勇士辅助剧情类源码</li><li>易语言制作DNF解封源码</li><li>易语言超级列表框表项关键字搜索代码示例</li><li>易语言赋值定义多维数组的代码实例</li><li>易语言制作黑客小程序源码</li><li>易语言获取程序已运行时间的代码</li><li>易语言制作英雄联盟辅助的源码</li><li>易语言地下城与勇士辅助自动刷图类源码</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]