Freigeben über


Count-Eigenschaft (Beispiel)

Im folgenden Beispiel werden die Count-Eigenschaft der Controls-Auflistung für das Formular und die Count-Eigenschaft angezeigt, die die Anzahl der Seiten und Registerkarten der einzelnen MultiPage - und TabStrip-Elemente angibt.

Wenn Sie dieses Beispiel verwenden möchten, kopieren Sie diesen Beispielcode in den Deklarierungsteil eines Formulars. Das Formular kann eine beliebige Anzahl Steuerelemente enthalten, wobei die folgenden Einschränkungen gelten:

  • Die Namen von MultiPage-Steuerelementen müssen mit MultiPagebeginnen.
  • Namen von TabStrip-Steuerelementen müssen mit TabStripbeginnen.

Hinweis

[!HINWEIS] Sie können einem MultiPage -Objekt Seiten und einem TabStrip -Objekt Registerkarten hinzufügen. Doppelklicken Sie in Windows auf das Steuerelement, klicken Sie dann mit der rechten Maustaste auf den Registerkartenbereich des Steuerelements, und wählen Sie im Kontextmenü Neue Seite aus.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.