SelWidth 屬性
內(nèi)容
使用 Selwidth 屬性可以指定或確定當(dāng)前選定內(nèi)容矩形中的所選列數(shù)（字段數(shù)）。Long 型，可讀寫，其范圍為 0 到數(shù)據(jù)表中的列數(shù)。該屬性的設(shè)置指定或返回選定內(nèi)容矩形中的所選列數(shù)。
expression.SelWidth
expression 必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。
說(shuō)明
該屬性在“設(shè)計(jì)”視圖中不可用。該屬性僅在使用宏或 Visual Basic 時(shí)才可用。
如果沒有選定任何區(qū)域，則該屬性返回值為 0。如果將該屬性設(shè)為 0，則會(huì)取消數(shù)據(jù)表或窗體中對(duì)區(qū)域的選定。
如果已在數(shù)據(jù)表中選定了一個(gè)或多個(gè)記錄（使用記錄選定器），則不能更改 Selwidth 屬性的設(shè)置（除非將其設(shè)為 0）。
可以將這些屬性與 SelTop 和 Selleft 屬性一起使用，以指定或確定數(shù)據(jù)表中選定矩形的實(shí)際位置。如果沒有選定任何區(qū)域，那么 SelTop 和 Selleft 屬性分別返回焦點(diǎn)所在單元格的行號(hào)和列號(hào)。
Selwidth 屬性值和 Selheight 屬性值包含選定內(nèi)容矩形右下角的位置。而 Selleft 屬性值和 Seltop 屬性值則確定選定內(nèi)容矩形左上角的位置。
示例
下面的示例顯示如何使用 Selheight、Selwidth、Seltop 和 Selleft 屬性來(lái)確定“數(shù)據(jù)表”視圖中選定內(nèi)容矩形的位置和大小。該過(guò)程將當(dāng)前選定內(nèi)容矩形的高度和寬度值賦給變量 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