关于vb换行符

来源：百度知道编辑：UC知道时间：2024/05/24 11:25:38

一个数据统计程序，设置了一个cmd控件数组，使用文本框提供筛选条件，现在的问题是程序中的换行没有用，只有当文本框内容为16时，index=0控件中的keyascii=13才有用，其他控件中的换行还是没有用，程序如下：
Private Sub CmdCount1_Click(Index As Integer)
Select Case Index
Case 0
For i = 0 To UBound(a) - 1
If a(i) = Val(TxtNum) Then
TxtCount1.Text = TxtCount1.Text & "," & a(i + 1)
End If
Next i
KeyAscii = 13
Case 1
For i = 0 To UBound(a) - 2
If a(i) = Val(TxtNum) Then
TxtCount1.Text = TxtCount1.Text & "," & a(i + 2)
End If
Next i
KeyAscii = 13
Case 2
For i = 0 To UBound(a) - 3
If a(i) = Val(TxtNum) Then
TxtCount1.Text = TxtCount1.Text & "," & a(i + 3)
End If
Next i
KeyAscii = 13
Case 3
For i = 0 To UBound(a) - 4
If a(i) = Val(TxtNum) Then
TxtCount1.Text = TxtCount1.Text & "," & a(i + 4)

你的意图表达不清晰，如果是要实现在文本框中换行显示文本，那么还需要chr(10)

因为chr(13)只是回车符，chr(10)是换行符，结合在一起才能实现换行。

如：
TxtCount1.Text = TxtCount1.Text & chr(13) & chr(10) & a(i + 1)

TxtCount1.Text = TxtCount1.Text & "," & a(i + 1) +chr(13)+chr(10)

vb 换行符问题！！！！ vb,换行连接符是什么关于VB换行的问题高手请进关于VB中Label控件无法换行的问题 VB 关于记事本写入的记录如何换行? 关于VB编写代码换行好还是用:分隔好！？ vb换行怎么用 vb label 自动换行 VB中怎么换行 VB 文本框自动换行