窗口吸附模块源码和例程

资源介绍：

窗口吸附模块源码和例程

资源作者：

易语言源代码大全

资源界面：

.版本 2

.子程序 开始吸附, 逻辑型, 公开, 注意：开始吸附后，窗口不能被销毁，也不能加入新窗口
.参数 是否有主窗口, 逻辑型, 可空, 默认真。主窗口为第一个加入的窗口。当其他窗口吸在主窗口上时，会随着主窗口一起移动。若此参数为假，则认为所有窗口都是独立的。
.参数 是否检测屏幕边缘, 逻辑型, 可空, 默认真。此参数决定是否吸住屏幕边缘
.局部变量 X, 整数型

.如果真 (是否为空 (是否有主窗口))
    是否有主窗口 ＝ 真
.如果真结束
.如果真 (是否为空 (是否检测屏幕边缘))
    是否检测屏幕边缘 ＝ 真
.如果真结束
.如果真 (取数组成员数 (窗口句柄) ＝ 0 或 开始了)
    返回 (假)
.如果真结束
有主窗口 ＝ 是否有主窗口
检测屏幕边缘 ＝ 是否检测屏幕边缘
重定义数组 (吸附的窗口号, 假, 取数组成员数 (窗口句柄))
重定义数组 (需要整体拖动的窗口, 假, 取数组成员数 (窗口句柄))
重定义数组 (横向吸附线, 假, 取数组成员数 (窗口句柄) × 2 ＋ 选择 (是否检测屏幕边缘, 2, 0))
重定义数组 (纵向吸附线, 假, 取数组成员数 (窗口句柄) × 2 ＋ 选择 (是否检测屏幕边缘, 2, 0))
' 本源码来自三叶资源网(www.sanye.cx)
重新读取吸附线 (0)  ' 读出所有窗口的吸附线
.如果真 (是否检测屏幕边缘)
    重新读取吸附线_屏幕边缘 ()
.如果真结束

重定义数组 (旧过程号, 假, 0)
重定义数组 (窗口吸附线有效, 假, 0)
.变量循环首 (1, 取数组成员数 (窗口句柄), 1, X)
    加入成员 (旧过程号, SetWindowLong (窗口句柄 [X], -4, 到数值 (&消息处理子程序)))  ' 截获窗口消息
    加入成员 (窗口吸附线有效, 真)
.变量循环尾 ()
开始了 ＝ 真
返回 (真)

资源下载：