Office中国论坛/Access中国论坛

标题: 如何让文本框根据内容的多少来自动调整高度 [打印本页]

作者: xwwei 时间: 2008-6-15 14:44
标题: 如何让文本框根据内容的多少来自动调整高度
求救：我要做报表，其中有一个文本框，我想让文本框的大小根据内容的多少来自动调整高度，如何来做。谢谢

作者: liaug 时间: 2008-6-15 21:38
期待中

作者: t小宝 时间: 2008-6-15 22:01
设置文本框的可以扩大属性

作者: goto2008 时间: 2008-7-22 08:26
期待[:30]

作者: eyewitnes 时间: 2008-7-22 09:06

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

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

作者: lzslp131477 时间: 2008-7-27 09:50
期待[:34]

作者: fxtest 时间: 2008-7-29 19:00
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 时间: 2008-8-6 14:29
设置为扩展,可以会根据文字的多少而自动改变高度

作者: njy6000 时间: 2008-8-6 20:39
研究研究,有点用,不过还是不动效果好,超出的省略最好.

作者: changweiren 时间: 2008-10-1 00:00
学习学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)