Método Pages.Add (Access)
O método Add adiciona um novo objeto Page à coleção Pages de um controle de guia.
expressão. Adicionar (antes)
Expressão Uma variável que representa um objeto Pages .
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
Before | Opcional | Variantes | Um Integer que especifica o índice do objeto Page antes do qual o novo objeto Page seria adicionado. O índice do objeto Page corresponde ao valor da propriedade PageIndex desse objeto Page. Se você omitir esse argumento, o novo objeto Page será adicionado ao final da coleção. |
Page
O primeiro objeto Page na coleção Pages corresponde à página mais à esquerda no controle guia, tendo um índice de 0. O segundo objeto Page está imediatamente à direita da primeira página e tem um índice de 1 e assim por diante, para todos os objetos Page no controle guia.
Se você especificar 0 para o argumento Before, o novo objeto Page é adicionado antes do primeiro objeto Page na coleção Pages. Em seguida, o novo objeto Page se torna o primeiro objeto Page da coleção com um índice de 0.
Você pode adicionar um objeto Page à coleção Pages de um controle guia somente quando o formulário está no modo de design.
O exemplo a seguir adiciona uma página a um controle guia em um formulário que está no modo de design. Para experimentar este exemplo, crie um novo formulário chamado Form1 com um controle de guia chamado TabCtl0. Cole o código a seguir em um módulo padrão e execute-o.
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
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.