Поделиться через

Свойство Form.SelWidth (Access)

  • Статья

Используйте свойство SelWidth , чтобы указать или определить количество выбранных столбцов (полей) в текущем прямоугольнике выделения. Для чтения и записи, Long.

Синтаксис

expression. SelWidth

выражение: переменная, представляющая объект Form.

Замечания

Если выбор отсутствует, значение, возвращаемое этим свойством, будет равным нулю. Если для этого свойства задано значение 0, выбор из таблицы или формы удаляется.

Если вы выбрали одну или несколько записей в таблице (с помощью селекторов записей), вы не сможете изменить параметр свойства SelWidth (за исключением 0).

Используйте эти свойства со свойствами SelTop и SelLeft , чтобы указать или определить фактическое положение прямоугольника выделения в таблице. Если выбор отсутствует, свойства SelTop и SelLeft возвращают номер строки и номер столбца ячейки с фокусом.

Свойства SelHeight и SelWidth содержат положение в правом нижнем углу прямоугольника выделения.

Значения свойств SelTop и SelLeft определяют левый верхний угол прямоугольника выделения.

Пример

В следующем примере показано, как использовать свойства 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.