全部显示

使用 Selwidth 属性可以指定或确定当前选定内容矩形中的所选列数（字段数）。Long 型，可读写，其范围为 0 到数据表中的列数。该属性的设置指定或返回选定内容矩形中的所选列数。

expression.SelWidth

expression     必需。返回“应用于”列表中的一个对象的表达式。

说明

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

如果没有选定任何区域，则该属性返回值为 0。如果将该属性设为 0，则会取消数据表或窗体中对区域的选定。

如果已在数据表中选定了一个或多个记录（使用记录选定器），则不能更改 Selwidth 属性的设置（除非将其设为 0）。

可以将这些属性与 SelTop 和 Selleft 属性一起使用，以指定或确定数据表中选定矩形的实际位置。如果没有选定任何区域，那么 SelTop 和 Selleft 属性分别返回焦点所在单元格的行号和列号。

Selwidth 属性值和 Selheight 属性值包含选定内容矩形右下角的位置。而 Selleft 属性值和 Seltop 属性值则确定选定内容矩形左上角的位置。

示例

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