Access VBA教程:CurrentSectionTop属性

应用该属性可以确定从当前节的顶边到窗体顶边的距离,以缇为单位。

expression.CurrentSectionTop

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

说明

此属性设置仅在使用Visual Basic 时使用。

用户滚动窗体时,CurrentSectionTop属性的设置将会改变。

对于DefaultView属性设置为“单一窗体”的窗体,当用户将滚动条拖到窗体左上角的上方时,该属性的值将成为负数。

对于 DefaultView属性设置为“连续窗体”的窗体,如果当前节不可见,那么 CurrentSectionTop属性与窗体的InsideHeight属性值相等.

CurrentSectionTop属性用于查找“窗体”视图中连续窗体的或“数据表”视图中的主体节位置。每一个主体节都有不同的 CurrentSectionTop属性设置,取决于该节在窗体中的位置。

VBA示例

下面的示例显示了连续窗体上一个控件的 CurrentSectionLeft 和 CurrentSectionTop属性设置。当用户移到一个新记录时,当前节的属性设置将显示在窗体标题的lblStatus 标签中。


Private Sub Form_Current()
    Dim intCurTop As Integer
    Dim intCurLeft As Integer
    intCurTop = Me.CurrentSectionTop
    intCurLeft = Me.CurrentSectionLeft
    Me!lblStatus.Caption = intCurLeft & " , " & intCurTop
End Sub

上页:Access VBA教程:CurrentSectionLeft属性 下页:Access VBA教程:CurrentView属性

Access VBA教程:CurrentSectionTop属性

Access VBA教程:CurrentView属性 Access VBA教程:CurrentX属性
Access VBA教程:CurrentY属性 Access VBA教程:Custom属性
Access VBA教程:Cycle属性 Access VBA教程:DataAccessPages属性
Access VBA教程:Database属性 Access VBA教程:DataChange属性
Access VBA教程:DataEntry属性 Access VBA教程:DataOnly属性
Access VBA教程:DataSetChange属性 Access VBA教程:DatasheetBackColor属性
Access VBA教程:DatasheetBorderLineStyle属性 Access VBA教程:DatasheetCellsEffect属性
Access VBA教程:DatasheetColumnHeaderUnderlineStyle属性 Access VBA教程:DatasheetFontHeight属性
Access VBA教程:DatasheetFontItalic属性 Access VBA教程:DatasheetFontName属性
Access VBA教程:DatasheetFontUnderline属性 Access VBA教程:DatasheetFontWeight属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号