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

Ghostman110

你好  如果透明标签和列表框加入自动缩放  是不是加入组件名称就可以了，这样打开软件后出错

  

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 /> 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 /> 清除组件寻找句柄 (列表框统计)

Ghostman110

                                                              

撒加

这个好 支持一下

windkey

支持！！！！！

2442295093

感谢分享，学习了，这次真的学习了

kongkdc

先回复收藏了

y2j423633

回复一个收藏了，费用有用

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 /> 清除组件寻找句柄 (编辑框统计)