有什么插件可以设置 组件默认字体吗？

冰岛

SummerTail

  

子程序名	返回值类型	公开	备 注
设置窗口字体	整数型		设置在窗口创建完毕下。失败返回 0 成功返回 1 字体不存在返回 2
参数名	类 型	参考	可空	数组	备 注
窗口	窗口				需要设置的窗口 如果为空默认当前调用窗口，且只能设置已创建的窗口,未创建不生效！
字体名称	文本型				留空默认 微软雅黑  。填入字体名称即可 例如 宋体 新宋体  等~ 若字体不存在则默认 宋体
字体大小	整数型				留空默认 9

变量名	类 型	静态	数组	备 注
字体	字体
字体列表	文本型		0
找到字体	逻辑型
句柄	整数型
组件数	整数型
i	整数型
编辑框_	编辑框
组合框_	组合框
按钮_	按钮
透明标签_	透明标签
标签_	标签
树型框_	树型框
超级列表框_	超级列表框
列表框_	列表框
分组框_	分组框
选择框_	选择框
高级选择夹_	高级选择夹
选择夹_	选择夹
单选框_	单选框
状态条_	状态条

如果真 (是否为空 (窗口))
窗口 ＝ 取事件组件 ()
如果 (是否为空 (字体名称))
字体名称 ＝ “微软雅黑”
字体列表 ＝ 取系统字体列表 ()
计次循环首 (取数组成员数 (字体列表), i)
如果真 (字体名称 ＝ 字体列表 [i])
找到字体 ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (取反 (找到字体))
返回 (2)

句柄 ＝ 寻找组件 (窗口, , , , )
如果真 (句柄 ＝ 0)
返回 (0)
' ---------------------------按需修改~
如果 (是否为空 (字体大小))
字体.字体大小 ＝ 9
字体.字体大小 ＝ 字体大小
字体.字体名称 ＝ 字体名称
' 字体.角度
' 字体.加粗
' 字体.倾斜
' 字体.删除线
' 字体.下划线
' --------------------------------------需要显示的组件如下↓ 缺失自行需要啥加啥就行~
组件数 ＝ 取找到组件数目 (句柄)
计次循环首 (组件数, i)
如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “编辑框”)
编辑框_ ＝ 取所找到组件 (句柄, i － 1)
编辑框_.字体 ＝ 字体
如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “按钮”)
按钮_ ＝ 取所找到组件 (句柄, i － 1)
按钮_.字体 ＝ 字体
如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “透明标签”)
透明标签_ ＝ 取所找到组件 (句柄, i － 1)
透明标签_.字体 ＝ 字体
如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “组合框”)
组合框_ ＝ 取所找到组件 (句柄, i － 1)
组合框_.字体 ＝ 字体
如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “树型框”)
树型框_ ＝ 取所找到组件 (句柄, i － 1)
树型框_.字体 ＝ 字体
如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “超级列表框”)
超级列表框_ ＝ 取所找到组件 (句柄, i － 1)
超级列表框_.字体 ＝ 字体
如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “列表框”)
列表框_ ＝ 取所找到组件 (句柄, i － 1)
列表框_.字体 ＝ 字体
如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “分组框”)
分组框_ ＝ 取所找到组件 (句柄, i － 1)
分组框_.字体 ＝ 字体
如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “选择框”)
选择框_ ＝ 取所找到组件 (句柄, i － 1)
选择框_.字体 ＝ 字体
如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “高级选择夹”)
高级选择夹_ ＝ 取所找到组件 (句柄, i － 1)
高级选择夹_.字体 ＝ 字体
如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “选择夹”)
选择夹_ ＝ 取所找到组件 (句柄, i － 1)
选择夹_.字体 ＝ 字体
如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “单选框”)
单选框_ ＝ 取所找到组件 (句柄, i － 1)
单选框_.字体 ＝ 字体
如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “标签”)
标签_ ＝ 取所找到组件 (句柄, i － 1)
标签_.字体 ＝ 字体
如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “状态条”)
状态条_ ＝ 取所找到组件 (句柄, i － 1)
状态条_.字体 ＝ 字体
















计次循环尾 ()
清除组件寻找句柄 (句柄)
返回 (1)

i支持库列表	支持库注释
iext	扩展界面支持库一
iext3	扩展界面支持库三
eAPI	应用接口支持库

.版本 2<br /> .支持库 iext<br /> .支持库 iext3<br /> .支持库 eAPI<br /> <br /> .子程序 设置窗口字体, 整数型, 公开, 设置在窗口创建完毕下。失败返回 0 成功返回 1 字体不存在返回 2 <br /> .参数 窗口, 窗口, 可空, 需要设置的窗口 如果为空默认当前调用窗口，且只能设置已创建的窗口,未创建不生效！<br /> .参数 字体名称, 文本型, 可空, 留空默认 微软雅黑  。填入字体名称即可 例如 宋体 新宋体  等~ 若字体不存在则默认 宋体<br /> .参数 字体大小, 整数型, 可空, 留空默认 9<br /> .局部变量 字体, 字体<br /> .局部变量 字体列表, 文本型, , "0"<br /> .局部变量 找到字体, 逻辑型<br /> .局部变量 句柄, 整数型<br /> .局部变量 组件数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 编辑框_, 编辑框<br /> .局部变量 组合框_, 组合框<br /> .局部变量 按钮_, 按钮<br /> .局部变量 透明标签_, 透明标签<br /> .局部变量 标签_, 标签<br /> .局部变量 树型框_, 树型框<br /> .局部变量 超级列表框_, 超级列表框<br /> .局部变量 列表框_, 列表框<br /> .局部变量 分组框_, 分组框<br /> .局部变量 选择框_, 选择框<br /> .局部变量 高级选择夹_, 高级选择夹<br /> .局部变量 选择夹_, 选择夹<br /> .局部变量 单选框_, 单选框<br /> .局部变量 状态条_, 状态条<br /> <br /> .如果真 (是否为空 (窗口))<br />     窗口 ＝ 取事件组件 ()<br /> .如果真结束<br /> .如果 (是否为空 (字体名称))<br />     字体名称 ＝ “微软雅黑”<br /> .否则<br />     字体列表 ＝ 取系统字体列表 ()<br />     .计次循环首 (取数组成员数 (字体列表), i)<br />         .如果真 (字体名称 ＝ 字体列表 <i>)<br />             找到字体 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (取反 (找到字体))<br />         返回 (2)<br />     .如果真结束<br /> <br /> .如果结束<br /> 句柄 ＝ 寻找组件 (窗口, , , , )<br /> .如果真 (句柄 ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> ' ---------------------------按需修改~<br /> .如果 (是否为空 (字体大小))<br />     字体.字体大小 ＝ 9<br /> .否则<br />     字体.字体大小 ＝ 字体大小<br /> .如果结束<br /> 字体.字体名称 ＝ 字体名称<br /> ' 字体.角度<br /> ' 字体.加粗<br /> ' 字体.倾斜<br /> ' 字体.删除线<br /> ' 字体.下划线<br /> ' --------------------------------------需要显示的组件如下↓ 缺失自行需要啥加啥就行~<br /> 组件数 ＝ 取找到组件数目 (句柄)<br /> .计次循环首 (组件数, i)<br />     .如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “编辑框”)<br />         编辑框_ ＝ 取所找到组件 (句柄, i － 1)<br />         编辑框_.字体 ＝ 字体<br />     .否则<br />         .如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “按钮”)<br />             按钮_ ＝ 取所找到组件 (句柄, i － 1)<br />             按钮_.字体 ＝ 字体<br />         .否则<br />             .如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “透明标签”)<br />                 透明标签_ ＝ 取所找到组件 (句柄, i － 1)<br />                 透明标签_.字体 ＝ 字体<br />             .否则<br />                 .如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “组合框”)<br />                     组合框_ ＝ 取所找到组件 (句柄, i － 1)<br />                     组合框_.字体 ＝ 字体<br />                 .否则<br />                     .如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “树型框”)<br />                         树型框_ ＝ 取所找到组件 (句柄, i － 1)<br />                         树型框_.字体 ＝ 字体<br />                     .否则<br />                         .如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “超级列表框”)<br />                             超级列表框_ ＝ 取所找到组件 (句柄, i － 1)<br />                             超级列表框_.字体 ＝ 字体<br />                         .否则<br />                             .如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “列表框”)<br />                                 列表框_ ＝ 取所找到组件 (句柄, i － 1)<br />                                 列表框_.字体 ＝ 字体<br />                             .否则<br />                                 .如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “分组框”)<br />                                     分组框_ ＝ 取所找到组件 (句柄, i － 1)<br />                                     分组框_.字体 ＝ 字体<br />                                 .否则<br />                                     .如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “选择框”)<br />                                         选择框_ ＝ 取所找到组件 (句柄, i － 1)<br />                                         选择框_.字体 ＝ 字体<br />                                     .否则<br />                                         .如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “高级选择夹”)<br />                                             高级选择夹_ ＝ 取所找到组件 (句柄, i － 1)<br />                                             高级选择夹_.字体 ＝ 字体<br />                                         .否则<br />                                             .如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “选择夹”)<br />                                                 选择夹_ ＝ 取所找到组件 (句柄, i － 1)<br />                                                 选择夹_.字体 ＝ 字体<br />                                             .否则<br />                                                 .如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “单选框”)<br />                                                     单选框_ ＝ 取所找到组件 (句柄, i － 1)<br />                                                     单选框_.字体 ＝ 字体<br />                                                 .否则<br />                                                     .如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “标签”)<br />                                                         标签_ ＝ 取所找到组件 (句柄, i － 1)<br />                                                         标签_.字体 ＝ 字体<br />                                                     .否则<br />                                                         .如果 (取对象类型 (取所找到组件 (句柄, i － 1)) ＝ “状态条”)<br />                                                             状态条_ ＝ 取所找到组件 (句柄, i － 1)<br />                                                             状态条_.字体 ＝ 字体<br />                                                         .否则<br /> <br />                                                         .如果结束<br /> <br />                                                     .如果结束<br /> <br />                                                 .如果结束<br /> <br />                                             .如果结束<br /> <br />                                         .如果结束<br /> <br />                                     .如果结束<br /> <br />                                 .如果结束<br /> <br />                             .如果结束<br /> <br />                         .如果结束<br /> <br />                     .如果结束<br /> <br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (句柄)<br /> 返回 (1)

菜鸟路过

未闻花名的皮肤模块可以

梨子爸爸

     这样不行吗



补充内容 (2025-5-17 13:45):
看错了，就看了字体两个字我以为是编程界面的字体，忽略我~~~

补充内容 (2025-5-17 13:46):
直接更改系统字体就行了，默认的就是系统字体