网站首页 > 易语言相关 > 易语言例程 正文
.版本 2 .支持库 EdirectX .支持库 spec .支持库 eAPI .程序集 窗口程序集1 .程序集变量 改变, 逻辑型 .程序集变量 改变宽, 逻辑型 .程序集变量 改变高, 逻辑型 .程序集变量 改变左, 逻辑型 .程序集变量 改变顶, 逻辑型 .程序集变量 改变位置, 逻辑型 .程序集变量 原鼠标水平位置, 整数型 .程序集变量 原鼠标垂直位置, 整数型 .程序集变量 原宽, 整数型 .程序集变量 原高, 整数型 .程序集变量 原左, 整数型 .程序集变量 原顶, 整数型 .程序集变量 句柄, 整数型 .程序集变量 窗口矩形, RECT .程序集变量 窗口内坐标, POINT .程序集变量 组件句柄, 整数型, , "0" .程序集变量 修改句柄, 整数型 .子程序 初始化 输入设备1.初始化 (0) 输入设备1.选择输入设备 (真, 假, 假) 输入设备1.置刷新时间 (10) .子程序 设置鼠标 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 宽度, 整数型 .参数 高度, 整数型 .如果 (改变 ＝ 真) .否则 SetClassLongA (修改句柄, -12, 65567) .如果真 (横向位置 ＜ 3 且 纵向位置 ＜ 3) SetClassLongA (修改句柄, -12, 65549) .如果 (原宽 ＞ 0) 改变 ＝ 真 改变宽 ＝ 真 改变高 ＝ 真 改变左 ＝ 真 改变顶 ＝ 真 .否则 .如果结束 返回 () .如果真结束 .如果真 (横向位置 ＞ 宽度 － 6 且 纵向位置 ＜ 3) SetClassLongA (修改句柄, -12, 65551) .如果 (原宽 ＞ 0) 改变 ＝ 真 改变宽 ＝ 真 改变高 ＝ 真 改变顶 ＝ 真 .否则 .如果结束 返回 () .如果真结束 .如果真 (横向位置 ＞ 宽度 － 6 且 纵向位置 ＞ 高度 － 6) SetClassLongA (修改句柄, -12, 65549) .如果 (原宽 ＞ 0) 改变 ＝ 真 改变宽 ＝ 真 改变高 ＝ 真 .否则 .如果结束 返回 () .如果真结束 .如果真 (横向位置 ＜ 3 且 纵向位置 ＞ 高度 － 6) SetClassLongA (修改句柄, -12, 65551) .如果 (原宽 ＞ 0) 改变 ＝ 真 改变宽 ＝ 真 改变高 ＝ 真 改变左 ＝ 真 .否则 .如果结束 返回 () .如果真结束 .如果真 (横向位置 ＜ 3) SetClassLongA (修改句柄, -12, 65553) .如果 (原宽 ＞ 0) 改变 ＝ 真 改变左 ＝ 真 .否则 .如果结束 返回 () .如果真结束 .如果真 (纵向位置 ＜ 3) SetClassLongA (修改句柄, -12, 65555) .如果 (原宽 ＞ 0) 改变 ＝ 真 改变顶 ＝ 真 .否则 .如果结束 返回 () .如果真结束 .如果真 (横向位置 ＞ 宽度 － 6) SetClassLongA (修改句柄, -12, 65553) .如果 (原宽 ＞ 0) 改变 ＝ 真 改变宽 ＝ 真 .否则 .如果结束 返回 () .如果真结束 .如果真 (纵向位置 ＞ 高度 － 6) SetClassLongA (修改句柄, -12, 65555) .如果 (原宽 ＞ 0) 改变 ＝ 真 改变高 ＝ 真 .否则 .如果结束 返回 () .如果真结束 .如果结束 .子程序 改变大小 .局部变量 改变宽度, 整数型 .局部变量 改变高度, 整数型 .局部变量 新左, 整数型 .局部变量 新顶, 整数型 .局部变量 新宽, 整数型 .局部变量 新高, 整数型 .计次循环首 (999999, ) .如果 (改变 ＝ 假) 停止改变 () 跳出循环 () .否则 .如果 (改变位置 ＝ 真) 新左 ＝ 原左 ＋ 取鼠标水平位置 () － 原鼠标水平位置 新顶 ＝ 原顶 ＋ 取鼠标垂直位置 () － 原鼠标垂直位置 修改窗口位置和大小 (修改句柄, 新左, 新顶, 原宽, 原高) .否则 .如果 (改变左 ＝ 假 且 改变顶 ＝ 假 且 改变高 ＝ 假) 改变宽度 ＝ 取鼠标水平位置 () － 原鼠标水平位置 .如果 (原宽 ＋ 改变宽度 ＜ 20) .否则 新宽 ＝ 原宽 ＋ 改变宽度 修改窗口位置和大小 (修改句柄, 原左, 原顶, 新宽, 原高) .如果结束 .否则 .如果 (改变左 ＝ 假 且 改变顶 ＝ 假 且 改变宽 ＝ 假) 改变高度 ＝ 取鼠标垂直位置 () － 原鼠标垂直位置 .如果 (原高 ＋ 改变高度 ＜ 20) .否则 新高 ＝ 原高 ＋ 改变高度 修改窗口位置和大小 (修改句柄, 原左, 原顶, 原宽, 新高) .如果结束 .否则 .如果 (改变左 ＝ 真 且 改变顶 ＝ 真) 改变宽度 ＝ 取鼠标水平位置 () － 原鼠标水平位置 改变高度 ＝ 取鼠标垂直位置 () － 原鼠标垂直位置 .如果 (原宽 － 改变宽度 ＜ 20) .否则 新宽 ＝ 原宽 － 改变宽度 新左 ＝ 原左 ＋ 取鼠标水平位置 () － 原鼠标水平位置 .如果结束 .如果 (原高 － 改变高度 ＜ 20) .否则 新高 ＝ 原高 － 改变高度 新顶 ＝ 原顶 ＋ 取鼠标垂直位置 () － 原鼠标垂直位置 .如果结束 修改窗口位置和大小 (修改句柄, 新左, 新顶, 新宽, 新高) .否则 .如果 (改变左 ＝ 真) 改变宽度 ＝ 取鼠标水平位置 () － 原鼠标水平位置 .如果 (原宽 － 改变宽度 ＜ 20) .否则 新左 ＝ 原左 ＋ 取鼠标水平位置 () － 原鼠标水平位置 新宽 ＝ 原宽 － 改变宽度 .如果 (改变高 ＝ 真) 修改窗口位置和大小 (修改句柄, 新左, 原顶, 新宽, 新高) .否则 修改窗口位置和大小 (修改句柄, 新左, 原顶, 新宽, 原高) .如果结束 .如果结束 .如果 (改变高 ＝ 真) 改变高度 ＝ 取鼠标垂直位置 () － 原鼠标垂直位置 .如果 (原高 ＋ 改变高度 ＜ 20) .否则 新高 ＝ 原高 ＋ 改变高度 修改窗口位置和大小 (修改句柄, 新左, 原顶, 新宽, 新高) .如果结束 .否则 .如果结束 .否则 .如果 (改变顶 ＝ 真) 改变高度 ＝ 取鼠标垂直位置 () － 原鼠标垂直位置 .如果 (原高 － 改变高度 ＜ 20) .否则 新顶 ＝ 原顶 ＋ 取鼠标垂直位置 () － 原鼠标垂直位置 新高 ＝ 原高 － 改变高度 .如果 (改变宽 ＝ 真) 修改窗口位置和大小 (修改句柄, 原左, 新顶, 新宽, 新高) .否则 修改窗口位置和大小 (修改句柄, 原左, 新顶, 原宽, 新高) .如果结束 .如果结束 .如果 (改变宽 ＝ 真) 改变宽度 ＝ 取鼠标水平位置 () － 原鼠标水平位置 .如果 (原宽 ＋ 改变宽度 ＜ 20) .否则 新宽 ＝ 原宽 ＋ 改变宽度 修改窗口位置和大小 (修改句柄, 原左, 新顶, 新宽, 新高) .如果结束 .否则 .如果结束 .否则 .如果 (改变宽 ＝ 真 且 改变高 ＝ 真) 改变高度 ＝ 取鼠标垂直位置 () － 原鼠标垂直位置 改变宽度 ＝ 取鼠标水平位置 () － 原鼠标水平位置 .如果 (原高 ＋ 改变高度 ＜ 20) .否则 新高 ＝ 原高 ＋ 改变高度 .如果结束 .如果 (原宽 ＋ 改变宽度 ＜ 20) .否则 新宽 ＝ 原宽 ＋ 改变宽度 .如果结束 修改窗口位置和大小 (修改句柄, 原左, 原顶, 新宽, 新高) .否则 .如果结束 .如果结束 .如果结束 .如果结束 .如果结束 .如果结束 .如果结束 .如果结束 延迟 (10) .计次循环尾 () .子程序 停止改变 改变 ＝ 假 改变宽 ＝ 假 改变高 ＝ 假 改变左 ＝ 假 改变顶 ＝ 假 改变位置 ＝ 假 原宽 ＝ 0 句柄 ＝ 0 .子程序 __启动窗口_创建完毕 初始化 () 添加可拉伸组件 (图片框1.取窗口句柄 ()) 添加可拉伸组件 (图片框2.取窗口句柄 ()) .子程序 添加可拉伸组件 .参数 添加组件句柄, 整数型 加入成员 (组件句柄, 添加组件句柄) .子程序 _输入设备1_鼠标按键被改变 .参数 键值, 整数型 .参数 键状态, 整数型 .局部变量 n, 整数型 .如果 (改变 ＝ 假) 句柄 ＝ 取鼠标所在窗口句柄 () .计次循环首 (取数组成员数 (组件句柄), n) .如果 (句柄 ＝ 组件句柄 [n]) 修改句柄 ＝ 组件句柄 [n] 窗口矩形 ＝ 获取矩形 (修改句柄) 窗口内坐标 ＝ 获取窗口内坐标 (修改句柄) .如果 (键值 ＝ 256 且 键状态 ＝ 2) 原宽 ＝ 窗口矩形.宽度 原高 ＝ 窗口矩形.高度 原左 ＝ 窗口矩形.左边 原顶 ＝ 窗口矩形.顶边 原鼠标水平位置 ＝ 取鼠标水平位置 () 原鼠标垂直位置 ＝ 取鼠标垂直位置 () 设置鼠标 (窗口内坐标.x, 窗口内坐标.y, 窗口矩形.宽度, 窗口矩形.高度) .如果 (改变 ＝ 假) 改变 ＝ 真 改变位置 ＝ 真 改变左 ＝ 真 改变顶 ＝ 真 .否则 .如果结束 改变大小 () .否则 .如果结束 .如果 (键值 ＝ 256 且 键状态 ＝ 1) 停止改变 () 设置鼠标 (窗口内坐标.x, 窗口内坐标.y, 窗口矩形.宽度, 窗口矩形.高度) .否则 .如果结束 .如果 (键值 ＝ 257) 设置鼠标 (窗口内坐标.x, 窗口内坐标.y, 窗口矩形.宽度, 窗口矩形.高度) .否则 .如果结束 跳出循环 () .否则 .如果结束 .计次循环尾 () .否则 .如果结束 .如果 (键值 ＝ 256 且 键状态 ＝ 1) 停止改变 () .否则 .如果结束 .子程序 获取矩形, RECT .参数 窗口句柄, 整数型 .局部变量 lpRect, RECT .局部变量 lpPoint, POINT, , "2" .局部变量 ParentHwnd, 整数型 GetWindowRect (窗口句柄, lpRect) ParentHwnd ＝ GetParent (窗口句柄) lpPoint [1].x ＝ lpRect.左边 lpPoint [1].y ＝ lpRect.顶边 lpPoint [2].x ＝ lpRect.宽度 lpPoint [2].y ＝ lpRect.高度 ScreenToClient (ParentHwnd, lpPoint [1]) ScreenToClient (ParentHwnd, lpPoint [2]) lpRect.左边 ＝ lpPoint [1].x lpRect.顶边 ＝ lpPoint [1].y lpRect.宽度 ＝ lpPoint [2].x － lpRect.左边 lpRect.高度 ＝ lpPoint [2].y － lpRect.顶边 返回 (lpRect) .子程序 获取窗口内坐标, POINT .参数 窗口句柄, 整数型 .局部变量 lpRect, RECT .局部变量 lpPoint, POINT GetWindowRect (窗口句柄, lpRect) lpPoint.x ＝ 取鼠标水平位置 () － lpRect.左边 lpPoint.y ＝ 取鼠标垂直位置 () － lpRect.顶边 返回 (lpPoint) .子程序 修改窗口位置和大小 .参数 窗口句柄, 整数型, , 欲改变位置和大小的窗口句柄 .参数 左边位置, 整数型, 可空, 窗口新的左边位置，留空不变； .参数 顶边位置, 整数型, 可空, 窗口新的顶边位置，留空不变； .参数 新宽度, 整数型, 可空, 窗口的新宽度，留空不变； .参数 新高度, 整数型, 可空, 窗口的高宽度，留空不变； MoveWindow (窗口句柄, 左边位置, 顶边位置, 新宽度, 新高度, 真) .子程序 _输入设备1_鼠标位置改变 .参数 有边界横向位置, 整数型 .参数 有边界纵向位置, 整数型 .参数 无边界横向位置, 整数型 .参数 无边界纵向位置, 整数型 .参数 横向位置偏移, 整数型 .参数 纵向位置偏移, 整数型 .局部变量 n, 整数型 .如果 (改变 ＝ 假) 句柄 ＝ 取鼠标所在窗口句柄 () .计次循环首 (取数组成员数 (组件句柄), n) .如果 (句柄 ＝ 组件句柄 [n]) 修改句柄 ＝ 组件句柄 [n] 窗口矩形 ＝ 获取矩形 (修改句柄) 窗口内坐标 ＝ 获取窗口内坐标 (修改句柄) 设置鼠标 (窗口内坐标.x, 窗口内坐标.y, 窗口矩形.宽度, 窗口矩形.高度) 跳出循环 () .否则 .如果结束 .计次循环尾 () .否则 .如果结束
@黑月
- 上一篇： 17173游戏网注册、登录、领取礼包码源码
- 下一篇： 易语言Hook 拦截关机源码
猜你喜欢
- 2025-01-04 hook抓取电脑和安卓交互的TCP请求，Tcp-adb源码分享
- 2025-01-03 易语言取文件真实创建时间
- 2025-01-03 易语言实现彩色会闪会抖动的字，而且还在标题栏
- 2024-06-28 通讯录VCF文件生成源码
- 2024-03-16 2024无模块静默取已登录QQ
- 2024-03-16 批量转换PPT为PDF源码
- 2024-03-15 串口相关, 虚拟串口,枚举串口,PCOMM使用
- 2024-03-14 易语言取Unix时间戳源码
- 2024-03-13 易语言源码 安卓 ADB调试桥 真机调试
- 2024-03-11 易语言控件自动缩放源码
欢迎 你 发表评论:
- 百度站内搜索
- 关注微信公众号
-
三叶资源网⑤群：
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
- 最新评论
-
访客 评论于：09-28
访客 评论于：09-21
访客 评论于：09-04
访客 评论于：09-04- 访客 评论于：08-30
- 访客 评论于：08-18
访客 评论于：08-18- 访客 评论于：08-17
三叶资源网 评论于：07-25
访客 评论于：06-26
已有4位网友发表了看法：
易语言TV 评论于 [2019-11-01 18:25:57] 回复
易语言组件拖动
易语言教程 评论于 [2019-11-01 18:58:04] 回复
易语言组件拖动
易语言 评论于 [2020-09-11 10:28:53] 回复
易语言+多个组件拖动
编程资源 评论于 [2021-09-06 23:11:46] 回复
易语言拖动