VBA笔记——文本框控件的换行

Private Sub UserForm_Initialize()
    With Me.txtDemo
        .WordWrap = True
        .MultiLine = True
        .Text = "文本框是一个灵活的控件，受下列属性的影响：Text、" _
            & "MultiLine、WordWrap和AutoSize。" & Chr(10) _
            & "Text 包含显示在文本框中的文本。" & Chr(10) _
            & "MultiLine 控制文本框是单行还是多行显示文本。" _
            & "换行字符用于标识在何处结束一行并开始新的一行。" _
            & "如果 MultiLine 的值为False，则文本将被截断，" _
            & "而不会换行。如果文本的长度大于文本框的宽度，" _
            & "WordWrap允许文本框根据其宽度自动换行。" & Chr(10) _
            & "如果不使用 WordWrap，当文本框在文本中遇到换行字符时，" _
            & "开始一个新行。如果关闭WordWrap，TextBox中可以有不能" _
            & "完全适合其宽度的文本行。文本框根据该宽度，显示宽度以" _
            & "内的文本部分，截断宽度以外的那部分文本。只有当" _
            & "MultiLine为True时，WordWrap才起作用。" & Chr(10) _
            & "AutoSize 控制是否调节文本框的大小，以便显示所有文本。" _
            & "当文本框使用AutoSize 时，文本框的宽度按照文本框中的" _
            & "文字量以及显示该文本的字体大小收缩或扩大。"
    End With
End Sub