不明白为什么要用multiline=true ，输入完一段后直接用 字符串变量+vbcrlf 换行 最后一次性赋值后textbox不就好了吗另外这样的内容为什么不用Listbox或listview。

回答这个大家都知道 ，可是当你要在代码中为Text属性设置多行文本的时候可能会遇到点麻烦 你往往会想到直接付给一个含有换行符quotnquot的字符串给Text属性 aTextBoxText = quotFirst LinenSecond LinenThird Linequot 。

Private Sub Form_LoadText2Move Text1Left
， Text1Top， Text1Width ， Text1Height blnNewLine = False Text1Visible = False #39默认不自动换行让不自动换行的控件在上面End Sub Private Sub Text1_Change
。

textboxtext=“”\x0d\x0atextboxtext+=quota\r\nquot\x0d\x0atextboxtext+=quotb\r\nquot\x0d\x0atextboxtext+=quotc\r\nquot\x0d\x0atextboxtext+=quotd\r\nquot\x0d\x0a\x0d\x0a可以达到你。

创建TextBox1 和CommandButton1 sub CommandButton1_Clickdim n as integer dim str as string n=sheets1+1 str=textbox1text sheets1cellsn
，1=str end sub 。

content是从数据库里读取出来的内容 content = contentReplacequot\r\nquot， quotquot这样就可以
。

将文本的换行换成HTML的换行 如下quot\r\nquot ，quotquot。

在属性栏里把multiLine选为 ture
，就可以实现自动换行MultiLine 属性应用于TextBox返回或设置一个值，该值指示 TextBox 控件是否能够接受和显示多行文本在运行时是只读的语法objectMultiLineobject 所在处代表一个 。