关于文本框中文字垂直对齐的问题

lg　发表于：2013-12-08 18:46:12 　

复制

关于文本框中文字垂直对齐，我找了好长时间，都没有找到相关的文章和方法。帮我一下。感谢！

Top

落尘_小新发表于：2013-12-08 19:17:31

调整红框中的属性值即可.也就是文本框的 TopMargin 属性.

Top

殷小宝发表于：2013-12-11 23:38:43

me.text1.TopMergin=(me.text1.height-字号*6.1)/2

Top

lg 发表于：2013-12-12 13:50:51

我是不是太明白，能在说明白点吗?写在什么位置？作为什么事件吗？

Top

瞿丽忠发表于：2013-12-12 19:25:17

窗体加载时、打开时事件中均可

Top

BMW 发表于：2013-12-26 12:17:13

ACCESS表格中，文字有办法实现垂直居中吗？

Top

zhaoyoulong 发表于：2013-12-26 16:26:50

请参照煮江品茶老师的例子,同样适合报表

http://www.accessoft.com/article-show.asp?id=5737

Top

西出阳关无故人发表于：2013-12-26 17:00:02

留下一个脚印:

在窗体的load事件中循环各个想要垂直居中的文本框,然后---

Me.Text11.TopMargin = (Me.Text11.Height - Text11.FontSize * 25.4) / 2

Top

西出阳关无故人发表于：2013-12-26 17:46:05

示例

以下示例使用 Print 方法在名为 Report1 的报表上显示文本。它使用 TextWidth 和 TextHeight 方法，使文本在垂直和水平方向上居中放置。

Visual Basic for Applications
Private Sub Detail_Format(Cancel As Integer, _ FormatCount As Integer) Dim rpt as Report Dim strMessage As String Dim intHorSize As Integer, intVerSize As Integer Set rpt = Me strMessage = "DisplayMessage" With rpt 'Set scale to pixels, and set FontName and 'FontSize properties. .ScaleMode = 3 .FontName = "Courier" .FontSize = 24 End With ' Horizontal width. intHorSize = Rpt.TextWidth(strMessage) ' Vertical height. intVerSize = Rpt.TextHeight(strMessage) ' Calculate location of text to be displayed. Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2) Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2) ' Print text on Report object. Rpt.Print strMessage End Sub

Visual Basic for Applications

Private Sub Detail_Format(Cancel As Integer, _
        FormatCount As Integer)
    Dim rpt as Report
    Dim strMessage As String
    Dim intHorSize As Integer, intVerSize As Integer

    Set rpt = Me
    strMessage = "DisplayMessage"
    With rpt
        'Set scale to pixels, and set FontName and
        'FontSize properties.
        .ScaleMode = 3
        .FontName = "Courier"
        .FontSize = 24
    End With
    ' Horizontal width.
    intHorSize = Rpt.TextWidth(strMessage)
    ' Vertical height.
    intVerSize = Rpt.TextHeight(strMessage)
    ' Calculate location of text to be displayed.
    Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2)
    Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2)
    ' Print text on Report object.
    Rpt.Print strMessage
End Sub

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

[5分]关于文本框中文字垂直对齐的问题