Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
O método Adicionar adiciona um novo objeto Página à coleção Páginas de um controlo de separador.
Sintaxe
expressão. Adicionar (Antes)
expressão Uma variável que representa um objeto Páginas .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Before | Opcional | Variant | 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. |
Valor de retorno
Page
Comentários
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 Página torna-se o primeiro objeto Página na 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.
Exemplo
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 com o nome Form1 com um controlo de separador denominado TabCtl0. Cole o seguinte código num 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
Suporte e comentários
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.