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

baitso

wh1234567 发表于 2025-11-9 22:15
第一次的代码存在文字内容不满就自动变小了，无法按默认字体大小显示。单个文字会高度超出标签高度显示不 ...

把这行
如果真 (原始长度 ＞ 标签1.宽度 － 边框大小 或 单字宽高 ＞ 标签1.高度 － 边框大小)
给删了

wh1234567

baitso 发表于 2025-11-9 22:10
[e=0].版本 2
.支持库 spec

字体变小后，如果标签内容多少发生变化，而字体大小无法自动变大？还需了；老师修正，呵呵

补充内容 (2025-11-9 22:24):
字体变小后，如果标签内容多少发生变化，而字体大小无法自动变大恢复到原始默认大小？还需老师修正，呵呵

baitso

.版本 2
.支持库 spec

.子程序 标签字体自适应
.参数 txt, 文本型
.局部变量 字长, 整数型
.局部变量 最大长度, 整数型
.局部变量 平均字体大小, 小数型
.局部变量 字体宽大小, 整数型
.局部变量 字体高大小, 整数型
.局部变量 字体, 字体
.局部变量 原始字体大小, 整数型
.局部变量 原始长度, 整数型
.局部变量 原始高度, 整数型
.局部变量 单字宽高, 小数型
.局部变量 边框大小, 整数型

字长 ＝ 取文本长度 (txt) ÷ 2
原始字体大小 ＝ 标签1.字体.字体大小
单字宽高 ＝ 字体_取单字宽高 (原始字体大小, )
原始长度 ＝ 字体_取单字宽高 (原始字体大小, ) × 字长
边框大小 ＝ (选择 (标签1.边框 ＞ 1, 标签1.渐变边框宽度, 0) ＋ 1) × 2

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

wh1234567

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

字体变小后，如果标签内容多少发生变化，而字体大小不得大于原始字体默认大小才合理，老师再修正一下吧，呵呵

frankiy

自适应标签，独家自创！！！


补充内容 (2025-11-9 22:53):
后悔了，别选我，也别回复。

haoren1212

  

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

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

标题内容 ＝ 编辑框1.内容
标签 ＝ 标签1
标签.标题 ＝ 标题内容
单位像素1 ＝ (标签.宽度 － 2) ÷ 取文本长度 (标题内容)
字体大小1 ＝ 到整数 (单位像素1 × 3 ÷ 2)
' 适应标签高度
单位像素2 ＝ 标签.高度 － 10
字体大小2 ＝ 到整数 (单位像素2 × 3 ÷ 2)
判断 (单位像素2 × 取文本长度 (标题内容) ＋ 2 ＞ 标签.宽度)
字体大小 ＝ 字体大小1
字体大小 ＝ 字体大小2

' -------------
调试输出 (标签1.字体.字体大小, 字体大小 ÷ 2 × 3, 字体大小)
标签1.字体.字体大小 ＝ 字体大小

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

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

补充内容 (2025-11-9 22:59):
标题文本需要占满的情况下才会缩小字体，注意这不是需要修改的问题，我这个答案应该是很完美的