使用 Top 屬性,可以指定對象在窗體或報表中的位置。對于“應用于”列表中的所有對象,該屬性為 Integer 型,可讀寫(但 Report 對象除外,它是 Long 類型,只讀)。
expression 必需。返回以上對象之一的表達式。
控件的位置是指從它的左邊框到含此控件節(jié)的左邊緣的距離,或者從它的上邊框到包含此控件的上邊緣的距離。將 Top 屬性設置為 0 會將控件的邊緣放置于節(jié)的最上端的位置。如果要使用不同于 Windows“控制面板”的“區(qū)域設置”對話框中的度量單位的設置,請自行指定單位,如厘米或英寸(例如,3 厘米或 2 英寸)。
在 Visual Basic 中,使用數(shù)字表達式設置該屬性的值。值以緹為單位表示。
對于控件,可以使用控件的屬性表、宏或 Visual Basic 來設置該屬性。
在移動控件時,Top 屬性的新設置將自動輸入到控件的屬性表中。當使用“打印預覽”來查看窗體、報表,或者打印窗體時,控件的位置由 Top 屬性設置連同“頁面設置”對話框(單擊“文件”菜單中的“頁面設置”可打開此對話框)中的頁邊距設置一起來確定。
對于報表,Top 屬性設置是當前節(jié)相對頁面頂端的偏移量。該屬性設置的單位是緹??梢允褂眠@些屬性,在這個節(jié)的 Format 事件過程中指定節(jié)在頁下方的打印位置。
下面的示例將檢查當前報表的 Top 屬性設置。如果此值少于頁邊距設置的最小值,NextRecord 和 PrintSection 屬性將設為 False。節(jié)不會前進到下一條記錄,也不會打印下一個節(jié)。
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