Exemplo da propriedade Count

O exemplo seguinte apresenta a propriedade Contagem da coleção Controlos do formulário e a propriedade Contar que identifica o número de páginas e separadores de cada Página Múltipla e TabStrip.

Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. The form can contain any number of controls, with the following restrictions:

• Os nomes dos controlos multipáginas têm de começar com MultiPage.
• Os nomes dos controlos TabStrip têm de começar com TabStrip.

Observação

Pode adicionar páginas a uma Página Múltipla ou adicionar separadores a uma TabStrip. No Windows, faça duplo clique no controlo e, em seguida, clique com o botão direito do rato na área de separador do controlo e selecione Nova Página no menu de atalho.

Private Sub UserForm_Initialize() 
 Dim MyControl As Control 
 
 MsgBox "UserForm1.Controls.Count = " _ 
 & Controls.Count 
 
 For Each MyControl In Controls 
 If (MyControl.Name Like "MultiPage*") Then 
 MsgBox MyControl.Name _ 
 & ".Pages.Count = " _ 
 & MyControl.Pages.Count 
 ElseIf (MyControl.Name Like "TabStrip*") Then 
 MsgBox MyControl.Name & ".Tabs.Count = " _ 
 & MyControl.Tabs.Count 
 End If 
 Next 
 
End Sub

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.