- "Count" プロパティ
- フォームオブジェクトにおいて、そのフォーム内に配置されているコントロールの数を取得します。
この数を基準にループ処理することによって、すべてのコントロールに順番にアクセスすることができます。
- フォーム
-
Private Sub cmd表示_Click()
'[表示]ボタンクリック時
Dim iintLoop As Integer
'フォーム内のコントロール数を表示
MsgBox Me.Count
'それぞれのコントロールの名前プロパティを表示
For iintLoop = 0 To Me.Count - 1
MsgBox Me.Controls(iintLoop).Name
Next iintLoop
End Sub
- 下図のフォームの場合、テキストボックス4つ、チェックボックス1つ、コマンドボタン1つの、合計6つのコントロールが配置されていますので、「6」という数値がメッセージボックスに表示されます。

|