根据系统DPI自动缩放程序界面(兼容Win7、Win8、Win10)

hmyroot

hacbu84 发表于 2020-4-9 23:12
请问是不是每个组件比如 编辑框，名字都要加入？比如我的编辑框名叫 AA编辑框，是不是前面AA都要加进去？本 ...

不用，只要加入组件原始名称就可以了

hacbu84

请问是不是每个组件比如 编辑框，名字都要加入？比如我的编辑框名叫 AA编辑框，是不是前面AA都要加进去？本人菜鸟，不太懂

hmyroot

更新一下，每个窗口载入都要加入代码运行

  

子程序名	返回值类型	公开	备 注
组件自动缩放			窗口、按钮、标签、选择框、组合框、选择夹、分组框、单选框、编辑框
参数名	类 型	参考	可空	数组	备 注
窗口名称	窗口				例如：组件自动缩放 (_启动窗口)

变量名	类 型	静态	数组	备 注
DPI	整数型
缩放率	小数型
a	整数型
按钮统计	整数型
按钮数量	整数型
按钮数组	按钮		0
标签统计	整数型
标签数量	整数型
标签数组	标签		0
选择框统计	整数型
选择框数量	整数型
选择框数组	选择框		0
组合框统计	整数型
组合框数量	整数型
组合框数组	组合框		0
选择夹统计	整数型
选择夹数量	整数型
选择夹数组	选择夹		0
分组框统计	整数型
分组框数量	整数型
分组框数组	分组框		0
单选框统计	整数型
单选框数量	整数型
单选框数组	单选框		0
编辑框统计	整数型
编辑框数量	整数型
编辑框数组	编辑框		0
原始高度	整数型
原始宽度	整数型

. ' 如果 (zc表_取zc表整数型_加强版 (#HKEY_CURRENT_USER, “Control Panel\Desktop”, “LogPixels”, 0) ＝ 96)
' DPI ＝ zc表_取zc表整数型_加强版 (#HKEY_CURRENT_USER, “Control Panel\Desktop”, “LogPixels”, 96)
' 缩放率 ＝ DPI ÷ 96
' DPI ＝ zc表_取zc表整数型_加强版 (#HKEY_CURRENT_USER, “Control Panel\Desktop”, “LogPixels”, 100)
' 缩放率 ＝ DPI ÷ 100
如果 (取数值zc项 ( #现行用户, “Control Panel\Desktop\LogPixels”, 0) ＝ 96)
DPI ＝ 取数值zc项 ( #现行用户, “Control Panel\Desktop\LogPixels”, 96)
缩放率 ＝ DPI ÷ 96
DPI ＝ 取数值zc项 ( #现行用户, “Control Panel\Desktop\LogPixels”, 100)
缩放率 ＝ DPI ÷ 100
原始高度 ＝ 窗口名称.高度原始宽度 ＝ 窗口名称.宽度
窗口名称.高度 ＝ 窗口名称.高度 × 缩放率
窗口名称.宽度 ＝ 窗口名称.宽度 × 缩放率
窗口名称.顶边 ＝ 窗口名称.顶边 ��� (窗口名称.高度 － 原始高度) ÷ 2
窗口名称.左边 ＝ 窗口名称.左边 ��� (窗口名称.宽度 － 原始宽度) ÷ 2
a ＝ 0
按钮统计 ＝ 寻找组件 (窗口名称, , “按钮”, , )
按钮数量 ＝ 取找到组件数目 (按钮统计)
重定义数组 (按钮数组, 假, 按钮数量)
计次循环首 (按钮数量, a)
按钮数组 [a] ＝ 取所找到组件 (按钮统计, a － 1)
按钮数组 [a].高度 ＝ 按钮数组 [a].高度 × 缩放率
按钮数组 [a].宽度 ＝ 按钮数组 [a].宽度 × 缩放率
按钮数组 [a].顶边 ＝ 按钮数组 [a].顶边 × 缩放率
按钮数组 [a].左边 ＝ 按钮数组 [a].左边 × 缩放率
计次循环尾 ()
清除组件寻找句柄 (按钮统计)
a ＝ 0
标签统计 ＝ 寻找组件 (窗口名称, , “标签”, , )
标签数量 ＝ 取找到组件数目 (标签统计)
重定义数组 (标签数组, 假, 标签数量)
计次循环首 (标签数量, a)
标签数组 [a] ＝ 取所找到组件 (标签统计, a － 1)
标签数组 [a].高度 ＝ 标签数组 [a].高度 × 缩放率
标签数组 [a].宽度 ＝ 标签数组 [a].宽度 × 缩放率
标签数组 [a].顶边 ＝ 标签数组 [a].顶边 × 缩放率
标签数组 [a].左边 ＝ 标签数组 [a].左边 × 缩放率
计次循环尾 ()
清除组件寻找句柄 (标签统计)
a ＝ 0
选择框统计 ＝ 寻找组件 (窗口名称, , “选择框”, , )
选择框数量 ＝ 取找到组件数目 (选择框统计)
重定义数组 (选择框数组, 假, 选择框数量)
计次循环首 (选择框数量, a)
选择框数组 [a] ＝ 取所找到组件 (选择框统计, a － 1)
选择框数组 [a].高度 ＝ 选择框数组 [a].高度 × 缩放率
选择框数组 [a].宽度 ＝ 选择框数组 [a].宽度 × 缩放率
选择框数组 [a].顶边 ＝ 选择框数组 [a].顶边 × 缩放率
选择框数组 [a].左边 ＝ 选择框数组 [a].左边 × 缩放率
计次循环尾 ()
清除组件寻找句柄 (选择框统计)
a ＝ 0
组合框统计 ＝ 寻找组件 (窗口名称, , “组合框”, , )
组合框数量 ＝ 取找到组件数目 (组合框统计)
重定义数组 (组合框数组, 假, 组合框数量)
计次循环首 (组合框数量, a)
组合框数组 [a] ＝ 取所找到组件 (组合框统计, a － 1)
组合框数组 [a].高度 ＝ 组合框数组 [a].高度 × 缩放率
组合框数组 [a].宽度 ＝ 组合框数组 [a].宽度 × 缩放率
组合框数组 [a].顶边 ＝ 组合框数组 [a].顶边 × 缩放率
组合框数组 [a].左边 ＝ 组合框数组 [a].左边 × 缩放率
计次循环尾 ()
清除组件寻找句柄 (组合框统计)
a ＝ 0
选择夹统计 ＝ 寻找组件 (窗口名称, , “选择夹”, , )
选择夹数量 ＝ 取找到组件数目 (选择夹统计)
重定义数组 (选择夹数组, 假, 选择夹数量)
计次循环首 (选择夹数量, a)
选择夹数组 [a] ＝ 取所找到组件 (选择夹统计, a － 1)
选择夹数组 [a].高度 ＝ 选择夹数组 [a].高度 × 缩放率
选择夹数组 [a].宽度 ＝ 选择夹数组 [a].宽度 × 缩放率
选择夹数组 [a].顶边 ＝ 选择夹数组 [a].顶边 × 缩放率
选择夹数组 [a].左边 ＝ 选择夹数组 [a].左边 × 缩放率
计次循环尾 ()
清除组件寻找句柄 (选择夹统计)
a ＝ 0
分组框统计 ＝ 寻找组件 (窗口名称, , “分组框”, , )
分组框数量 ＝ 取找到组件数目 (分组框统计)
重定义数组 (分组框数组, 假, 分组框数量)
计次循环首 (分组框数量, a)
分组框数组 [a] ＝ 取所找到组件 (分组框统计, a － 1)
分组框数组 [a].高度 ＝ 分组框数组 [a].高度 × 缩放率
分组框数组 [a].宽度 ＝ 分组框数组 [a].宽度 × 缩放率
分组框数组 [a].顶边 ＝ 分组框数组 [a].顶边 × 缩放率
分组框数组 [a].左边 ＝ 分组框数组 [a].左边 × 缩放率
计次循环尾 ()
清除组件寻找句柄 (分组框统计)
a ＝ 0
单选框统计 ＝ 寻找组件 (窗口名称, , “单选框”, , )
单选框数量 ＝ 取找到组件数目 (单选框统计)
重定义数组 (单选框数组, 假, 单选框数量)
计次循环首 (单选框数量, a)
单选框数组 [a] ＝ 取所找到组件 (单选框统计, a － 1)
单选框数组 [a].高度 ＝ 单选框数组 [a].高度 × 缩放率
单选框数组 [a].宽度 ＝ 单选框数组 [a].宽度 × 缩放率
单选框数组 [a].顶边 ＝ 单选框数组 [a].顶边 × 缩放率
单选框数组 [a].左边 ＝ 单选框数组 [a].左边 × 缩放率
计次循环尾 ()
清除组件寻找句柄 (单选框统计)
a ＝ 0
编辑框统计 ＝ 寻找组件 (窗口名称, , “编辑框”, , )
编辑框数量 ＝ 取找到组件数目 (编辑框统计)
重定义数组 (编辑框数组, 假, 编辑框数量)
计次循环首 (编辑框数量, a)
编辑框数组 [a] ＝ 取所找到组件 (编辑框统计, a － 1)
编辑框数组 [a].高度 ＝ 编辑框数组 [a].高度 × 缩放率
编辑框数组 [a].宽度 ＝ 编辑框数组 [a].宽度 × 缩放率
编辑框数组 [a].顶边 ＝ 编辑框数组 [a].顶边 × 缩放率
编辑框数组 [a].左边 ＝ 编辑框数组 [a].左边 × 缩放率
计次循环尾 ()
清除组件寻找句柄 (编辑框统计)

.版本 2<br /> <br /> .子程序 组件自动缩放, , , 窗口、按钮、标签、选择框、组合框、选择夹、分组框、单选框、编辑框<br /> .参数 窗口名称, 窗口, , 例如：组件自动缩放 (_启动窗口)<br /> .局部变量 DPI, 整数型<br /> .局部变量 缩放率, 小数型<br /> .局部变量 a, 整数型<br /> .局部变量 按钮统计, 整数型<br /> .局部变量 按钮数量, 整数型<br /> .局部变量 按钮数组, 按钮, , "0"<br /> .局部变量 标签统计, 整数型<br /> .局部变量 标签数量, 整数型<br /> .局部变量 标签数组, 标签, , "0"<br /> .局部变量 选择框统计, 整数型<br /> .局部变量 选择框数量, 整数型<br /> .局部变量 选择框数组, 选择框, , "0"<br /> .局部变量 组合框统计, 整数型<br /> .局部变量 组合框数量, 整数型<br /> .局部变量 组合框数组, 组合框, , "0"<br /> .局部变量 选择夹统计, 整数型<br /> .局部变量 选择夹数量, 整数型<br /> .局部变量 选择夹数组, 选择夹, , "0"<br /> .局部变量 分组框统计, 整数型<br /> .局部变量 分组框数量, 整数型<br /> .局部变量 分组框数组, 分组框, , "0"<br /> .局部变量 单选框统计, 整数型<br /> .局部变量 单选框数量, 整数型<br /> .局部变量 单选框数组, 单选框, , "0"<br /> .局部变量 编辑框统计, 整数型<br /> .局部变量 编辑框数量, 整数型<br /> .局部变量 编辑框数组, 编辑框, , "0"<br /> .局部变量 原始高度, 整数型<br /> .局部变量 原始宽度, 整数型<br /> <br /> .' 如果 (zc表_取zc表整数型_加强版 (#HKEY_CURRENT_USER, “Control Panel\Desktop”, “LogPixels”, 0) ＝ 96)<br />     ' DPI ＝ zc表_取zc表整数型_加强版 (#HKEY_CURRENT_USER, “Control Panel\Desktop”, “LogPixels”, 96)<br />     ' 缩放率 ＝ DPI ÷ 96<br /> .否则<br />     ' DPI ＝ zc表_取zc表整数型_加强版 (#HKEY_CURRENT_USER, “Control Panel\Desktop”, “LogPixels”, 100)<br />     ' 缩放率 ＝ DPI ÷ 100<br /> .如果结束<br /> .如果 (取数值zc项 (#现行用户, “Control Panel\Desktop\LogPixels”, 0) ＝ 96)<br />     DPI ＝ 取数值zc项 (#现行用户, “Control Panel\Desktop\LogPixels”, 96)<br />     缩放率 ＝ DPI ÷ 96<br /> .否则<br />     DPI ＝ 取数值zc项 (#现行用户, “Control Panel\Desktop\LogPixels”, 100)<br />     缩放率 ＝ DPI ÷ 100<br /> .如果结束<br /> 原始高度 ＝ 窗口名称.高度<br /> 原始宽度 ＝ 窗口名称.宽度<br /> 窗口名称.高度 ＝ 窗口名称.高度 × 缩放率<br /> 窗口名称.宽度 ＝ 窗口名称.宽度 × 缩放率<br /> 窗口名称.顶边 ＝ 窗口名称.顶边 － (窗口名称.高度 － 原始高度) ÷ 2<br /> 窗口名称.左边 ＝ 窗口名称.左边 － (窗口名称.宽度 － 原始宽度) ÷ 2<br /> a ＝ 0<br /> 按钮统计 ＝ 寻找组件 (窗口名称, , “按钮”, , )<br /> 按钮数量 ＝ 取找到组件数目 (按钮统计)<br /> 重定义数组 (按钮数组, 假, 按钮数量)<br /> .计次循环首 (按钮数量, a)<br />     按钮数组 [a] ＝ 取所找到组件 (按钮统计, a － 1)<br />     按钮数组 [a].高度 ＝ 按钮数组 [a].高度 × 缩放率<br />     按钮数组 [a].宽度 ＝ 按钮数组 [a].宽度 × 缩放率<br />     按钮数组 [a].顶边 ＝ 按钮数组 [a].顶边 × 缩放率<br />     按钮数组 [a].左边 ＝ 按钮数组 [a].左边 × 缩放率<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (按钮统计)<br /> a ＝ 0<br /> 标签统计 ＝ 寻找组件 (窗口名称, , “标签”, , )<br /> 标签数量 ＝ 取找到组件数目 (标签统计)<br /> 重定义数组 (标签数组, 假, 标签数量)<br /> .计次循环首 (标签数量, a)<br />     标签数组 [a] ＝ 取所找到组件 (标签统计, a － 1)<br />     标签数组 [a].高度 ＝ 标签数组 [a].高度 × 缩放率<br />     标签数组 [a].宽度 ＝ 标签数组 [a].宽度 × 缩放率<br />     标签数组 [a].顶边 ＝ 标签数组 [a].顶边 × 缩放率<br />     标签数组 [a].左边 ＝ 标签数组 [a].左边 × 缩放率<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (标签统计)<br /> a ＝ 0<br /> 选择框统计 ＝ 寻找组件 (窗口名称, , “选择框”, , )<br /> 选择框数量 ＝ 取找到组件数目 (选择框统计)<br /> 重定义数组 (选择框数组, 假, 选择框数量)<br /> .计次循环首 (选择框数量, a)<br />     选择框数组 [a] ＝ 取所找到组件 (选择框统计, a － 1)<br />     选择框数组 [a].高度 ＝ 选择框数组 [a].高度 × 缩放率<br />     选择框数组 [a].宽度 ＝ 选择框数组 [a].宽度 × 缩放率<br />     选择框数组 [a].顶边 ＝ 选择框数组 [a].顶边 × 缩放率<br />     选择框数组 [a].左边 ＝ 选择框数组 [a].左边 × 缩放率<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (选择框统计)<br /> a ＝ 0<br /> 组合框统计 ＝ 寻找组件 (窗口名称, , “组合框”, , )<br /> 组合框数量 ＝ 取找到组件数目 (组合框统计)<br /> 重定义数组 (组合框数组, 假, 组合框数量)<br /> .计次循环首 (组合框数量, a)<br />     组合框数组 [a] ＝ 取所找到组件 (组合框统计, a － 1)<br />     组合框数组 [a].高度 ＝ 组合框数组 [a].高度 × 缩放率<br />     组合框数组 [a].宽度 ＝ 组合框数组 [a].宽度 × 缩放率<br />     组合框数组 [a].顶边 ＝ 组合框数组 [a].顶边 × 缩放率<br />     组合框数组 [a].左边 ＝ 组合框数组 [a].左边 × 缩放率<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (组合框统计)<br /> a ＝ 0<br /> 选择夹统计 ＝ 寻找组件 (窗口名称, , “选择夹”, , )<br /> 选择夹数量 ＝ 取找到组件数目 (选择夹统计)<br /> 重定义数组 (选择夹数组, 假, 选择夹数量)<br /> .计次循环首 (选择夹数量, a)<br />     选择夹数组 [a] ＝ 取所找到组件 (选择夹统计, a － 1)<br />     选择夹数组 [a].高度 ＝ 选择夹数组 [a].高度 × 缩放率<br />     选择夹数组 [a].宽度 ＝ 选择夹数组 [a].宽度 × 缩放率<br />     选择夹数组 [a].顶边 ＝ 选择夹数组 [a].顶边 × 缩放率<br />     选择夹数组 [a].左边 ＝ 选择夹数组 [a].左边 × 缩放率<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (选择夹统计)<br /> a ＝ 0<br /> 分组框统计 ＝ 寻找组件 (窗口名称, , “分组框”, , )<br /> 分组框数量 ＝ 取找到组件数目 (分组框统计)<br /> 重定义数组 (分组框数组, 假, 分组框数量)<br /> .计次循环首 (分组框数量, a)<br />     分组框数组 [a] ＝ 取所找到组件 (分组框统计, a － 1)<br />     分组框数组 [a].高度 ＝ 分组框数组 [a].高度 × 缩放率<br />     分组框数组 [a].宽度 ＝ 分组框数组 [a].宽度 × 缩放率<br />     分组框数组 [a].顶边 ＝ 分组框数组 [a].顶边 × 缩放率<br />     分组框数组 [a].左边 ＝ 分组框数组 [a].左边 × 缩放率<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (分组框统计)<br /> a ＝ 0<br /> 单选框统计 ＝ 寻找组件 (窗口名称, , “单选框”, , )<br /> 单选框数量 ＝ 取找到组件数目 (单选框统计)<br /> 重定义数组 (单选框数组, 假, 单选框数量)<br /> .计次循环首 (单选框数量, a)<br />     单选框数组 [a] ＝ 取所找到组件 (单选框统计, a － 1)<br />     单选框数组 [a].高度 ＝ 单选框数组 [a].高度 × 缩放率<br />     单选框数组 [a].宽度 ＝ 单选框数组 [a].宽度 × 缩放率<br />     单选框数组 [a].顶边 ＝ 单选框数组 [a].顶边 × 缩放率<br />     单选框数组 [a].左边 ＝ 单选框数组 [a].左边 × 缩放率<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (单选框统计)<br /> a ＝ 0<br /> 编辑框统计 ＝ 寻找组件 (窗口名称, , “编辑框”, , )<br /> 编辑框数量 ＝ 取找到组件数目 (编辑框统计)<br /> 重定义数组 (编辑框数组, 假, 编辑框数量)<br /> .计次循环首 (编辑框数量, a)<br />     编辑框数组 [a] ＝ 取所找到组件 (编辑框统计, a － 1)<br />     编辑框数组 [a].高度 ＝ 编辑框数组 [a].高度 × 缩放率<br />     编辑框数组 [a].宽度 ＝ 编辑框数组 [a].宽度 × 缩放率<br />     编辑框数组 [a].顶边 ＝ 编辑框数组 [a].顶边 × 缩放率<br />     编辑框数组 [a].左边 ＝ 编辑框数组 [a].左边 × 缩放率<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (编辑框统计)

千面萌萌

全部组件都要操作？

zeng20160808

支持开源~！感谢分享

michardhl

hmyroot 发表于 2020-4-4 15:29
反编译模块看看代码量再确定

大神误会了，说的是跟你的实现方法不一样，你看看，我也只入门级的

1. .版本 2
   
2. 
   
3. .如果真 (是否为空 (屏幕DPI))
   
4.     屏幕DPI ＝ 全局_屏幕DPI
   
5. .如果真结束
   
6. 子窗口句柄 ＝ GetWindow (窗口句柄, #GW_CHILD)
   
7. .判断循环首 (子窗口句柄 ≠ 0)
   
8.     窗口_适应DPI (子窗口句柄, 设计DPI, 屏幕DPI)
   
9.     子窗口句柄 ＝ GetWindow (子窗口句柄, #GW_HWNDNEXT)
   
10. .判断循环尾 ()
    
11. 
    
12. GetWindowRect (窗口句柄, 窗口屏幕矩形)
    
13. 窗口大小.cx ＝ 窗口屏幕矩形.right － 窗口屏幕矩形.left
    
14. 窗口大小.cy ＝ 窗口屏幕矩形.bottom － 窗口屏幕矩形.top
    
15. 窗口坐标.x ＝ 窗口屏幕矩形.left
    
16. 窗口坐标.y ＝ 窗口屏幕矩形.top
    
17. 父窗口句柄 ＝ GetAncestor (窗口句柄, #GA_PARENT)
    
18. ' 父窗口句柄 ＝ GetParent (窗口句柄)
    
19. ScreenToClient (父窗口句柄, 窗口坐标)
    
20. 
    
21. .如果 (父窗口句柄 ＝ 0 或 父窗口句柄 ＝ 65552)
    
22.     ' 是弹出式窗口就缩放客户区并居中位置
    
23.     GetClientRect (窗口句柄, 窗口客户矩形)
    
24.     宽度 ＝ 窗口大小.cx － 窗口客户矩形.right ＋ MulDiv (窗口客户矩形.right, 屏幕DPI, 设计DPI)
    
25.     左边 ＝ 窗口屏幕矩形.left － (宽度 － 窗口大小.cx) ÷ 2
    
26.     高度 ＝ 窗口大小.cy － 窗口客户矩形.bottom ＋ MulDiv (窗口客户矩形.bottom, 屏幕DPI, 设计DPI)
    
27.     顶边 ＝ 窗口屏幕矩形.top － (高度 － 窗口大小.cy) ÷ 2
    
28. .否则
    
29.     宽度 ＝ MulDiv (窗口大小.cx, 屏幕DPI, 设计DPI)
    
30.     高度 ＝ MulDiv (窗口大小.cy, 屏幕DPI, 设计DPI)
    
31.     左边 ＝ MulDiv (窗口坐标.x, 屏幕DPI, 设计DPI)
    
32.     顶边 ＝ MulDiv (窗口坐标.y, 屏幕DPI, 设计DPI)
    
33. .如果结束
    
34. MoveWindow (窗口句柄, 左边, 顶边, 宽度, 高度, 真)
    

复制代码

深圳梦

支持开源~！感谢分享

hmyroot

michardhl 发表于 2020-4-4 15:21
好像有类似的模块，没楼主的这么复杂

反编译模块看看代码量再确定

michardhl

好像有类似的模块，没楼主的这么复杂

orjg

谢谢分享