全部显示

SelLeft 属性

使用 Selleft 属性可以指定或确定当前选定内容矩形最左列的列（字段）号。Long 型，可读写（从 1 到数据表中的列数）。该属性的设置指定或返回当前选定内容矩形中最左列的列号。

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

说明

该属性在“设计”视图中不可用。该属性仅在使用宏或 Visual Basic 时才可用。

如果没有选定任何区域，则这两个属性分别返回焦点所在的单元格的行号和列号。如果已在数据表中选定了一个或多个记录（使用记录选定器），则不能更改 Selleft 属性的设置。

可以将这些属性与 SelHeight 和 Selwidth 属性一起使用，以指定或确定数据表中选定内容矩形的实际大小。其中 Seltop 属性和 Selleft 属性用来确定选定内容矩形左上角的位置，而 SelHeight 属性和 Selwidth 属性则用来确定选定内容矩形右下角的位置。

示例

下面的示例显示如何使用 Selheight、Selwidth、Seltop 和 Selleft 属性来确定“数据表”视图中选定内容矩形的位置和大小。SetHeightWidth 过程将当前选定内容矩形的高度和宽度值赋给变量 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