7,763
社区成员
发帖
与我相关
我的任务
分享label控件的问题？
请问能否实现label自动随着内容的多少改变自己的高度，如果内容为一行，label的高度适应，如果内容为三行那么label的高度也相应调整？
...全文
请发表友善的回复…
发表回复
lnboy1003 2006-05-11
- 打赏
- 举报
学习
of123 2006-05-11
- 打赏
- 举报
楼上说得是。
在运行时代码设置要注意语句顺序：
Label1 = "请问能否实现label自动随着内容的多少改变自己的高度，如果内容为一行，label的高度适应，如果内容为三行那么label的高度也相应调整？"
Label1.WordWrap = True
Label1.AutoSize = True
在运行时代码设置要注意语句顺序：
Label1 = "请问能否实现label自动随着内容的多少改变自己的高度，如果内容为一行，label的高度适应，如果内容为三行那么label的高度也相应调整？"
Label1.WordWrap = True
Label1.AutoSize = True
冰天天 2006-05-11
- 打赏
- 举报
只需设置label.autosize=true和label.wordwrap=true即可
shoushang 2006-05-11
- 打赏
- 举报
楼上的太厉害了
of123 2006-05-11
- 打赏
- 举报
Private Sub Form_Load()
Dim n As Integer, w As Integer
w = Label1.Width '记录 Label 原宽度
Label1 = "请问能否实现label自动随着内容的多少改变自己的高度，如果内容为一行，label的高度适应，如果内容为三行那么label的高度也相应调整？"
Label1.AutoSize = True '自动展宽
n = Label1.Width \ w '看看宽了几倍
If Label1.Width Mod w Then n = n + 1 '如果有余数，进位
Label1.Height = Label1.Height * n '增高 n 倍
Label1.Width = w '恢复原宽度
Label1.AutoSize = False
End Sub
Dim n As Integer, w As Integer
w = Label1.Width '记录 Label 原宽度
Label1 = "请问能否实现label自动随着内容的多少改变自己的高度，如果内容为一行，label的高度适应，如果内容为三行那么label的高度也相应调整？"
Label1.AutoSize = True '自动展宽
n = Label1.Width \ w '看看宽了几倍
If Label1.Width Mod w Then n = n + 1 '如果有余数，进位
Label1.Height = Label1.Height * n '增高 n 倍
Label1.Width = w '恢复原宽度
Label1.AutoSize = False
End Sub
of123 2006-05-11
- 打赏
- 举报
Label1.AutoSize = True
zhangzhijian 2006-05-11
- 打赏
- 举报
你可以自己根据字长度来设置label的属性吧.
