VB6 多行文本输出
来源:百度知道 编辑:UC知道 时间:2024/09/24 01:34:57
Private Sub Command1_Click()
TEXT1.text = "输出内容"
End Sub
窗体上一个按钮,一个文本控件,我想在单击事件中加入更多内容输出到TEXT1文本框,并且要文本自动换行,请问代码需要怎样写,希望给出代码,谢谢!!!
可能大家还没有弄懂我的意思,也许是我说的太含糊,就是我想输出多行文本到text1的时候,在单击事件中输入了多行TEXT1.TEXT = "文本内容",但是当我单击的时候,输出的却只有其中的一行,无法显示多行,这个是问题的关键,而且之前我的text1的MultiLine属性已经设置为True,而ScrollBars属性也设置为vertical了,谢谢大家给予的解答,希望能在帮帮忙,thank's
TEXT1.text = "输出内容"
End Sub
窗体上一个按钮,一个文本控件,我想在单击事件中加入更多内容输出到TEXT1文本框,并且要文本自动换行,请问代码需要怎样写,希望给出代码,谢谢!!!
可能大家还没有弄懂我的意思,也许是我说的太含糊,就是我想输出多行文本到text1的时候,在单击事件中输入了多行TEXT1.TEXT = "文本内容",但是当我单击的时候,输出的却只有其中的一行,无法显示多行,这个是问题的关键,而且之前我的text1的MultiLine属性已经设置为True,而ScrollBars属性也设置为vertical了,谢谢大家给予的解答,希望能在帮帮忙,thank's
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"
在输出数据时加回车号好像是vbctrl你网上看看
首先设置文本框的属性,在属性那里找:Text1.MultiLine,把它设置为true
然后:
Private Sub Command1_Click()
Text1.Text = Text1.Text & InputBox("请输入您要加入的内容") & Chr(13) & Chr(10)
End Sub
Chr(13) & Chr(10)
这个是换行的意思
如果你的文本控件是TextBox的话,你只需将TextBox的MultiLine属性设为True,并且将该控件的ScrollBars属性设为3(即Both),那么,无论你赋给TextBox控件什么内容,它都会在需要时自动换行。