スキルアップ・問題解決なら、モーグにおまかせ！

● 概要 ●
タブコントロールは、複数のページから構成されるコントロールです。各ページにはそれぞれ別々のコントロールを配置できます。種類の異なる情報を、ページを切り替えて表示するために使われます。

タブコントロール上の各ページは、Pagesコレクションを形成しています。
For Each...Nextステートメントを利用すれば、Pagesコレクションに含まれるすべてのPageオブジェクトを参照できます。
また、ページ上のコントロールは、Controlsコレクションを形成しているので、For Each...Nextステートメントを利用すれば、ページ上のすべてのコントロールを参照できます。
次のコードは、タブコントロール上に配置されたコントロールをページごとに列挙するものです。
For Each...Nextステートメントをネストさせている点に注目してください。


● サンプル ●
Private Sub cmd取得_Click()
    Dim myPage As Page
    Dim myCtrl As Control
    Dim myStr As String
    'タブコントロール上のページを1つずつ参照する
    For Each myPage In タブ.Pages
        myStr = myPage.Name & vbCr & vbCr
        'ページ上のコントロールを1つずつ参照する
        For Each myCtrl In myPage.Controls
            myStr = myStr & myCtrl.Name & vbCr
        Next
         'ページにフォーカスを移動
        myPage.SetFocus
         'ページ上のコントロールを表示
        MsgBox myStr
    Next
End Sub