Метод Pages.Add (Access)

Метод Add добавляет новый объект Page в коллекцию Pages элемента управления tab.

Синтаксис

expression. Добавить (до)

Выражение Переменная, представляющая объект Pages .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Before	Необязательный	Variant	Целое число, указывающее индекс объекта Page, перед которым должен быть добавлен новый объект Page. Индекс объекта Page соответствует значению свойства PageIndex для этого объекта Page . Если этот аргумент не указан, новый объект Page будет добавлен в конец коллекции.

Возвращаемое значение

Page

Замечания

Первый объект Page в коллекции Pages соответствует крайней левой странице в элементе управления tab и имеет индекс 0. Второй объект Page находится справа от первой страницы и имеет индекс 1 и т. д. для всех объектов Page в элементе управления tab.

Если указать 0 для аргумента Before , новый объект Page добавляется перед первым объектом Page в коллекции Pages . Затем новый объект Page становится первым объектом Page в коллекции с индексом 0.

Объект Page можно добавить в коллекцию Pages элемента управления tab, только если форма находится в режиме конструктора.

Пример

В следующем примере страница добавляется в элемент управления tab в форме, которая находится в режиме конструктора. Чтобы попробовать этот пример, создайте форму с именем Form1 с элементом управления TABCtl0. Вставьте следующий код в стандартный модуль и запустите его.

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 и обратная связь.