VB6.0 如何做一个文本框，宽度固定，高度根据文本内容自动调整适应

VB6.0 如何做一个文本框，宽度固定，高度根据文本内容自动调整适应

关键是利用Lable标签的AutoSize=True属性来实现

先把文本放入Label标签中，因为AutoSize=True，所以能显示全部内容

Label标签的长度就可以利用起来了。

Text1.Height = (Int(Label_test.Width / Text1.Width) + 1) * Label_test.Height

这样就能做到固定宽度的文本框，高度自适应。

注意：如果文本是多行的怎么办？

比如StrInput字符串为多行的文本

那么利用Stemp=Split(StrInput,vbcrlf)，把回车换行为分隔符它拆分成字符串数组，再计算

Dim Stemp() As String
Dim AllHeight As Integer

Stemp = Split(StrInput, vbCrLf)
AllHeight = 0
For i = 0 To UBound(Stemp)
    AllHeight = AllHeight + (Int(Label_test.Width / Text1.Width) + 1) * Label_test.Height
Next
Text1.Height = AllHeight