CustomControl.InSelection プロパティ (Access)

InSelection プロパティを使用して、デザイン ビューのフォーム上のコントロールを選択するかどうかを決定または指定します。 読み取り/書き込みが可能な Boolean です。

構文

式。InSelection

式CustomControl オブジェクトを表す変数。

注釈

コントロールを選択すると、そのサイズ変更ハンドルが表示され、ユーザーがサイズを変更できます。 同時に複数のコントロールを選択できます。

例

次の関数では、InSelection プロパティを使って、フォームの strControlName コントロールが選択されているかどうかを判断します。

このコードをテストするには、Northwind サンプル データベースのコード モジュールの宣言セクションに IsControlSelected 関数コードを貼り付け、デザイン ビューで Customers フォームを開き、 CompanyName コントロールを選択します。 [デバッグ] ウィンドウに次の行を入力します。

? 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 のサポートおよびフィードバックを参照してください。