Pages.Add 方法 (Access)

Add 方法将新的 Page 对象添加到选项卡控件的 Pages 集合。

语法

表达式。在) 之前 添加 (

表达 一个代表 Pages 对象的变量。

参数

名称	必需/可选	数据类型	说明
Before	可选	Variant	Integer 类型，用来指定应当在其前面添加新的 Page 对象的 Page 对象的索引。 Page 对象的索引对应于 该PageIndex 属性的值。 如果省略此参数，新的 Page 对象将被添加到集合的末尾。

返回值

Page

备注

Pages 集合中的第一个 Page 对象对应于选项卡控件中最左边的页，索引为 0。 第二个 Page 对象为紧接其右边的第一页，索引为 1，选项卡控件中的所有其他 Page 对象依此类推。

如果将 Before 参数的值指定为 0，则将在 Pages 集合中第一个 Page 对象的前面添加新的 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。