label自动换行,该如何解决
1个回答
展开全部
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
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询