Question

vb中label自动换行的方法

程序中，用label.caption显示内容。点击command1后在label中显示相应text内容，再次点击command后，在label中显示新输入的text的内容，且在label中换行输出，并不覆盖原来的内容。怎样实现？大侠帮下忙，谢了！

Answer 1

VB6.0中可以通过对Label控件的WordWrap 属性设置，满足汉字和字母文本换行。

• WordWrap 属性

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

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

• AutoSize 属性，返回或设置一个值，以决定控件是否自动改变大小以显示其全部内容。
  

Answer 2

Dim a() As String ‘定义一个数组
Private Sub Command1_Click()
a() = Split(Text1.Text, vbCrLf)'以Text1的回车符分割Text1的内容。
For b = 0 To UBound(a) '从0到数组a的最大数字
Label1.Caption = Label1.Caption & vbCrLf & a(b) '一行一行输入Label1。这里有一个重点，就是输入回车用vbCrLf，这是回车符。
Next ’结束循环
End Sub