Form.SelWidth 属性 (Access)

使用 SelWidth 属性可以指定或确定当前选择矩形中) 字段 (选定列的数目。 读/写 Long。

语法

表达式。SelWidth

expression：表示 Form 对象的变量。

备注

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

如果选择了一个或多个记录 (使用记录选定器) 的数据表中，您无法更改 SelWidth 属性 (除非将其设为 0) 的设置。

将这些属性与 SelTop 和 SelLeft 属性一起使用，可以指定或确定选择矩形在数据表上的实际位置。 如果没有选择， 则 SelTop 和 SelLeft 属性返回具有焦点的单元格的行号和列号。

SelHeight 和 SelWidth 属性包含的选择矩形的右下角的位置。

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

示例

以下示例演示如何使用 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。