Pages.Add メソッド (Access)
Add メソッドは、タブ コントロールの Pages コレクションに新しい Page オブジェクトを追加します。
式。追加 (前)
式Pages オブジェクトを表す変数。
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
Before | 省略可能 | バリアント型 | Page オブジェクトを追加する直前の Page オブジェクトのインデックスを整数 (Integer) で指定します。 Page オブジェクトのインデックスは、その Page オブジェクトの " PageIndex /ページインデックス" プロパティの値と同じです。 この引数を省略した場合は、新規の Page オブジェクトは、コレクションの末尾に追加されます。 |
Page
Pages コレクション内の最初の Page オブジェクトは、タブ コントロールの左端のページに対応し、インデックスは 0 です。 2 番目の Page オブジェクトは、最初のページの右側にあり、タブ コントロール内のすべての Page オブジェクトのインデックスは 1 です。
引数 Before に 0 を指定した場合は、新規の Page オブジェクトは、Pages コレクションの先頭の Page オブジェクトの前に追加されます。 新しい Page オブジェクトは、インデックスが 0 のコレクション内の最初の Page オブジェクトになります。
Page オブジェクトは、フォームのデザイン ビューでのみ、タブ コントロールの Pages コレクションに追加できます。
次の例は、フォームのデザイン ビューでページをタブ コントロールに追加します。 この例を試すには、TabCtl0 という名前のタブ コントロールを使用して、Form1 という名前の新しいフォームを作成します。 次のコードを標準モジュールに貼り付けて実行します。
Function AddPage() As Boolean
Dim frm As Form
Dim tbc As TabControl, pge As Page
On Error GoTo Error_AddPage
Set frm = Forms!Form1
Set tbc = frm!TabCtl0
tbc.Pages.Add
AddPage = True
Exit_AddPage:
Exit Function
Error_AddPage:
MsgBox Err & ": " & Err.Description
AddPage = False
Resume Exit_AddPage
End Function
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。