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
VBA笔记——文本框控件的换行
最新推荐文章于 2023-09-29 19:03:10 发布