如何让标签字体大小自动按内容多少进行调节？

wh1234567

haoren1212 发表于 2025-11-9 20:49
你想根据文本长度来自动改变字体大小，不是改变组件宽度。组件宽度不需要改变，上面我发错了（组件长度） ...

有点看不懂这个源码，您可以按我这个意思写个简单例子吗

baitso

.版本 2
.支持库 spec

.程序集 窗口程序集_窗口1

.子程序 _按钮1_被单击

标签字体自适应 (“精易论坛精易论坛”)



.子程序 标签字体自适应
.参数 txt, 文本型
.局部变量 len, 整数型
.局部变量 len2, 整数型
.局部变量 size, 小数型
.局部变量 font, 整数型
.局部变量 字体, 字体

len ＝ 取文本长度 (txt)
调试输出 (len)
len2 ＝ 标签1.宽度 － 2
size ＝ len2 ÷ len
font ＝ 字体_取单字宽高的字号 (size, 假)
字体.字体大小 ＝ font
标签1.字体 ＝ 字体
标签1.标题 ＝ txt


精易模块

wh1234567

baitso 发表于 2025-11-9 21:08
.版本 2
.支持库 spec

非常感谢，就是这个功能，好像不是很完善，只考虑了宽度没有考虑高度？求修正，期待老师

baitso

wh1234567 发表于 2025-11-9 21:16
非常感谢，就是这个功能，好像不是很完善，只考虑了宽度没有考虑高度？求修正，期待老师 ...

高度自动换行？

baitso

1.e (957.73 KB, 下载次数: 1)

昨天 21:24 上传

点击文件名下载附件

补充内容 (2025-11-9 21:25):
这样了，其它的自己按自己的需求去修改了

wh1234567

baitso 发表于 2025-11-9 21:08
.版本 2
.支持库 spec

是会出现文字高度超过了标签高度了，是这种情况，所以期待老师修正

baitso

wh1234567 发表于 2025-11-9 21:52
是会出现文字高度超过了标签高度了，是这种情况，所以期待老师修正

你这种是有边框的原因吧

baitso

  

子程序名	返回值类型	公开	备 注
标签字体自适应
参数名	类 型	参考	可空	数组	备 注
txt	文本型

变量名	类 型	静态	数组	备 注
字长	整数型
最大长度	整数型
平均字体大小	小数型
字体宽大小	整数型
字体高大小	整数型
字体	字体
原始字体大小	整数型
原始长度	整数型
原始高度	整数型
单字宽高	小数型
边框大小	整数型

字长 ＝ 取文本长度 (txt) ÷ 2
原始字体大小 ＝ 标签1.字体.字体大小
单字宽高 ＝ 字体_取单字宽高 (原始字体大小, )
原始长度 ＝ 字体_取单字宽高 (原始字体大小, ) × 字长
边框大小 ＝ (选择 (标签1.边框 ＞ 1, 标签1.渐变边框宽度, 0) ＋ 1) × 2
调试输出 (边框大小)
如果真 (原始长度 ＞ 标签1.宽度 － 边框大小 或 单字宽高 ＞ 标签1.高度 － 边框大小)
最大长度 ＝ 标签1.宽度 － 边框大小
平均字体大小 ＝ 最大长度 ÷ 字长
字体宽大小 ＝ 字体_取单字宽高的字号 (平均字体大小, 假)
字体高大小 ＝ 标签1.高度 － 边框大小
字体.字体大小 ＝ 选择 (字体宽大小 ＜ 字体高大小, 字体宽大小, 字体高大小)
调试输出 (字体高大小, 字体宽大小, 字体.字体大小)
标签1.字体 ＝ 字体
标签1.标题 ＝ txt

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 标签字体自适应<br /> .参数 txt, 文本型<br /> .局部变量 字长, 整数型<br /> .局部变量 最大长度, 整数型<br /> .局部变量 平均字体大小, 小数型<br /> .局部变量 字体宽大小, 整数型<br /> .局部变量 字体高大小, 整数型<br /> .局部变量 字体, 字体<br /> .局部变量 原始字体大小, 整数型<br /> .局部变量 原始长度, 整数型<br /> .局部变量 原始高度, 整数型<br /> .局部变量 单字宽高, 小数型<br /> .局部变量 边框大小, 整数型<br /> <br /> 字长 ＝ 取文本长度 (txt) ÷ 2<br /> 原始字体大小 ＝ 标签1.字体.字体大小<br /> 单字宽高 ＝ 字体_取单字宽高 (原始字体大小, )<br /> 原始长度 ＝ 字体_取单字宽高 (原始字体大小, ) × 字长<br /> 边框大小 ＝ (选择 (标签1.边框 ＞ 1, 标签1.渐变边框宽度, 0) ＋ 1) × 2<br /> <br /> 调试输出 (边框大小)<br /> .如果真 (原始长度 ＞ 标签1.宽度 － 边框大小 或 单字宽高 ＞ 标签1.高度 － 边框大小)<br />     最大长度 ＝ 标签1.宽度 － 边框大小<br />     平均字体大小 ＝ 最大长度 ÷ 字长<br />     字体宽大小 ＝ 字体_取单字宽高的字号 (平均字体大小, 假)<br />     字体高大小 ＝ 标签1.高度 － 边框大小<br />     字体.字体大小 ＝ 选择 (字体宽大小 ＜ 字体高大小, 字体宽大小, 字体高大小)<br />     调试输出 (字体高大小, 字体宽大小, 字体.字体大小)<br />     标签1.字体 ＝ 字体<br /> <br /> .如果真结束<br /> 标签1.标题 ＝ txt

wh1234567

baitso 发表于 2025-11-9 22:03
你这种是有边框的原因吧

第一次的代码存在文字内容不满就自动变小了，无法按默认字体大小显示。单个文字会高度超出标签高度显示不全。
第二次的代码是长度显示不完整，无法自动变化字体大小

haoren1212

wh1234567 发表于 2025-11-9 20:56
有点看不懂这个源码，您可以按我这个意思写个简单例子吗

  

子程序名	返回值类型	公开	备 注
_按钮_超级列表框1_被单击

变量名	类 型	静态	数组	备 注
标签	标签
单位像素	整数型
标题内容	文本型
字体大小	整数型

标题内容 ＝ 编辑框1.内容
标签 ＝ 标签1
标签.标题 ＝ 标题内容
单位像素 ＝ (标签.宽度 － 2) ÷ 取文本长度 (标题内容)
字体大小 ＝ 到整数 (单位像素 × 3 ÷ 2)
调试输出 (标签1.字体.字体大小, 单位像素, 字体大小)
标签1.字体.字体大小 ＝ 字体大小

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮_超级列表框1_被单击<br /> .局部变量 标签, 标签<br /> .局部变量 单位像素, 整数型<br /> .局部变量 标题内容, 文本型<br /> .局部变量 字体大小, 整数型<br /> <br /> 标题内容 ＝ 编辑框1.内容<br /> 标签 ＝ 标签1<br /> 标签.标题 ＝ 标题内容<br /> 单位像素 ＝ (标签.宽度 － 2) ÷ 取文本长度 (标题内容)<br /> 字体大小 ＝ 到整数 (单位像素 × 3 ÷ 2)<br /> 调试输出 (标签1.字体.字体大小, 单位像素, 字体大小)<br /> 标签1.字体.字体大小 ＝ 字体大小