VB text 文本框中怎样换行

Question

请问在text 中输入一句话后怎样换行？？？用代码实现

Answer 1

'设置 Text1.MultiLine = True
'     Text1.ScrollBars = 2
    
Private Sub Form_Load()
    Text1.Text = ""
    Text1.Text = Text1.Text & "这是示例A" & vbCrLf
    Text1.Text = Text1.Text & "这是示例B" & vbCrLf
End Sub

Answer 2

Private Sub Form_Load()
    Text1.Text = ""
    Text1.Text = Text1.Text & "这是示例A" & chr(13) & vbCrLf
    Text1.Text = Text1.Text & "这是示例B" & chr(13) &  vbCrLf
End Sub在换行前加个 chr(13) 回车符号也不错的啊

Answer 3

Private Sub Command2_Click()
Text1.Text = "asdfasdf" + vbCrLf + "123asdfa"
End Subtext1的MultiLine属性为 True

Answer 4

Text1.Text = Text1.Text & "这是示例A" & chr(13) & vbNewLine

Answer 5

Const vbCrLf = "
"
    VBA.Constants 的成员
    回车/换行符组合常数； 等效于 Chr$(13)+Chr$(10)
~~VB对象浏览器里的解释。只有Chr$(13)不行的，不信写到文本文件里，再用记事本打开看看，全都成一行了，末尾都是“不可显示字符”的大黑块。

Answer 6

加一个VB常量就可以了,vbCrLf