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

はま 2004-06-09 12:08:36 No: 83918

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

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

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