label里面文字怎么会换行 咋回事

Posted 2023-03-09

WordWrap 属性

返回或设置一个值，该值用来指示一个 AutoSize 属性设置为 True 的 Label 控件，是否要进行水平或垂直展开以适合其 Caption 属性中指定的文本的要求。

语法

object.WordWrap [= boolean]

WordWrap 属性的语法包含下面部分：

部分 描述
Object 对象表达式，其值是“应用于”列表中的一个对象。
Boolean 一个用来指定 Label 是否要展开与其文本相适应的布尔表达式，“设置值”中有详细描述。

设置值

boolean 的设置值为：

设置值 描述
True 文本卷绕；Label 控件垂直展开或缩短，以使其与文本和字体大小相适。水平大小不变。
False （缺省值）文本不卷绕；Label 水平地展开或缩短以使其与文本的长度相适，并且垂直地展开或缩短以使其与字体的大小和文本的行数相适应。

说明

为了决定 Label 控件如何显示其内容，应使用此属性。例如，一个动态改变的图形可能具有一个包含的文本也发生改变的 Label。为了使 Label 保持水平方向尺寸不变并允许增加或减少文本，则应将 WordWrap 和 AutoSize 属性设置为 True。

如果希望 Label 控件只水平展开，则应将 WordWrap 设置为 False。如果不希望 Label 改变大小，应将 AutoSize 设置为 False。

注意 如果 AutoSize 被设置为 False，那么文本总是要卷绕，而不管 Label 控件的大小或 WordWrap 属性的设置如何。这可能使某些文本被隐藏，因为 Label 在任何方向上都不能展开。

如果 AutoSize 和 WordWrap 都设置为 True，文本将会自动换行，而不会增加 Label 控件的大小，但有一种情况例外，那就是所输入的一个单词的长度要大于 Label 宽度。此时，AutoSize 属性有更高的优先级，并且 Label 的宽度将增加到适应这个长的单字。追问

无知的问下AutoSize 和 WordWrap这个我没用过，请问下这个属性是怎么用的 谢谢

追答

WordWrap 属性示例
本例将文本放入两个 Label 控件并使用 WordWrap 属性来说明它们不同的行为。要试用此例，将下面的代码粘贴到包含两个 Label 控件的窗体的声明部分，然后按 F5 键 并单击窗体来转换 WordWrap 属性的设置值。

Private Sub Form_Load ()
Dim Author1, Author2, Quote1, Quote2 ' 声明变量。
Label1.AutoSize = True ' 设置“自动调整大小”。
Label2.AutoSize = True
Label1.WordWrap = True ' 设置“自动换行”。
Quote1 = "I couldn't wait for success, so I went on without it."
Author1 = " - Jonathan Winters"
Quote2 = "Logic is a system whereby one may go wrong with confidence."
Author2 = " - Charles Kettering"
Label1.Caption = Quote1 & Chr(10) & Author1
Label2.Caption = Quote2 & Chr(10) & Author2
End Sub

Private Sub Form_Click ()
Label1.Width = 1440 ' 将宽度设置为一英寸，以缇来表示。
Label2.Width = 1440
Label1.WordWrap = Not Label1.WordWrap ' 转换“自动换行”属性。
Label2.WordWrap = Not Label2.WordWrap
End Sub

参考技术A '每一行用一个换行符连接
'vbcrLf=chr(10) & chr(13) '所以用到换行时 一般都使用vbCrLf
Label1.Caption = "这是第一行:" & vbCrLf & "这是第二行" & Chr(10) & Chr(13) & "这是第三行" 参考技术B caption的内容中包含了回车换行控制符，如,vbcrlf, chr(10),chr(13) 参考技术C 把autosize改成true试试