Access VBA教程:Top属性

使用 Top属性可以指定对象在窗体或报表中的位置。对于“Applies To”列表中的所有对象均为 Integer 型,可读写(Report对象除外,它是 Long 型,可读写)。

expression.Top

expression   必需。返回以上对象之一的表达式。

说明

控件的位置是指从它的左边框到含此控件节的左边缘的距离,或者从它的上边框到包含此控件的上边缘的距离。将 Top属性设置为 0 会将控件的边缘放置于节的最上端的位置。如果要使用不同于 Windows“控制面板”的“区域设置”对话框中的度量单位的设置,请自行指定单位,如厘米或英寸(例如,3 厘米或 2 英寸)。

在 Visual Basic 中,使用数字表达式设置该属性的值。值以缇为单位表示。

对于控件,可以使用控件的属性表Visual Basic 来设置该属性。

对于报表,当报表处于“打印预览”或打印状态时,只能使用宏或 Visual Basic 中的事件过程来设置该属性。

在移动控件时,Top属性的新设置将自动输入到控件的属性表中。当使用“打印预览”来查看窗体、报表,或者打印窗体时,控件的位置由 Top属性设置连同“页面设置”对话框(单击“文件”菜单中的“页面设置”可打开此对话框)中的页边距设置一起来确定。

对于报表,Top属性设置是当前节相对页面顶端的偏移量。该属性设置的单位是缇。可以使用这些属性,在这个节的Format事件过程中指定节在页下方的打印位置。

VBA示例

下面的示例将检查当前报表的 Top属性设置。如果此值少于页边距设置的最小值,NextRecord 和 PrintSection属性将设为 False。节不会前进到下一条记录,也不会打印下一个节。


Sub Detail1_Format(Cancel As Integer, FormatCount As Integer)
Const conTopMargin = 1880
' Don't advance to next record or print next section
' if Top property setting is less than 1880 twips.
    If Me.Top < conTopMargin Then
        Me.NextRecord = False
        Me.PrintSection = False
    End If
End Sub

上页:Access VBA教程:Toolbar属性 下页:Access VBA教程:TopMargin属性

Access VBA教程:Top属性

Access VBA教程:TopMargin属性 Access VBA教程:TopValues属性
Access VBA教程:Transparent属性 Access VBA教程:TripleState属性
Access VBA教程:Type属性 Access VBA教程:UnderlineHyperlinks属性
Access VBA教程:UndoBatchEdit属性 Access VBA教程:UniqueRecords属性
Access VBA教程:UniqueTable属性 Access VBA教程:UniqueValues属性
Access VBA教程:UpdateOptions属性 Access VBA教程:UseDefaultPrinter属性
Access VBA教程:UseLongFileNames属性 Access VBA教程:UserControl属性
Access VBA教程:UseTransaction属性 Access VBA教程:ValidationRule属性
Access VBA教程:ValidationText属性 Access VBA教程:Value属性
Access VBA教程:VBE属性 Access VBA教程:Verb属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号