窗口自适应大小-懒人专用，模块已写好---标题一定要长长c...

易语言血洗

  

子程序名	返回值类型	公开	备 注
窗口尺寸改变触发			组件大小自适应

变量名	类 型	静态	数组	备 注
N	整数型
i	整数型
b	整数型
d	整数型

计次循环首 (A, N)
i ＝ 窗口_取父句柄 (组件句柄数组 [N])
如果 (i ≠ 0 且 i ≠ 启动窗口句柄)
窗口_取控件大小 (i, d, b)
SetWindowPos (组件句柄数组 [N], 0, d × 比例数组 [N].左, b × 比例数组 [N].顶, 比例数组 [N].宽 × d, 比例数组 [N].高 × b, 0)
SetWindowPos (组件句柄数组 [N], 0, 窗口_取位置和大小 (启动窗口句柄).宽度 × 比例数组 [N].左, 窗口_取位置和大小 (启动窗口句柄).高度 × 比例数组 [N].顶, 比例数组 [N].宽 × 窗口_取位置和大小 (启动窗口句柄).宽度, 比例数组 [N].高 × 窗口_取位置和大小 (启动窗口句柄).高度, 0)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
枚举窗口全部组件
参数名	类 型	参考	可空	数组	备 注
启动窗口句柄参数	整数型

变量名	类 型	静态	数组	备 注
i	整数型
n	整数型
组件占比	比例类型
tem	矩形类型
d	整数型
b	整数型
e	精易_坐标

启动窗口句柄 ＝ 启动窗口句柄参数
窗口_枚举所有子窗口 (启动窗口句柄, 组件句柄数组, )
计次循环首 (取数组成员数 (组件句柄数组), i)
GetWindowRect (组件句柄数组 [i], tem)
加入成员 (组件数组, tem)
n ＝ 窗口_取父句柄 (组件句柄数组 [i])
如果 (n ≠ 0 且 n ≠ 启动窗口句柄)
窗口_取控件大小 (n, d, b)
e ＝ 窗口_取控件坐标 (n)
组件占比.左 ＝ (组件数组 [i].左 － e.横) ÷ d
组件占比.顶 ＝ (组件数组 [i].顶 － e.纵) ÷ b
组件占比.宽 ＝ (组件数组 [i].右 － 组件数组 [i].左) ÷ d
组件占比.高 ＝ (组件数组 [i].底 － 组件数组 [i].顶) ÷ b
组件占比.左 ＝ (组件数组 [i].左 － 窗口_取位置和大小 (启动窗口句柄).左边 － 4) ÷ 窗口_取位置和大小 (启动窗口句柄).宽度
组件占比.顶 ＝ (组件数组 [i].顶 － 窗口_取位置和大小 (启动窗口句柄).顶边 － 32) ÷ 窗口_取位置和大小 (启动窗口句柄).高度
组件占比.宽 ＝ (组件数组 [i].右 － 组件数组 [i].左) ÷ 窗口_取位置和大小 (启动窗口句柄).宽度
组件占比.高 ＝ (组件数组 [i].底 － 组件数组 [i].顶) ÷ 窗口_取位置和大小 (启动窗口句柄).高度
加入成员 (比例数组, 组件占比)
计次循环尾 ()
A ＝ 取数组成员数 (组件数组)

.版本 2<br /> <br /> .子程序 窗口尺寸改变触发, , 公开, 组件大小自适应<br /> .局部变量 N, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 d, 整数型<br /> <br /> .计次循环首 (A, N)<br />     i ＝ 窗口_取父句柄 (组件句柄数组 [N])<br />     .如果 (i ≠ 0 且 i ≠ 启动窗口句柄)<br />         窗口_取控件大小 (i, d, b)<br />         SetWindowPos (组件句柄数组 [N], 0, d × 比例数组 [N].左, b × 比例数组 [N].顶, 比例数组 [N].宽 × d, 比例数组 [N].高 × b, 0)<br />     .否则<br />         SetWindowPos (组件句柄数组 [N], 0, 窗口_取位置和大小 (启动窗口句柄).宽度 × 比例数组 [N].左, 窗口_取位置和大小 (启动窗口句柄).高度 × 比例数组 [N].顶, 比例数组 [N].宽 × 窗口_取位置和大小 (启动窗口句柄).宽度, 比例数组 [N].高 × 窗口_取位置和大小 (启动窗口句柄).高度, 0)<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 枚举窗口全部组件, , 公开<br /> .参数 启动窗口句柄参数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 组件占比, 比例类型<br /> .局部变量 tem, 矩形类型<br /> .局部变量 d, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 e, 精易_坐标<br /> <br /> 启动窗口句柄 ＝ 启动窗口句柄参数<br /> 窗口_枚举所有子窗口 (启动窗口句柄, 组件句柄数组, )<br /> .计次循环首 (取数组成员数 (组件句柄数组), i)<br />     GetWindowRect (组件句柄数组 <i>, tem)<br />     加入成员 (组件数组, tem)<br />     n ＝ 窗口_取父句柄 (组件句柄数组 <i>)<br />     .如果 (n ≠ 0 且 n ≠ 启动窗口句柄)<br />         窗口_取控件大小 (n, d, b)<br />         e ＝ 窗口_取控件坐标 (n)<br />         组件占比.左 ＝ (组件数组 <i>.左 － e.横) ÷ d<br />         组件占比.顶 ＝ (组件数组 <i>.顶 － e.纵) ÷ b<br />         组件占比.宽 ＝ (组件数组 <i>.右 － 组件数组 <i>.左) ÷ d<br />         组件占比.高 ＝ (组件数组 <i>.底 － 组件数组 <i>.顶) ÷ b<br />     .否则<br />         组件占比.左 ＝ (组件数组 <i>.左 － 窗口_取位置和大小 (启动窗口句柄).左边 － 4) ÷ 窗口_取位置和大小 (启动窗口句柄).宽度<br />         组件占比.顶 ＝ (组件数组 <i>.顶 － 窗口_取位置和大小 (启动窗口句柄).顶边 － 32) ÷ 窗口_取位置和大小 (启动窗口句柄).高度<br />         组件占比.宽 ＝ (组件数组 <i>.右 － 组件数组 <i>.左) ÷ 窗口_取位置和大小 (启动窗口句柄).宽度<br />         组件占比.高 ＝ (组件数组 <i>.底 － 组件数组 <i>.顶) ÷ 窗口_取位置和大小 (启动窗口句柄).高度<br />     .如果结束<br />     加入成员 (比例数组, 组件占比)<br /> .计次循环尾 ()<br /> A ＝ 取数组成员数 (组件数组)

分享一下，这个功能用的挺多的。

fjsystem

引用时代码最少的方法，赞一个！

tanio5188

厉害了我的哥

易语言血洗

yangze123 发表于 2024-8-12 23:05
模块不全，编译不了啊 楼主

不太清楚，别人都是正常编译的呀

yangze123

yangze123 发表于 2024-8-12 23:00
模块不带么

模块不全，编译不了啊 楼主

yangze123

模块不带么

macdom

57547时杠54747

macdom

12se有葡萄糖贴ieiie

macdom

66666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666

macdom

666666666666666666666666666666666666666666666666666666666666666666666666666666

wolfpack