VB6 多行文本输出

Question

Private Sub Command1_Click()
TEXT1.text = "输出内容"
End Sub
窗体上一个按钮,一个文本控件,我想在单击事件中加入更多内容输出到TEXT1文本框,并且要文本自动换行,请问代码需要怎样写,希望给出代码,谢谢!!!
可能大家还没有弄懂我的意思,也许是我说的太含糊,就是我想输出多行文本到text1的时候,在单击事件中输入了多行TEXT1.TEXT = "文本内容",但是当我单击的时候,输出的却只有其中的一行,无法显示多行,这个是问题的关键,而且之前我的text1的MultiLine属性已经设置为True,而ScrollBars属性也设置为vertical了,谢谢大家给予的解答,希望能在帮帮忙,thank's

Answer 1

如果你的文本控件是TextBox的话，你只需将TextBox的MultiLine属性设为True，并且将该控件的ScrollBars属性设为3（即Both），那么，无论你赋给TextBox控件什么内容，它都会在需要时自动换行。

Answer 2

vbCrLf是换行 比如"11" & vbCrLf & "11" 显示为
11
11

还需要把text1的MultiLine属性设置为True才能多行显示

是这么的
text1.text="aaaa"
text1.text="aaaa"
text1.text="aaaa"
text1.text="aaaa"
加多少个都是白搭 下面代码就能多行
text1.text="aaaa"
text1.text=text1.text & vbcrlf & "aaaa"
text1.text=text1.text & vbcrlf & "aaaa"
text1.text=text1.text & vbcrlf & "aaaa"
text1.text=text1.text & vbcrlf & "aaaa"
text1.text=text1.text & vbcrlf & "aaaa"

Answer 3

首先设置文本框的属性，在属性那里找：Text1.MultiLine，把它设置为true

然后：

Private Sub Command1_Click()
Text1.Text = Text1.Text & InputBox("请输入您要加入的内容") & Chr(13) & Chr(10)
End Sub

Chr(13) & Chr(10)
这个是换行的意思

参考资料：MSDN for VB6.0

Answer 4

在输出数据时加回车号好像是vbctrl你网上看看