Text中输入的文字达到一个数量后自动换行

Question

你可以把text拉到足够大，然后把text的Multiline属性设置为True，表示可以输入多行。那样就可以自动换行了。

Answer 1

这样不完善。可以试试我的办法：
'自动换行的TextBox
'Text1为TextBox,其MultiLine属性为True
Private Sub Text1_KeyPress(keyascii as Integer)
Const numWords = 20 '自己设置，你要让它在容纳多少文字后自动换行？
If Len(Text1.Text) mod numWords = 0 then Text1.Text = Text1.Text & Chr(13) & Chr(10)'自动换行
End Sub

Answer 2

能不能把自动换行的要求提得具体点？
因为TextBox中，只要把Multiline置为True，把ScrollBar置为Vertical，TextBox中的文字就会自动在行尾折行。不知道是不是你要的效果？

Answer 3

换行是像WORD那种,比如说我规定写了10个字就自动换一行

Answer 4

对不起,我的分版面上不够了.我想再请教,如何将vb中实现如WORD总的表格功能,并且还要能打印出来.
如果回答了,我再开多个问题散分,谢谢