InSelection 屬性

全部顯示

使用 InSelection 屬性可以判定或指定“設(shè)計(jì)”視圖中的窗體上的控件是否被選定。Boolean 型，可讀/寫。

expression.InSelection

expression     必需。返回“應(yīng)用于”列表中的一個對象的表達(dá)式。

說明

InSelection 屬性使用以下設(shè)置。

 

注釋  只有在使用宏或 Visual Basic 時此屬性才可用。

在控件被選定時，它的調(diào)整柄可見，所以可以調(diào)整大小。而且一次可選定多個控件。

示例

下列函數(shù)使用 InSelection 屬性來確定 strControlName 控件是否被選定。

如果要試驗(yàn)下列代碼，可將 IsControlSelected 函數(shù)代碼粘貼到“羅斯文”示例數(shù)據(jù)庫某一代碼模塊中的聲明節(jié)，在“設(shè)計(jì)”視圖中打開“客戶”窗體，然后選取“公司名稱”控件。在“調(diào)試”窗口中輸入以下代碼行：

? IsControlSelected (Forms!Customers, "CompanyName")

Function IsControlSelected(frm As Form, _

     strControlName As String) As Integer

    Dim intI As Integer, ctl As Control

    If frm.CurrentView <> 0 Then

        ' Form is not in Design view.

        Exit Function

    Else

        For intI = 0 To frm.Count - 1

            Set ctl = frm(intI)

            If ctl.InSelection = True Then

                ' Is desired control selected?

                If UCase(ctl.Name) = UCase(strControlName) Then

                    IsControlSelected = True

                    Exit Function

                End If

            Else

                IsControlSelected = False

            End If

        Next intI

    End If

End Function