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
上边的代码我都测试过了，完全直接可用！！ 看图片！
1、vb6中用鼠标拖放文本框大小。
2、vb6的文本框让文本自动换行的方法是设置它的MultiLine属性为true
3、vb6全称全称为VisualBasic 6.0，是微软公司推出的可视化编程工具MSDN之一，是目前世界上使用最广泛的程序开发工具。如果你是一个对编程一无所知，而又迫切希望掌握一种快捷实用的编程语言的初学者，那选择VB 6.0没错的。即使考虑到VB程序本身编译和运行效率较低的不足(嘻嘻速度现在不是问题吧)，单是它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，它仍不失一款优秀的编程工具，是初学者的首选。
可以由两种办法
一个是每个字符每隔字符的判断
如果是小数点则在它的两位以前加VBCRLF（第一个小数点不用）
或者是按每隔字符的ASCII码，当字符为数字时
在前一位后加VBCRLF
当然这两个的前提都是textbox的MutiLine属性为true
首先你的文本框应该是MutiLine的，然后你需要根据你的内容拆分，再每个数字前插入VBCrLf就可以。
设置 MutiLine=Ture
然后每个前面+chr(13)
VB 文本框自动换行视频
相关评论：
