Access VBA教程:SelWidth属性

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

expression.SelWidth

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

说明

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

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

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

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

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

VBA示例

下面的示例显示如何使用 Selheight、Selwidth、Seltop 和 Selleft属性来确定“数据表”视图中选定内容矩形的位置和大小。该过程将当前选定内容矩形的高度和宽度值赋给变量lngNumRowslngNumColumnslngTopRowlngLeftColumn,然后在消息框中显示这些值。


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

上页:Access VBA教程:SelTop属性 下页:Access VBA教程:ServerFilter属性

Access VBA教程:SelWidth属性

Access VBA教程:ServerFilter属性 Access VBA教程:ServerFilterByForm属性
Access VBA教程:Shape属性 Access VBA教程:ShortcutMenuBar属性
Access VBA教程:ShortcutMenu属性 Access VBA教程:ShowNavigationButtons属性(快照查看器)
Access VBA教程:SizeMode属性 Access VBA教程:SnapshotPath属性(快照查看器)
Access VBA教程:SortOrder属性 Access VBA教程:Source属性
Access VBA教程:SourceConnectStr、SourceDatabase属性 Access VBA教程:SourceDoc属性
Access VBA教程:SourceItem属性 Access VBA教程:SourceObject属性
Access VBA教程:SpecialEffect属性 Access VBA教程:StartupForm属性
Access VBA教程:StartupMenuBar属性 Access VBA教程:StartupShortcutMenuBar属性
Access VBA教程:StartupShowDBWindow属性 Access VBA教程:StartupShowStatusBar属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号