#038
- "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
- 下図のフォームの場合、テキストボックス４つ、チェックボックス１つ、コマンドボタン１つの、合計６つのコントロールが配置されていますので、「６」という数値がメッセージボックスに表示されます。
- 下図のフォームの場合、テキストボックス４つ、チェックボックス１つ、コマンドボタン１つの、合計６つのコントロールが配置されていますので、「６」という数値がメッセージボックスに表示されます。
