能自行调节高度 TextBox.docVIP

能自行调节高度的 TextBox 概述 TextBox 在放到 Form 中以后， 就不管内容有多少， 就是占这么多的地盘， 为什么不让它灵活一些呢？ 每当TextBox 的内容修改好以后， 就查看TextBox 的行数是否变化。 如果有改变的话， 就把TextBox 的位置调整到合适的位置。 一个可能的应用就是在TextBox 和MsFlexGrid 配合使用的情况， 可以动态修改高度。 实现步骤 1、 开启一个新的工程。 2、 增加一个TextBox(Text1)， 修改BorderStyle 为0-None， MultiLine 为 True。 3、 在 Form1 的声明中增加： Const EM_GETLINECOUNT = HBA Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim LastLine As Long 最后的行数 Dim LineHeight 每行的高度 4、 在 Form_Load 过程中增加： Private Sub Form_Load() Set Me.Font = Text