功能_贴边隐藏 BUG修复版

小磊 · 发表于 2014-6-8 23:55:43

本帖最后由小磊于 2014-6-9 10:59 编辑

最近写一个小程序用到的代码片段，有个小BUG我修复了下，发上来备用

子程序名	返回值类型	公开	备注
功能_贴边隐藏			模仿QQ隐藏窗口效果，放在时钟事件下，并将时钟周期设置为100以下
参数名	类型	参考	可空	数组	备注
窗口名称	窗口				窗口名称，如_启动窗口，非窗口句柄

如果真 (窗口名称.左边＜ 0 且窗口名称.顶边＜ 0)

窗口名称.移动 (0, 1, , )

如果真 (窗口名称.左边 ≥ 取屏幕宽度 () －窗口名称.宽度且窗口名称.顶边＜ 0)

窗口名称.移动 (取屏幕宽度 () －窗口名称.宽度－ 1, 0, , )

如果真 (窗口名称.顶边＜ 0 且取鼠标水平位置 () ＞窗口名称.左边且取鼠标水平位置 () ＜窗口名称.左边＋窗口名称.宽度且取鼠标垂直位置 () ＜ 3)

窗口名称.顶边＝ 0

如果真 (窗口名称.顶边 ≤ 0 且窗口名称.左边＞ 0 且窗口名称.左边＜取屏幕宽度 () －窗口名称.宽度)

如果真 (取鼠标水平位置 () ＜窗口名称.左边或取鼠标水平位置 () ＞窗口名称.左边＋窗口名称.宽度或取鼠标垂直位置 () ＞窗口名称.顶边＋窗口名称.高度)

窗口名称.顶边＝ 3 －窗口名称.高度

如果真 (窗口名称.左边＜ 0 且取鼠标垂直位置 () ＞窗口名称.顶边且取鼠标垂直位置 () ＜窗口名称.顶边＋窗口名称.高度且取鼠标水平位置 () ＜ 3)

窗口名称.左边＝ 0

如果真 (窗口名称.左边 ≤ 0 且窗口名称.顶边＞ 0 且窗口名称.顶边＜取屏幕高度 () －窗口名称.高度)

如果真 (取鼠标垂直位置 () ＜窗口名称.顶边或取鼠标垂直位置 () ＞窗口名称.顶边＋窗口名称.高度或取鼠标水平位置 () ＞窗口名称.宽度)

窗口名称.左边＝ 3 －窗口名称.宽度

如果真 (取鼠标水平位置 () ＞取屏幕宽度 () － 3)

如果真 (取鼠标垂直位置 () ＞窗口名称.顶边且取鼠标垂直位置 () ＜窗口名称.顶边＋窗口名称.高度且取屏幕宽度 () － 3 ＝窗口名称.左边)

窗口名称.左边＝取屏幕宽度 () －窗口名称.宽度

如果真 (窗口名称.左边 ≥ 取屏幕宽度 () －窗口名称.宽度且窗口名称.顶边＞ 0 且窗口名称.顶边＜取屏幕高度 () －窗口名称.高度)

如果真 (取鼠标垂直位置 () ＜窗口名称.顶边或取鼠标垂直位置 () ＞窗口名称.顶边＋窗口名称.高度或取鼠标水平位置 () ＜取屏幕宽度 () －窗口名称.宽度)

窗口名称.左边＝取屏幕宽度 () － 3

.版本 2<br />
<br />
.子程序 功能_贴边隐藏, , , 模仿QQ隐藏窗口效果，放在时钟事件下，并将时钟周期设置为100以下<br />
.参数 窗口名称, 窗口, , 窗口名称，如_启动窗口，非窗口句柄<br />
<br />
.如果真 (窗口名称.左边 ＜ 0 且 窗口名称.顶边 ＜ 0)<br />
    窗口名称.移动 (0, 1, , )<br />
.如果真结束<br />
<br />
.如果真 (窗口名称.左边 ≥ 取屏幕宽度 () － 窗口名称.宽度 且 窗口名称.顶边 ＜ 0)<br />
    窗口名称.移动 (取屏幕宽度 () － 窗口名称.宽度 － 1, 0, , )<br />
.如果真结束<br />
<br />
.如果真 (窗口名称.顶边 ＜ 0 且 取鼠标水平位置 () ＞ 窗口名称.左边 且 取鼠标水平位置 () ＜ 窗口名称.左边 ＋ 窗口名称.宽度 且 取鼠标垂直位置 () ＜ 3)<br />
    窗口名称.顶边 ＝ 0<br />
.如果真结束<br />
<br />
.如果真 (窗口名称.顶边 ≤ 0 且 窗口名称.左边 ＞ 0 且 窗口名称.左边 ＜ 取屏幕宽度 () － 窗口名称.宽度)<br />
    .如果真 (取鼠标水平位置 () ＜ 窗口名称.左边 或 取鼠标水平位置 () ＞ 窗口名称.左边 ＋ 窗口名称.宽度 或 取鼠标垂直位置 () ＞ 窗口名称.顶边 ＋ 窗口名称.高度)<br />
        窗口名称.顶边 ＝ 3 － 窗口名称.高度<br />
    .如果真结束<br />
<br />
.如果真结束<br />
<br />
.如果真 (窗口名称.左边 ＜ 0 且 取鼠标垂直位置 () ＞ 窗口名称.顶边 且 取鼠标垂直位置 () ＜ 窗口名称.顶边 ＋ 窗口名称.高度 且 取鼠标水平位置 () ＜ 3)<br />
    窗口名称.左边 ＝ 0<br />
.如果真结束<br />
<br />
.如果真 (窗口名称.左边 ≤ 0 且 窗口名称.顶边 ＞ 0 且 窗口名称.顶边 ＜ 取屏幕高度 () － 窗口名称.高度)<br />
    .如果真 (取鼠标垂直位置 () ＜ 窗口名称.顶边 或 取鼠标垂直位置 () ＞ 窗口名称.顶边 ＋ 窗口名称.高度 或 取鼠标水平位置 () ＞ 窗口名称.宽度)<br />
        窗口名称.左边 ＝ 3 － 窗口名称.宽度<br />
    .如果真结束<br />
<br />
.如果真结束<br />
<br />
.如果真 (取鼠标水平位置 () ＞ 取屏幕宽度 () － 3)<br />
    .如果真 (取鼠标垂直位置 () ＞ 窗口名称.顶边 且 取鼠标垂直位置 () ＜ 窗口名称.顶边 ＋ 窗口名称.高度 且 取屏幕宽度 () － 3 ＝ 窗口名称.左边)<br />
        窗口名称.左边 ＝ 取屏幕宽度 () － 窗口名称.宽度<br />
    .如果真结束<br />
<br />
.如果真结束<br />
<br />
.如果真 (窗口名称.左边 ≥ 取屏幕宽度 () － 窗口名称.宽度 且 窗口名称.顶边 ＞ 0 且 窗口名称.顶边 ＜ 取屏幕高度 () － 窗口名称.高度)<br />
    .如果真 (取鼠标垂直位置 () ＜ 窗口名称.顶边 或 取鼠标垂直位置 () ＞ 窗口名称.顶边 ＋ 窗口名称.高度 或 取鼠标水平位置 () ＜ 取屏幕宽度 () － 窗口名称.宽度)<br />
        窗口名称.左边 ＝ 取屏幕宽度 () － 3

贴边隐藏.zip (149.1 KB, 下载次数: 199)

实惠电脑 · 发表于 2021-2-4 22:30:59

感谢分享！！！

ghjdyy · 发表于 2018-5-7 23:10:50

要的就是你。

ghjdyy · 发表于 2018-5-7 23:10:37

谢谢分享，正在寻找

破晓雅儿 · 发表于 2017-5-16 15:12:04

来学习学习，不知道怎么弄，看了代码还是没研究通

ysl520 · 发表于 2016-11-18 13:19:25

我也来下载学习下。

jinlei · 发表于 2016-10-27 16:54:55

感谢楼主，善良美丽

中楠海保镖 · 发表于 2016-7-27 08:36:06

这个就没必要加精了吧

lintianming111 · 发表于 2016-3-11 22:13:32

不怎么了解

1486262242 · 发表于 2015-7-19 13:50:39

没精币了，回复得精币

		自动登录	找回密码
密码			注册

[易语言纯源码] 功能_贴边隐藏 BUG修复版