vb textbox 随 它最长一行文字长度的变化而改变大小

在visual basic 中，如何让textbox随它输入文本中最长一行文本的长度而改变自己的大小？

和让Grid控件自适应列宽一个原理。遍历每一行，获取最长的字符串的长度。再按字号换算出行宽。最后设置。
我曾经做一个技术迁移或者叫做欺骗。就是把遍历后找到的最长的字符串放进标签控件(隐身的，哈哈~~），再把此时标签的宽度赋值给文本框……
你试下我的代码就明白了：
Private Sub Text1_Change()
Label1.AutoSize = True
Label1 = Text1
Text1.Width = Label1.Width
End Sub
你在文本框中输入内容

张志晨

你说呢...

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息