Ejemplo de la propiedad Count

En el ejemplo siguiente se muestra la propiedad Count de la colección Controls del formulario y la propiedad Count que identifica el número de páginas y pestañas de cada MultiPage y TabStrip.

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. El formulario puede contener cualquier número de controles, con las siguientes restricciones:

• Los nombres de los controles MultiPage deben empezar por MultiPage.
• Los nombres de los controles TabStrip deben empezar por TabStrip.

Nota:

[!NOTA] Se pueden agregar páginas a un elemento MultiPage o agregar pestañas a un elemento TabStrip. En Windows, haga doble clic en el control y, a continuación, haga clic con el botón derecho en el área de tabulación del control y elija Nueva página en el menú contextual.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.