タブコントロール上にあるコントロールを取得するには?


はま  2004-06-09 12:08:36  No: 83918  IP: [192.*.*.*]

VB6で、タブの上にあるコントロールを取得したいと思っています。
現在は、以下のようなコードになっています。

Dim c As Control

For Each c In Me.Controls
    If c.Container Is SSTab1 Then
        Debug.Print c.Name
    End If
Next c

この状態ですと、タブの上にあるコントロールが全て取得できますが、
あるページの上にあるコントロールだけ取得する方法はないでしょうか?

編集 削除
魔界の仮面弁士  2004-06-09 12:45:57  No: 83919  IP: [192.*.*.*]

> あるページの上にあるコントロールだけ取得する方法はないでしょうか?
特定のページ上の物だけを取得する事はできません。
各コントロールのTagプロパティにページ番号を入れておくなどして、
自前で管理するようにしてみてください。

なお、現在のページ上にあるかどうかだけならば、
各コントロールのLeftプロパティで、ある程度の判断はできます。

編集 削除