.版本 2 .子程序 窗口_窗口吸附, , 公开 .参数 主窗口, 窗口, , 一般为 _启动窗口，，例如：_启动窗口、窗口1、窗口2...等等.. .参数 窗口句柄, 整数型, 可空, 被吸附窗口的 窗口句柄 .参数 吸附距离, 整数型, 可空, 控制 主窗口和被吸附窗口的 吸引距离 .参数 误差度, 整数型, 可空, 控制主窗口 和 被吸附窗口的误差距离距离 .局部变量 主坐标, 矩形类型 .局部变量 附坐标, 矩形类型 .局部变量 主大小, 矩形类型 .局部变量 附大小, 矩形类型 .局部变量 主Z横坐标, 整数型 .局部变量 主Z纵坐标, 整数型 .局部变量 附Z横坐标, 整数型 .局部变量 附Z纵坐标, 整数型 .局部变量 主Y横坐标, 整数型 .局部变量 主Y纵坐标, 整数型 .局部变量 附Y横坐标, 整数型 .局部变量 附Y纵坐标, 整数型 .局部变量 移动, 整数型 .局部变量 简述, 整数型 .如果真 (吸附距离 ＝ 0) 吸附距离 ＝ 50 .如果真结束 .如果真 (误差度 ＜ 0) 误差度 ＝ 取绝对值 (误差度) .如果真结束 .如果真 (窗口句柄 ＝ 0) 窗口句柄 ＝ _取前台窗体句柄 () .如果真结束 取窗口矩形 (窗口句柄, 附坐标) API_取窗口大小 (窗口句柄, 附大小) 取窗口矩形 (主窗口.取窗口句柄 (), 主坐标) API_取窗口大小 (主窗口.取窗口句柄 (), 主大小) .如果真 (附坐标.矩形左边 ≥ 0) 附Z横坐标 ＝ 附坐标.矩形左边 .如果真结束 .如果真 (附坐标.矩形顶边 ≥ 0) 附Z纵坐标 ＝ 附坐标.矩形顶边 .如果真结束 .如果真 (主坐标.矩形左边 ≥ 0) 主Z横坐标 ＝ 主坐标.矩形左边 .如果真结束 .如果真 (主坐标.矩形顶边 ≥ 0) 主Z纵坐标 ＝ 主坐标.矩形顶边 .如果真结束 附Y横坐标 ＝ 附Z横坐标 ＋ 附大小.矩形宽度 附Y纵坐标 ＝ 附Z纵坐标 ＋ 附大小.矩形高度 主Y横坐标 ＝ 主Z横坐标 ＋ 主大小.矩形宽度 主Y纵坐标 ＝ 主Z纵坐标 ＋ 主大小.矩形高度 .如果真 (主Z横坐标 ≤ 附Z横坐标 且 取绝对值 (主大小.矩形宽度 － (附Z横坐标 － 主Z横坐标)) ≤ 吸附距离) 移动 ＝ 主Y横坐标 ＋ 误差度 设置窗口位置_ (窗口句柄, 0, 移动, 主Z纵坐标, 0, 0, 1) 返回 () .如果真结束 .如果真 (主Z横坐标 ≥ 附Z横坐标 且 取绝对值 (附大小.矩形宽度 － (主Z横坐标 － 附Z横坐标)) ≤ 吸附距离) 移动 ＝ 主Z横坐标 － 附大小.矩形宽度 － 误差度 设置窗口位置_ (窗口句柄, 0, 移动, 主Z纵坐标, 0, 0, 1) 返回 () .如果真结束 .如果真 (主Z纵坐标 ≤ 附Z纵坐标 且 取绝对值 (主大小.矩形高度 － (附Z纵坐标 － 主Z纵坐标)) ≤ 吸附距离) 移动 ＝ 主Y纵坐标 ＋ 误差度 设置窗口位置_ (窗口句柄, 0, 主Z横坐标, 移动, 0, 0, 1) 返回 () .如果真结束 .如果真 (主Z纵坐标 ≥ 附Z纵坐标 且 取绝对值 (附大小.矩形高度 － (主Z纵坐标 － 附Z纵坐标)) ≤ 吸附距离) 移动 ＝ 主Z纵坐标 － 附大小.矩形高度 － 误差度 设置窗口位置_ (窗口句柄, 0, 主Z横坐标, 移动, 0, 0, 1) 返回 () .如果真结束