ly445414237 发表于 2021-2-2 14:54
.. 为了你5币 我也是煞费苦心啊

感谢

ly445414237 发表于 2021-2-2 14:54
.. 为了你5币 我也是煞费苦心啊

嗯，你找到办法入口了，经过尝试参数应该是4，就完美解决

自适应.e (14.48 KB, 下载次数: 11)

2021-2-2 15:40 上传

点击文件名下载附件

wuwenhao 发表于 2021-2-2 15:34
嘿嘿，按你说的做，果然可以了，只是窗口自适应失效了

我这都不会失效....

ly445414237 发表于 2021-2-2 14:54
.. 为了你5币 我也是煞费苦心啊

嘿嘿，按你说的做，果然可以了，只是窗口自适应失效了

ly445414237 发表于 2021-2-2 14:51
[e=0].版本 2

.子程序 内部窗口消息处理, 整数型

你找到问题了吗，已经修改好了呀

  

子程序名	返回值类型	公开	备 注
内部窗口消息处理	整数型
参数名	类 型	参考	可空	数组	备 注
句柄	整数型
消息	整数型
参数1	整数型
参数2	整数型

变量名	类 型	静态	数组	备 注
次数	整数型
父窗口句柄	整数型
父窗口矩形	RECT

如果真 (消息 ＝ 5)  ' 尺寸被改变
计次循环首 (集_成员数, 次数)
父窗口句柄 ＝ GetParent (集_所有窗口句柄 [次数])
GetClientRect (父窗口句柄, 父窗口矩形)
' 取出父窗口 宽度 和高度
SetWindowPos (集_所有窗口句柄 [次数], 1, 父窗口矩形.宽度 × 集_窗口比例 [次数].左边, 父窗口矩形.高度 × 集_窗口比例 [次数].顶边, 父窗口矩形.宽度 × 集_窗口比例 [次数].宽度, 父窗口矩形.高度 × 集_窗口比例 [次数].高度, 0)
计次循环尾 ()
' ---改变子窗口尺寸

返回 (CallWindowProc (原消息处理地址, 句柄, 消息, 参数1, 参数2))
SetWindowPos 函数的 参数二 0 改为 1

.版本 2<br /> <br /> .子程序 内部窗口消息处理, 整数型<br /> .参数 句柄, 整数型<br /> .参数 消息, 整数型<br /> .参数 参数1, 整数型<br /> .参数 参数2, 整数型<br /> .局部变量 次数, 整数型<br /> .局部变量 父窗口句柄, 整数型<br /> .局部变量 父窗口矩形, RECT<br /> <br /> .如果真 (消息 ＝ 5)  ' 尺寸被改变<br /> <br />     .计次循环首 (集_成员数, 次数)<br /> <br />         父窗口句柄 ＝ GetParent (集_所有窗口句柄 [次数])<br />         GetClientRect (父窗口句柄, 父窗口矩形)<br />         ' 取出父窗口 宽度 和高度<br /> <br />         SetWindowPos (集_所有窗口句柄 [次数], 1, 父窗口矩形.宽度 × 集_窗口比例 [次数].左边, 父窗口矩形.高度 × 集_窗口比例 [次数].顶边, 父窗口矩形.宽度 × 集_窗口比例 [次数].宽度, 父窗口矩形.高度 × 集_窗口比例 [次数].高度, 0)<br /> <br />     .计次循环尾 ()<br />     ' ---改变子窗口尺寸<br /> <br /> .如果真结束<br /> <br /> 返回 (CallWindowProc (原消息处理地址, 句柄, 消息, 参数1, 参数2))<br /> <br /> <br /> SetWindowPos 函数的 参数二 0 改为 1

补充内容 (2021-2-2 14:54):
问题出在这里 复制替换即可

wuwenhao 发表于 2021-2-2 14:35
模块根本问题 没解决，标签怎么就跑到顶层来了，找不到原因和根本解决办法 ...

调试输入 标签 位置变化，看看是怎么变化的。

影知 发表于 2021-2-2 14:27
按钮被删除和禁止或可视=假，位置不存在了，其它控件然会补上，有变化是正常的，除非指定控件的位置为窗口 ...

模块根本问题 没解决，标签怎么就跑到顶层来了，找不到原因和根本解决办法

按钮被删除和禁止或可视=假，位置不存在了，其它控件然会补上，有变化是正常的，除非指定控件的位置为窗口比例位置。