VB6.0中怎么根据文本长度对文本自动换行？

Question

VB6.0中怎么根据文本长度对文本自动换行？是网格控件，不是文本框，没有属性设置的

Answer 1

自己计算判断下，比如
dim s as string
s = 你的原始文本
dim s1 as string
for i = 1 to len(s)
s1 = s1 & mid(s, i, 1)
if i mod 20 = 0 then s1 = s1 & vbcrlf
next
s1就是按照20个字符分行的。