VB中文本框如何换行
2、利用listbox可以做到，但是显示出来的信息以列表形式显示无法复制出来。
3、delphi里的memo插件能解决这个问题，vb中用那个呢？网上说用richtextbox,可是不懂怎么用。
望指点，谢谢 展开
我本来是第一个回答的，为了把第二，三个问题也解决，修改答案后就成最下边一个了
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
上边的代码我都测试过了，完全直接可用！！ 看图片！
参考例子如下：
'设置 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
str
as
string
str="浙江财经学院、深圳大学、湘潭大学、武汉理工大学、广东商学院、上海交通大学、郑州大学、中国地质大学、河北经贸大学、江西师范大学、河南师范大学、南京理工大学、广东金融学院、山东经济学院、上海海事大学、长春税务学院、中南民族大学、安徽财经大学、东北大学、河海大学、重庆工商大学、山西大学、湖南商学院、广东外语外贸大学、安徽大学、哈尔滨师范大学、东南大学、宁波大学、湖南师范大学、广东工业大学、广西师范大学、上海大学、华中农业大学、山东财政学院、西南科技大学、陕西师范大学、西南交通大学、苏州大学、河北工业大学、贵州大学、华南农业大学、合肥工业大学、新疆大学、青岛大学、西安财经学院、山西师范大学、天津财经大学、湖北大学、湖南科技大学、云南财经大学、湖北经济学院、天津商业大学、安徽师范大学、山东理工大学、新疆财经大学、温州大学、重庆交通大学、贵州师范大学、北京物资学院、西北师范大学、北京航空航天大学、华侨大学、徐州师范大学、延边大学、长春理工大学、北京工商大学、沈阳理工大学、新疆师范大学、福建农林大学、黑龙江大学、北京理工大学、天津师范大学、中央民族大学、中国石油大学、中国政法大学、哈尔滨商业大学、广西大学、郑州航空工业管理学院、聊城大学"
str=replace(str,"、",chr(13))
text1.text=str
Private Sub Command1_Click()
Text4.Text = Text1.Text + Text2.Text + Text3.Text & vbCrLf & Text4.Text
End Sub
属性为true
您说是提示vbcrlf
错误
那把VBCRLF
换成
CHR（10）&
CHR(13)
试试看
分别是回车符和换行符
TextDisplay6.text
=
"您最大的按键次数是10"
&
CHR（10）&
CHR(13)
&
"您此轮的次数是15"
