Access VBA教程:Left属性

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

expression.Left

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

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

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

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

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

在移动控件时,Left属性的新设置将自动输入到控件的属性表中。当使用“打印预览”查看窗体、报表,或者打印窗体时,控件的位置在“页面设置”对话框(单击“文件”菜单中的“页面设置”命令可打开该对话框)中的页边距设置的基础上,再根据其 Left属性设置来确定。

对于报表,Left属性设置是当前节偏离页左侧的距离。该属性以缇为单位。可以使用该属性,在该节的Format事件过程中指定节在页下方的打印位置。

VBA示例

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


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

上页:Access VBA教程:LayoutForPrint属性 下页:Access VBA教程:LeftMargin属性

Access VBA教程:Left属性

Access VBA教程:LeftMargin属性 Access VBA教程:LimitToList属性
Access VBA教程:Lines属性 Access VBA教程:LineSlant属性
Access VBA教程:LineSpacing属性 Access VBA教程:LinkChildFields属性
Access VBA教程:LinkMasterFields属性 Access VBA教程:ListCount属性
Access VBA教程:ListIndex属性 Access VBA教程:ListRows属性
Access VBA教程:ListWidth属性 Access VBA教程:LocationOfComponents属性
Access VBA教程:Locked属性 Access VBA教程:LogMessages属性
Access VBA教程:LpOleObject属性 Access VBA教程:MailEnvelope属性
Access VBA教程:Major属性 Access VBA教程:MaxRecButton属性
Access VBA教程:MaxRecords属性 Access VBA教程:MDE属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号