可变高度的文本框
2007年09月20日, 2:14 pm | 738 次阅读 
(您认为本文值几颗星)
Loading ...
(您认为本文值几颗星) Loading ...给一个文本框保持指定的宽度和最小的高度，但是高度随输入的数据而增加。
Option Explicit
Private Sub UserForm_Initialize()
With TextBox1
.MultiLine = True
.Width = 200 ‘设置宽度
End With
End SubPrivate Sub TextBox1_Change()
With TextBox1
If .Height > 40 Then ‘设置高度(限定高度)
.AutoSize = False
.ScrollBars = fmScrollBarsVertical
Else
.AutoSize = True
.ScrollBars = fmScrollBarsNone
End If
.Width = 200 ‘设置宽度
.SelStart = 0
.SelStart = Len(.Text)
End With
End Sub
此时，随着文本框中输入文字的增加，文本框的高度会自动扩展，当文本框扩展到达窗体边缘时，会自动添加滚动条。
