Access) (CustomControl.InSelection 屬性

使用 InSelection 屬性來判斷或指定是否已選取 [設計檢視] 中表單上的控制項。 可讀寫的 Boolean。

語法

運算式。InSelection

表達 代表 CustomControl 物件的 變數。

註解

選取控制項時，其調整大小控制碼會顯示出來，而且可以由使用者調整其大小。 一次可選取一個以上的控制項。

範例

下列函數會使用 InSelection 屬性來判斷是否已選取表單上的 strControlName 控制項。

若要測試此程式碼，請在 Northwind 範例資料庫中程式碼模組的宣告區段中貼上 IsControlSelected 函式程式碼、在 [設計] 檢視中開啟 [客戶 ] 表單，然後選取 [公司名稱] 控制項。 在 [偵錯] 視窗中輸入下列這一行。

? IsControlSelected (Forms!Customers, "CompanyName") 
 
Function IsControlSelected(frm As Form, _ 
 strControlName As String) As Boolean 
 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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。