次の方法で共有

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