コントロールの数を取得するには

解決

マイク 2002-08-30 21:32:31 No: 104779 IP: [192.*.*.*]

Frameの上に貼りつけてあるコントロールの数を
取得したいのですが、どなたかご存知の方はいませんでしょうか。
よろしくお願い致します。

編集削除

多分 2002-08-30 23:21:03 No: 104780 IP: [192.*.*.*]

うーーん
多分もっといい方法があるはずだけど、
一応これでもできるよ。

Dim TempControl As Control
Dim cnt As Long
cnt = 0
For Each TempControl In Form1.Controls
cnt = cnt + 1
Next
MsgBox cnt

編集削除

多分 2002-08-30 23:21:49 No: 104781 IP: [192.*.*.*]

ごめんなさい

解決つけて送ってしまいました。。。。。。。

編集削除

Say 2002-08-31 02:12:34 No: 104782 IP: [192.*.*.*]

それではForm上のコントロール総数を数えちゃいますね。
Form上のコントロール総数なら、
    MsgBox Me.Controls.Count
で十分です。
Frame上なら、たとえば
    Dim TempControl As Control
    Dim cnt As Long
    cnt = 0
    For Each TempControl In Form1.Controls
        If TempControl.Container.Name = "Frame1" Then
            cnt = cnt + 1
        End If
    Next
    MsgBox cnt

編集削除

多分 2002-08-31 02:45:59 No: 104783 IP: [192.*.*.*]

重ね重ねごめんなさい
フォーム上だと勘違いしてました。

ちゃんと文章読まないとだめですね。

編集削除