如何让文本框根据内容的多少来自动调整高度

xwwei

求救：我要做报表，其中有一个文本框，我想让文本框的大小根据内容的多少来自动调整高度，如何来做。谢谢

liaug

期待中

t小宝

设置文本框的 可以扩大 属性

goto2008

期待[:30]

eyewitnes

原帖由 t小宝 于 2008-6-15 22:01 发表
设置文本框的 可以扩大 属性

设置之后，只有真正有超长内容的文本框会自动扩大，其他的还是不会跟着扩大，这样并不美观。如果想要其他文本框也能自动根据所在行中最高的文本框调整高度，应该怎么办？

lzslp131477

期待[:34]

fxtest

Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
Dim CtlDetail As Control
Dim intLineMargin As Integer

intLineMargin = 60

For Each CtlDetail In Me.Section(acDetail).Controls
    With CtlDetail
        If CtlDetail.Name <> "Memo" Then
        Me.Line ((.Left + .Width + intLineMargin), 0)-(.Left + .Width + _
intLineMargin, Me.Height)
        End If
    End With
Next
   

    With Me
        Me.Line (0, 0)-Step(.Width, .Height), 0, B
    End With

Set CtlDetail = Nothing
End Sub

086-china

设置为扩展,可以会根据文字的多少而自动改变高度

njy6000

研究研究,有点用,不过还是不动效果好,超出的省略最好.

changweiren

学习学习