易语言子窗口(控件)自适应父窗口源码。

zwh8698

窗口修改大小。记录

gaoqing

谢谢的分析啊

小码人

感谢大神一直以来的支持

geenuin

支持支持....

取名很难

学习学习！！！！！

沐紫萌

这玩意速度快不快啊

0312

6666666666666666666

小蜘蛛3

找到了，之前写自己搞，都不调整窗口，这下可以试试了

Mc黑龍

看看。。。。

墨影0620

我发现一个错误！更新尺寸的时候如果通知子程序为空程序就会闪退。
解决办法如下：

  

子程序名	返回值类型	公开	备 注
更新尺寸			通知子程序(整数型 父窗口句柄,整数型 当前处理窗口句柄,整数型 更新状态{0=被过滤,1=已更新})
参数名	类 型	参考	可空	数组	备 注
通知子程序	整数型				传入此参数后每更新一次组件的坐标和尺寸都会调用

变量名	类 型	静态	数组	备 注
局_父窗矩形	类型_矩形
局_父窗宽	整数型
局_父窗高	整数型
局_更新状态	整数型
n1	整数型

Api_GetWindowRect (集_窗口句柄, 局_父窗矩形)
局_父窗宽 ＝ 局_父窗矩形.右 － 局_父窗矩形.左
局_父窗高 ＝ 局_父窗矩形.底 － 局_父窗矩形.顶
计次循环首 (取数组成员数 (集_子窗信息), n1)
判断 (是否被过滤 (集_子窗信息 [n1].窗口句柄))
局_更新状态 ＝ 0
局_更新状态 ＝ 1
Api_SetWindowPos (集_子窗信息 [n1].窗口句柄, 集_子窗信息 [n1].父窗口, 集_子窗信息 [n1].左边比 × 局_父窗宽, 集_子窗信息 [n1].顶边比 × 局_父窗高, 集_子窗信息 [n1].宽度比 × 局_父窗宽, 集_子窗信息 [n1].高度比 × 局_父窗高, 4)
如果真 (通知子程序 ≥ 0)
Call (通知子程序, 集_子窗信息 [n1].父窗口, 集_子窗信息 [n1].窗口句柄, 局_更新状态)

计次循环尾 ()

.版本 2<br /> <br /> .子程序 更新尺寸, , 公开, 通知子程序(整数型 父窗口句柄,整数型 当前处理窗口句柄,整数型 更新状态{0=被过滤,1=已更新})<br /> .参数 通知子程序, 整数型, 可空, 传入此参数后每更新一次组件的坐标和尺寸都会调用<br /> .局部变量 局_父窗矩形, 类型_矩形<br /> .局部变量 局_父窗宽, 整数型<br /> .局部变量 局_父窗高, 整数型<br /> .局部变量 局_更新状态, 整数型<br /> .局部变量 n1, 整数型<br /> <br /> Api_GetWindowRect (集_窗口句柄, 局_父窗矩形)<br /> 局_父窗宽 ＝ 局_父窗矩形.右 － 局_父窗矩形.左<br /> 局_父窗高 ＝ 局_父窗矩形.底 － 局_父窗矩形.顶<br /> .计次循环首 (取数组成员数 (集_子窗信息), n1)<br />     .判断开始 (是否被过滤 (集_子窗信息 [n1].窗口句柄))<br />         局_更新状态 ＝ 0<br />     .默认<br />         局_更新状态 ＝ 1<br />         Api_SetWindowPos (集_子窗信息 [n1].窗口句柄, 集_子窗信息 [n1].父窗口, 集_子窗信息 [n1].左边比 × 局_父窗宽, 集_子窗信息 [n1].顶边比 × 局_父窗高, 集_子窗信息 [n1].宽度比 × 局_父窗宽, 集_子窗信息 [n1].高度比 × 局_父窗高, 4)<br />     .判断结束<br />     .如果真 (通知子程序 ≥ 0)<br />         Call (通知子程序, 集_子窗信息 [n1].父窗口, 集_子窗信息 [n1].窗口句柄, 局_更新状态)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

改成

  

子程序名	返回值类型	公开	备 注
更新尺寸			通知子程序(整数型 父窗口句柄,整数型 当前处理窗口句柄,整数型 更新状态{0=被过滤,1=已更新})
参数名	类 型	参考	可空	数组	备 注
通知子程序	整数型				传入此参数后每更新一次组件的坐标和尺寸都会调用

变量名	类 型	静态	数组	备 注
局_父窗矩形	类型_矩形
局_父窗宽	整数型
局_父窗高	整数型
局_更新状态	整数型
n1	整数型

Api_GetWindowRect (集_窗口句柄, 局_父窗矩形)
局_父窗宽 ＝ 局_父窗矩形.右 － 局_父窗矩形.左
局_父窗高 ＝ 局_父窗矩形.底 － 局_父窗矩形.顶
计次循环首 (取数组成员数 (集_子窗信息), n1)
判断 (是否被过滤 (集_子窗信息 [n1].窗口句柄))
局_更新状态 ＝ 0
局_更新状态 ＝ 1
Api_SetWindowPos (集_子窗信息 [n1].窗口句柄, 集_子窗信息 [n1].父窗口, 集_子窗信息 [n1].左边比 × 局_父窗宽, 集_子窗信息 [n1].顶边比 × 局_父窗高, 集_子窗信息 [n1].宽度比 × 局_父窗宽, 集_子窗信息 [n1].高度比 × 局_父窗高, 4)
如果真 (是否为空 (通知子程序) ＝ 假)
Call (通知子程序, 集_子窗信息 [n1].父窗口, 集_子窗信息 [n1].窗口句柄, 局_更新状态)

计次循环尾 ()

.版本 2<br /> <br /> .子程序 更新尺寸, , 公开, 通知子程序(整数型 父窗口句柄,整数型 当前处理窗口句柄,整数型 更新状态{0=被过滤,1=已更新})<br /> .参数 通知子程序, 整数型, 可空, 传入此参数后每更新一次组件的坐标和尺寸都会调用<br /> .局部变量 局_父窗矩形, 类型_矩形<br /> .局部变量 局_父窗宽, 整数型<br /> .局部变量 局_父窗高, 整数型<br /> .局部变量 局_更新状态, 整数型<br /> .局部变量 n1, 整数型<br /> <br /> Api_GetWindowRect (集_窗口句柄, 局_父窗矩形)<br /> 局_父窗宽 ＝ 局_父窗矩形.右 － 局_父窗矩形.左<br /> 局_父窗高 ＝ 局_父窗矩形.底 － 局_父窗矩形.顶<br /> .计次循环首 (取数组成员数 (集_子窗信息), n1)<br />     .判断开始 (是否被过滤 (集_子窗信息 [n1].窗口句柄))<br />         局_更新状态 ＝ 0<br />     .默认<br />         局_更新状态 ＝ 1<br />         Api_SetWindowPos (集_子窗信息 [n1].窗口句柄, 集_子窗信息 [n1].父窗口, 集_子窗信息 [n1].左边比 × 局_父窗宽, 集_子窗信息 [n1].顶边比 × 局_父窗高, 集_子窗信息 [n1].宽度比 × 局_父窗宽, 集_子窗信息 [n1].高度比 × 局_父窗高, 4)<br />     .判断结束<br />     .如果真 (是否为空 (通知子程序) ＝ 假)<br />         Call (通知子程序, 集_子窗信息 [n1].父窗口, 集_子窗信息 [n1].窗口句柄, 局_更新状态)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

简单说就是把参数“通知子程序”判断大小哪里（call的上一行）改成是否为空即可。