使用 Selleft 屬性可以指定或確定當(dāng)前選定內(nèi)容矩形最左列的列(字段)號。Long 型,可讀寫(從 1 到數(shù)據(jù)表中的列數(shù))。該屬性的設(shè)置指定或返回當(dāng)前選定內(nèi)容矩形中最左列的列號。
expression.SelLeft
expression 必需。返回“應(yīng)用于”列表中的一個對象的表達(dá)式。
該屬性在“設(shè)計”視圖中不可用。該屬性僅在使用宏或 Visual Basic 時才可用。
如果沒有選定任何區(qū)域,則這兩個屬性分別返回焦點所在的單元格的行號和列號。如果已在數(shù)據(jù)表中選定了一個或多個記錄(使用記錄選定器),則不能更改 Selleft 屬性的設(shè)置。
可以將這些屬性與 SelHeight 和 Selwidth 屬性一起使用,以指定或確定數(shù)據(jù)表中選定內(nèi)容矩形的實際大小。其中 Seltop 屬性和 Selleft 屬性用來確定選定內(nèi)容矩形左上角的位置,而 SelHeight 屬性和 Selwidth 屬性則用來確定選定內(nèi)容矩形右下角的位置。
下面的示例顯示如何使用 Selheight、Selwidth、Seltop 和 Selleft 屬性來確定“數(shù)據(jù)表”視圖中選定內(nèi)容矩形的位置和大小。SetHeightWidth 過程將當(dāng)前選定內(nèi)容矩形的高度和寬度值賦給變量 lngNumRows、lngNumColumns、lngTopRow 和 lngLeftColumn,然后在消息框中顯示這些值。
Public Sub SetHeightWidth(ByRef frm As Form)
Dim lngNumRows As Long
Dim lngNumColumns As Long
Dim lngTopRow As Long
Dim lngLeftColumn As Long
Dim strMsg As String
' Form is in Datasheet view.
If frm.CurrentView = 2 Then
' Number of rows selected.
lngNumRows = frm.SelHeight
' Number of columns selected.
lngNumColumns = frm.SelWidth
' Topmost row selected.
lngTopRow = frm.SelTop
' Leftmost column selected.
lngLeftColumn = frm.SelLeft
' Display message.
strMsg = "Number of rows: " & lngNumRows & vbCrLf
strMsg = strMsg & "Number of columns: " _
& lngNumColumns & vbCrLf
strMsg = strMsg & "Top row: " & lngTopRow & vbCrLf
strMsg = strMsg & "Left column: " & lngLeftColumn
MsgBox strMsg, vbInformation
End If
End Sub