窗口自适应改变大小

铅笔刀

近期做项目用到的，下载了论坛的自适应模块，测试发现对我的界面布局没反应，然后翻出了好久之前下载的这个源码，测试90%完美解决，本着不能独乐乐的态度就发布出来吧。这个模块源码忘了原作者是谁，源码未改动，有需自取。



窗口自适应改变大小.zip (5.03 KB, 下载次数: 231)

2022-7-21 16:16 上传

点击文件名下载附件
阅读权限: 20   

铅笔刀

  

子程序名	返回值类型	公开	备 注
内部窗口消息处理	整数型
参数名	类 型	参考	可空	数组	备 注
句柄	整数型
消息	整数型
参数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的解答，测试完美解决，故同步更新。

benxiaohai2004

感谢分享

wangdili19822

感谢分享！

SMTHU

666666666666666666666666

SMTHU

86666666666666666666666

SMTHU

66666666666666666666666666666

SMTHU

666666666666666666666666

jhzzz

感谢楼主无私奉献

是个人

1111111111111111111111111111111111111111

dmxbzb

支持开源