英語で読む

次の方法で共有


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