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