为编程爱好者分享易语言教程源码的资源网

网站首页 > 易语言相关 > 易语言模块源码 正文

超级窗口吸附特效(支持所有窗口)

三叶资源网 2018-04-06 00:43:34 易语言模块源码 8056 ℃ 33 评论

资源介绍:

超级窗口吸附特效(支持所有窗口)

一般为 _启动窗口,,例如:_启动窗口、窗口1、窗口2...等等..被吸附窗口的 窗口句柄,控制 主窗口和被吸附窗口的 吸引距离,控制主窗口 和 被吸附窗口的误差距离距离

资源作者:

易语言源码下载

资源界面:

.版本 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)
    返回 ()
.如果真结束

资源下载:

文件下载

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

已有33位网友发表了看法:

  • gitosc

    gitosc  评论于 [2018-11-04 14:23:26]  回复

    gitosc:易语言窗口吸附

  • 位取反

    位取反  评论于 [2018-12-15 12:25:26]  回复

    易语言 窗口特效

  • 三叶网

    三叶网  评论于 [2019-02-24 12:40:11]  回复

    易语言窗口同时控制

  • eyuyan

    eyuyan  评论于 [2019-06-01 17:18:11]  回复

    易语言窗口吸附

  • 创建号

    创建号  评论于 [2020-03-23 10:29:22]  回复

    易语言窗口吸附

  • 易语言

    易语言  评论于 [2020-04-05 15:07:28]  回复

    易语言窗口吸附

  • 易语言

    易语言  评论于 [2020-04-25 15:28:49]  回复

    易语言+吸附窗口

  • 易语言

    易语言  评论于 [2020-05-08 23:05:46]  回复

    易语言窗口吸附

  • fiddler

    fiddler  评论于 [2022-03-02 19:20:54]  回复

    易语言+窗口吸附桌面侧边

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
PostgreSQL数据库PDF打印图片进度条工具箱无限长度Exui多线程防崩溃例程hpsocket编辑框输入提示改名矩阵应用超级编辑框应用沃钱包网页登录聊呗网页端比心APP登录快速排序QQ达人IP地址定位京东登陆js例子鱼刺多线程
最新评论