子控件自动按比例调节尺寸

神女软件定制

看到这个帖子：https://125.confly.eu.org/thread-14733447-1-1.html

跟着写了个

  

子程序名	返回值类型	公开	备 注
比例调节
参数名	类 型	参考	可空	数组	备 注
cs_父窗口句柄	整数型

变量名	类 型	静态	数组	备 注
rc	RECT
hwnd	整数型
data	整数型
比例	字节型		4
left	整数型
top	整数型

sn_GetClientRect (cs_父窗口句柄, rc)
hwnd ＝ sn_GetWindow (cs_父窗口句柄, 5)  ' 5=#GW_CHILD
判断循环首 (hwnd ≠ 0)
data ＝ sn_GetWindowLong (hwnd, -21)  ' -21=#GWL_USERDATA
比例 [1] ＝ 右移 (data, 24)
比例 [2] ＝ 右移 (data, 16)
比例 [3] ＝ 右移 (data, 8)
比例 [4] ＝ data
left ＝ rc.Right × 比例 [1] ÷ 255
top ＝ rc.Bottom × 比例 [2] ÷ 255
sn_MoveWindow (hwnd, left, top, rc.Right × 比例 [3] ÷ 255 － left, rc.Bottom × 比例 [4] ÷ 255 － top, 1)
比例调节 (hwnd)
hwnd ＝ sn_GetWindow (hwnd, 2)  ' 2=#GW_HWNDNEXT
判断循环尾 ()

子程序名	返回值类型	公开	备 注
记录控件比例
参数名	类 型	参考	可空	数组	备 注
cs_父窗口句柄	整数型

变量名	类 型	静态	数组	备 注
rc	RECT
hwnd	整数型
rcChild	RECT
比例	字节型		4
t	字节型
r	字节型
b	字节型

sn_GetClientRect (cs_父窗口句柄, rc)
hwnd ＝ sn_GetWindow (cs_父窗口句柄, 5)  ' 5=#GW_CHILD
判断循环首 (hwnd ≠ 0)
sn_GetWindowRect (hwnd, rcChild)
sn_ScreenToClient_X (cs_父窗口句柄, 取变量地址 (rcChild.Left))
sn_ScreenToClient_X (cs_父窗口句柄, 取变量地址 (rcChild.Right))
比例 [1] ＝ rcChild.Left × 255 ＼ rc.Right
比例 [2] ＝ rcChild.Top × 255 ＼ rc.Bottom
比例 [3] ＝ rcChild.Right × 255 ＼ rc.Right
比例 [4] ＝ rcChild.Bottom × 255 ＼ rc.Bottom
sn_SetWindowLong (hwnd, -21, 位或 (左移 (比例 [1], 24), 左移 (比例 [2], 16), 左移 (比例 [3], 8), 比例 [4]))  ' -21=#GWL_USERDATA
记录控件比例 (hwnd)
hwnd ＝ sn_GetWindow (hwnd, 2)  ' 2=#GW_HWNDNEXT
判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 比例调节<br /> .参数 cs_父窗口句柄, 整数型<br /> .局部变量 rc, RECT<br /> .局部变量 hwnd, 整数型<br /> .局部变量 data, 整数型<br /> .局部变量 比例, 字节型, , "4"<br /> .局部变量 left, 整数型<br /> .局部变量 top, 整数型<br /> <br /> sn_GetClientRect (cs_父窗口句柄, rc)<br /> hwnd ＝ sn_GetWindow (cs_父窗口句柄, 5)  ' 5=#GW_CHILD<br /> .判断循环首 (hwnd ≠ 0)<br />     data ＝ sn_GetWindowLong (hwnd, -21)  ' -21=#GWL_USERDATA<br />     比例 [1] ＝ 右移 (data, 24)<br />     比例 [2] ＝ 右移 (data, 16)<br />     比例 [3] ＝ 右移 (data, 8)<br />     比例 [4] ＝ data<br />     left ＝ rc.Right × 比例 [1] ÷ 255<br />     top ＝ rc.Bottom × 比例 [2] ÷ 255<br />     sn_MoveWindow (hwnd, left, top, rc.Right × 比例 [3] ÷ 255 － left, rc.Bottom × 比例 [4] ÷ 255 － top, 1)<br />     比例调节 (hwnd)<br />     hwnd ＝ sn_GetWindow (hwnd, 2)  ' 2=#GW_HWNDNEXT<br /> .判断循环尾 ()<br /> <br /> .子程序 记录控件比例<br /> .参数 cs_父窗口句柄, 整数型<br /> .局部变量 rc, RECT<br /> .局部变量 hwnd, 整数型<br /> .局部变量 rcChild, RECT<br /> .局部变量 比例, 字节型, , "4"<br /> .局部变量 t, 字节型<br /> .局部变量 r, 字节型<br /> .局部变量 b, 字节型<br /> <br /> sn_GetClientRect (cs_父窗口句柄, rc)<br /> hwnd ＝ sn_GetWindow (cs_父窗口句柄, 5)  ' 5=#GW_CHILD<br /> .判断循环首 (hwnd ≠ 0)<br />     sn_GetWindowRect (hwnd, rcChild)<br />     sn_ScreenToClient_X (cs_父窗口句柄, 取变量地址 (rcChild.Left))<br />     sn_ScreenToClient_X (cs_父窗口句柄, 取变量地址 (rcChild.Right))<br />     比例 [1] ＝ rcChild.Left × 255 ＼ rc.Right<br />     比例 [2] ＝ rcChild.Top × 255 ＼ rc.Bottom<br />     比例 [3] ＝ rcChild.Right × 255 ＼ rc.Right<br />     比例 [4] ＝ rcChild.Bottom × 255 ＼ rc.Bottom<br />     sn_SetWindowLong (hwnd, -21, 位或 (左移 (比例 [1], 24), 左移 (比例 [2], 16), 左移 (比例 [3], 8), 比例 [4]))  ' -21=#GWL_USERDATA<br />     记录控件比例 (hwnd)<br />     hwnd ＝ sn_GetWindow (hwnd, 2)  ' 2=#GW_HWNDNEXT<br /> .判断循环尾 ()

只有这两个函数，
_启动窗口创建完毕的时候，调用“记录控件比例”，会把指定窗口的所有子窗口包括子子窗口的，坐标比例，记录下来，没有用到变量，信息记录到对应窗口的附加数据了。
0-255。左顶右底，4个255

窗口尺寸改变的时候，调用“比例调节”。

另外推荐下这个：
完美的窗口布局模块，动态布局控件
https://125.confly.eu.org/forum.php?mod=viewthread&tid=14707438
(出处: 精易论坛)


这个可以精细的指定每个控件的排版规则，当然不是懒人专用了，麻烦一点。


控件比例调节.e (11.81 KB, 下载次数: 222)

2022-6-10 15:09 上传

点击文件名下载附件
下载积分: 精币 -2 枚

冰棍好烫啊

支持开源~！感谢分享

pjm123

谢谢分享

Shanks

支持一下！你的去重复比较好用···源码会共享吗

reveriexue

sunsun321

楼下升级版

gaoqing

谢谢楼主

大小鱼

支持开源~！感谢分享

王摇摆

感谢分享

吃干饭的锅

        支持开源~！感谢分享