类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
请问怎么让文本框根据需要显示内容的多少来调整大小？
要求可以换行，不能改变宽度，只能改变高来适应。
帮帮忙，急用。解决了立马给分。
网友回答：
先发送EM_GETLINECOUNT获得文本的行数，然后算出单行文本的高度，最后算出文本框的高度，剩下的就是设置文本框的高度了。
大致就是这个样子，代码你自己写吧：）
Option Explicit
Const w = 1000
Dim r As Integer, fw As Integer
Private Sub Form_Load()
r = TextHeight(Text1.FontSize * 20)
fw = Text1.FontSize * 10
Text1.Width = w
Text1.Height = r * 1.5
End Sub
Private Sub Text1_Change()
Text1.Height = ((-Int((-(TextWidth(Text1))) / (w - fw))) + 0.5) * r
End Sub