第1个回答 2010-01-03
text4.text = text4.text & vbcrlf & vbcrlf & text1.text & vbcrlf & text2.text & vbcrlf & text3.text & vbcrlf
另外文本框有两个属性需要设置
MultiLine = true;
ScrollBars - 2
第2个回答 2020-03-09
Text2.Text
=
Replace(Text1.Text,
"、",
vbCrLf)
上面这句即可。直接调用。
第3个回答 2010-01-03
Private Sub Command1_Click()
Text4.Text = Text4.Text & Text1.Text & vbCrLf & Text2.Text & vbCrLf & Text3.Text & vbCrLf
End Sub
第4个回答 2019-06-29
使用split
split(textbox1.text,"、")
第5个回答 2019-11-10
其实如果你要把他们换成独行还有更好的办法