精易论坛

标题: 比易语言新建自带例子的 【窗口收缩】 简单、 快捷、 易懂 [打印本页]

---

作者: 汉族    时间: 2018-3-22 12:19
标题: 比易语言新建自带例子的 【窗口收缩】 简单、 快捷、 易懂
下载地址是：https://125.confly.eu.org/forum.php?mod=viewthread&tid=14140523&page=1#pid12792179
这里是直连（不知道行不行）：https://125.confly.eu.org/plugin.php?id=le3600_down:show&aid=NzQxMTE0fGMwZjU2Y2Q2fDE1MjE2OTIyNjV8ODgyMjN8MTQxNDA1MjM%3D


看图片：

  

子程序名	返回值类型	公开	备 注
_时钟1_周期事件			修复可调整窗口后的问题

处理事件 ()
如果 (取鼠标水平位置 () ≥ 左边 且 取鼠标水平位置 () ≤ 左边 ＋ 宽度 且 取鼠标垂直位置 () ≥ 顶边 且 取鼠标垂直位置 () ≤ 顶边 ＋ 高度)
如果真 (顶边 ＜ 0)
' 移动 (, 顶边 ＋ 20, , )
顶边 ＝ 顶边 ＋ 20
如果真 (顶边 ＞ 0)
顶边 ＝ 0


如果真 (顶边 ≤ 0)  ' 上回缩
如果 (顶边 ＞ －高度)
' 移动 (, 顶边 － 20, , )
顶边 ＝ 顶边 － 20
顶边 ＝ －高度  ' 出错转换

.版本 2<br /> <br /> .子程序 _时钟1_周期事件, , , 修复可调整窗口后的问题<br /> <br /> 处理事件 ()<br /> .如果 (取鼠标水平位置 () ≥ 左边 且 取鼠标水平位置 () ≤ 左边 ＋ 宽度 且 取鼠标垂直位置 () ≥ 顶边 且 取鼠标垂直位置 () ≤ 顶边 ＋ 高度)<br />     .如果真 (顶边 ＜ 0)<br />         ' 移动 (, 顶边 ＋ 20, , )<br />         顶边 ＝ 顶边 ＋ 20<br />         .如果真 (顶边 ＞ 0)<br />             顶边 ＝ 0<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .否则<br />     .如果真 (顶边 ≤ 0)  ' 上回缩<br />         .如果 (顶边 ＞ －高度)<br />             ' 移动 (, 顶边 － 20, , )<br />             顶边 ＝ 顶边 － 20<br />         .否则<br />             顶边 ＝ －高度  ' 出错转换<br />         .如果结束

---

作者: wetuuh    时间: 2018-3-22 12:22
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: smxmcylw    时间: 2018-3-22 12:36
感谢分享，学习研究。。。

---

作者: HDlove    时间: 2018-3-22 13:00
很不错的样子

---

作者: 网络注册会员    时间: 2018-3-22 14:28
这个不是缓动吧

---

作者: 沁园春2016    时间: 2018-3-23 08:30
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: clocks    时间: 2018-3-23 12:16
简单粗暴，但是是一个很好的例子

---

作者: 对白    时间: 2018-3-24 13:02
感谢分享，精易因你更精彩！

---

作者: gaoqing    时间: 2018-3-26 12:58
谢谢分享试试

---

作者: ljty1980    时间: 2018-5-6 21:52
谢谢分享，，，学习

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4