窗口自适应改变大小

reveriexue

yzl666

感谢分享

muyy0211

语言学习交流
语言学习交流
语言学习交流

elecdiy

谢谢分享

jysoft2022

谢谢分享

minter

谢谢分享

wuqingg

感谢分享，很给力！~

2446789312

深圳梦

        感谢分享，很给力！~

铅笔刀

  

子程序名	返回值类型	公开	备 注
内部窗口消息处理	整数型
参数名	类 型	参考	可空	数组	备 注
句柄	整数型
消息	整数型
参数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

这个是修复10%不完美的代码，未修复之前，窗口布局的某些标签和按钮会莫名看不见，测试这样修改可以完美解决。
机缘巧合，随便搜索，遇到作者ly445414237的解答，测试完美解决，故同步更新。