VB中文本框如何换行

Question

1、我想在TXET4里通过command按钮将txet1、txet2、txet3里的信息相加显示出来，然后更改txet1-3的信息，再次点击command，新的信息会替换原有的，如何将原有信息保留而另起一行显示呢？
2、利用listbox可以做到，但是显示出来的信息以列表形式显示无法复制出来。
3、delphi里的memo插件能解决这个问题，vb中用那个呢？网上说用richtextbox,可是不懂怎么用。
望指点，谢谢

Answer 1

我本来是第一个回答的，为了把第二，三个问题也解决，修改答案后就成最下边一个了

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

上边的代码我都测试过了，完全直接可用！！ 看图片！

Answer 2

先把TextBox的Muiltline属性设为True 表示可以支持多行输入，然后在需要按行的地方按入vbCrlf带表回车。
参考例子如下：

'设置 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 3

dim
str
as
string
str="浙江财经学院、深圳大学、湘潭大学、武汉理工大学、广东商学院、上海交通大学、郑州大学、中国地质大学、河北经贸大学、江西师范大学、河南师范大学、南京理工大学、广东金融学院、山东经济学院、上海海事大学、长春税务学院、中南民族大学、安徽财经大学、东北大学、河海大学、重庆工商大学、山西大学、湖南商学院、广东外语外贸大学、安徽大学、哈尔滨师范大学、东南大学、宁波大学、湖南师范大学、广东工业大学、广西师范大学、上海大学、华中农业大学、山东财政学院、西南科技大学、陕西师范大学、西南交通大学、苏州大学、河北工业大学、贵州大学、华南农业大学、合肥工业大学、新疆大学、青岛大学、西安财经学院、山西师范大学、天津财经大学、湖北大学、湖南科技大学、云南财经大学、湖北经济学院、天津商业大学、安徽师范大学、山东理工大学、新疆财经大学、温州大学、重庆交通大学、贵州师范大学、北京物资学院、西北师范大学、北京航空航天大学、华侨大学、徐州师范大学、延边大学、长春理工大学、北京工商大学、沈阳理工大学、新疆师范大学、福建农林大学、黑龙江大学、北京理工大学、天津师范大学、中央民族大学、中国石油大学、中国政法大学、哈尔滨商业大学、广西大学、郑州航空工业管理学院、聊城大学"
str=replace(str,"、",chr(13))
text1.text=str

Answer 4

放置四个Text和一个Command，把Text4的Multiline设置为true，输入以下代码
Private Sub Command1_Click()
Text4.Text = Text1.Text + Text2.Text + Text3.Text & vbCrLf & Text4.Text
End Sub

Answer 5

把文本框设置成多行，修改这个文本框的MultiLine
属性为true
您说是提示vbcrlf
错误
那把VBCRLF
换成
CHR（10）&
CHR(13)
试试看
分别是回车符和换行符
TextDisplay6.text
=
"您最大的按键次数是10"
&
CHR（10）&
CHR(13)
&
"您此轮的次数是15"