| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 设置窗口字体 | 整数型 | 设置在窗口创建完毕下。失败返回 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 | 应用接口支持库 |
