8-18.ユーザーフォームの操作：マルチページを操作するには？

PagesオブジェクトのCountプロパティ

マルチページ.Pages

マルチページは、フォーム上に複数のタブを設ける機能です。タブの数（ページ数）はPagesオブジェクトのCountプロパティで、表示中のタブのインデックス値はValueプロパティで取得できます。タブを切り替えるには、MultiPageのValueプロパティに、表示するタブのインデックス値を指定します。インデックス値は左端が0になるので注意しましょう。タブを操作するには、Pages（1）のようにインデックス値を指定します。

　次のサンプルコードは、「CommandButton1」という名前のボタン（ボタンの表示は「確認」）をクリックすると、マルチページの総ページ数（タブの数）と、現在表示中のタブの名前（Caption）を表示します。

タブ（ページ）の総数と選択中のタブの名前を表示

Private Sub CommandButton1_Click()

With MultiPage1

MsgBox “総ページ数：” & .Pages.Count & vbCrLf _

& “現在：” & .Pages(.Value).Caption

End With

End Sub

実行結果