跪求VB文本框转行代码

VB中文本框如何换行~

我本来是第一个回答的，为了把第二，三个问题也解决，修改答案后就成最下边一个了
1.--------------------------------------------------------------
把Text4的MultiLine属性设置成True
复制下边的代码：
Private Sub Form_Load()
Text4.Text = ""
End Sub
Private Sub Command1_Click()
Text4.Text = Text4.Text + Text1.Text + Text2.Text + Text3.Text + vbCrLf
End Sub
'下边是为了保障Text4的焦点处于最后，试着去掉下边这三行，观察一下效果，你会发现这三行也很重要
Private Sub Text4_Change()
Text4.SelStart = Len(Text4.Text)
End Sub
2.--------------------------------------------------------------
如果是用List也可以，下边就是双击复制该表项内容
Private Sub List1_DblClick()
Clipboard.Clear
Clipboard.SetText List1.List(List1.ListIndex)
MsgBox "该项内容已经复制到剪贴板，请用Ctrl+V粘贴"
End Sub
3.--------------------------------------------------------------
richtextbox比textbox好用，比如richtextbox还能每行字体颜色不同，显示图片等，不过你这里用不着它的这些复杂用法
首先点“工程”，“部件”，找到“Microsoft Rich textbox Contral 6.0”勾上，点“确定”，然后就可以在工具那里看到它了，在窗体上画RichTextBox1
RichTextBox1 就不用设置MultiLine了，代码的写法和用Text4差不多
复制下边的代码：
Private Sub Form_Load()
RichTextBox1 = ""
End Sub
Private Sub Command1_Click()
RichTextBox1.Text = RichTextBox1.Text + Text1.Text + Text2.Text + Text3.Text + vbCrLf
End Sub
Private Sub RichTextBox1_Change()
RichTextBox1.SelStart = Len(RichTextBox1.Text) '保障RichTextBox1的焦点处于最后
End Sub
上边的代码我都测试过了，完全直接可用！！ 看图片！

关于记事本为什么是竖行是因为你在VB代码中的循环中你每从ListBox中获取一条信息就加入了一个换行符(vbCrlf)这样textbox中的文本中的每一条LISTBOX的信息后面都有一个换行符在记事本中是能识别换行符的所以就会出现竖行显示。
如果让textbox中自动换行的话把textbox的multiline属性设为true

先设属性multiline=true 是自动换行,就象系统的记事本的自动换行与否就是设这个属性.

如:
text1.multiline=true

字符串后加 & vbNewLine
或 加 & str(13)
或 加 & vbcrlf

就是加回车符

如:
s="AB"
s1 ="CD"
s3 = "EF"
text1.text = s & vbcrlf & s2 & vbcrlf & s3

结果是

AB
CD
EF
而不是
ABCDEF

回毕!

你说的是不是换行？
在文本框控件里有一个属性
在属性栏里可以找到的
multi什么的
当文本超出显示行时，就自动换行

先设multiline=true

字符串后加 & vbNewLine
或 加 & str(13)

属性设置multiline为TRUE
也可以在字符后加 & vbnewline

---

跪求VB文本框转行代码视频