label控件的问题？

Question

请问能否实现label自动随着内容的多少改变自己的高度，如果内容为一行，label的高度适应，如果内容为三行那么label的高度也相应调整？

Answer 1

你可以自己根据字长度来设置label的属性吧.

Answer 2

Label1.AutoSize = True

Answer 3

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

Answer 4

只需设置label.autosize=true和label.wordwrap=true即可

Answer 5

楼上说得是。在运行时代码设置要注意语句顺序：Label1 = "请问能否实现label自动随着内容的多少改变自己的高度，如果内容为一行，label的高度适应，如果内容为三行那么label的高度也相应调整？"
Label1.WordWrap = True
Label1.AutoSize = True