如何用代码控制文本的自动换行？

Question

可以设置Textbox的MultiLine的属性为True.
或者用代码:text1.text=text1.text & vbcrlf & "asdf"
则"asdf" 回自动换行显示.

Answer 1

用DrawText 就可以了。。
当然得规定字符输出得目标的大小了.
在vb里好像就是scalewidth之类的吧
如果还不行的化，你就只好通过获得字符串的宽度再和窗体宽度进行比较了。
用GetTextExtent可以获得字符串的宽度以上所说的都是api函数不过应该有更简单的vb函数吧

Answer 2

用代码:text1.text=text1.text & Chr(13)& chr(10) & "asdf"也可以。

Answer 3

do while len(text)>100
    text2=mid(text,1,100)
    text3=mid(text,101,len(text)-100)
    text1=text2 & chr(13)
loop
text=text1 & text3
text即为你想输出的字符串。

Answer 4

计算显示长度，自己加换行符
text1.Text = text1.Text & vbCrLfvbCrLf为换行符