文本框的高度随着字行数的增多而增加？<经验之谈，有经验者进来！>

Question

用len(text1.text)然后设置TEXT1。WIDTH OR TEXT2。HEIGHT

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = vbCr Then
    Text1.Height = Text1.Height + 200
End If
End Sub

Answer 2

代码如下：
'将窗体命名为FrmMain
'在窗体中放置一个TextBox控件，命名为TxtHeight，放置一个PictureBox控件，命名为PicText
'设置TxtHeight.MultiLine = TruePrivate Sub Form_Load()
FrmMain.ScaleMode = vbPixels
PicText.ScaleMode = vbPixels
End SubPrivate Sub TxtHeight_Change()
Set PicText.Font = TxtHeight.Font '设置PicText的字体和TxtHeight的字体相同
TxtHeight.Height = PicText.TextHeight(TxtHeight.Text) + TxtHeight.FontSize '利用PicText控件的TextHeight属性取得TxtHeight的文本宽度
End Sub'还是要打上“原创”的记号
--------------------------------------------------------------------
Made by Thirdapple's Studio(http://3rdapple.51.net/)

Answer 3

不是这个意思，我的意思是我想把这个控件搞得很大，不是每次加200，我的意思就是要跟那个PICTURE那个AUTOSIZE一样，怎么样做到一样呢？

Answer 4

那就试试Thirdapple的代码呀  好象可以实现的