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 のサポートおよびフィードバックを参照してください。