Form.SelLeft 属性 (Access)

使用 SelLeft 属性可以指定或确定) 当前选择矩形最左侧的列 (字段。 读/写 Long。

语法

表达式。SelLeft

expression：表示 Form 对象的变量。

备注

SelLeft 属性返回一个介于 2 和数据表中的列数 + 1 之间的值， (Access 从 0) 开始计数。 前两列始终是记录选择器列和子数据表的展开/折叠指示器列。

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

将这些属性与 SelHeight 和 SelWidth 属性一起使用，可以指定或确定选择矩形的实际大小。

SelTop 和 SelLeft 属性确定选择矩形的左上角的位置。

SelHeight 和 SelWidth 属性确定选定内容矩形的右下角。

示例

以下示例演示如何使用 SelHeight、 SelWidth、 SelTop 和 SelLeft 属性来确定“数据表”视图中选择矩形的位置和大小。 SetHeightWidth 过程将当前选择矩形的高度和宽度分配给变量 lngNumRows、、 lngNumColumnslngTopRow和 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。