Compartilhar via


Exemplo da propriedade Count

O exemplo a seguir exibe a propriedade Count da coleção Controls para o formulário e a propriedade Count que identifica o número de páginas e guias de cada MultiPage 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 controles MultiPage devem começar com MultiPage.
  • Os nomes dos controles TabStrip devem começar com TabStrip.

Observação

Você pode adicionar páginas a uma MultiPage ou adicionar guias a um TabStrip. No Windows, clique duas vezes no controle e clique com o botão direito do mouse na área de guia do controle e escolha 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.