Anzeigen der Anzahl von Seiten und Registerkarten in MultiPage- und TabStrip-Steuerelementen auf einem Formular
Im folgenden Beispiel wird die Count-Eigenschaft der Microsoft Forms 2.0 Controls-Auflistungfür das Formular und die Count-Eigenschaft angezeigt, die die Anzahl der Seiten und Registerkarten der einzelnen MultiPage- und TabStrip-Elemente angibt.
To use this example, copy this sample code to the Script Editor of a form. To run the code you need to open the form so the Open event will activate. The form can contain any number of controls, with the following restrictions:
Die Namen von Multiseiten-Steuerelementen ( MultiPage ) müssen mit "MultiPage" beginnen.
Die Namen von Register-Steuerelementen ( TabStrip ) müssen mit "TabStrip" beginnen.
Hinweis Im Entwurfsmodus können Sie einem MultiPage-Objekt Seiten oder Tabs zu einem TabStrip hinzufügen. Doppelklicken Sie auf das Steuerelement, klicken Sie mit der rechten Maustaste in den Registerkartenbereich des Steuerelements, und klicken Sie im Kontextmenü auf Neue Seite.
Sub Item_Open
Dim Controls
Dim MyControl
Set Controls = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls
MsgBox "Controls.Count = " & Controls.Count
For i = 0 to Controls.Count -1
Set MyControl = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls.Item(i)
If (MyControl.Name = "MultiPage1") Then
MsgBox MyControl.Name & ".Pages.Count = " & MyControl.Pages.Count
ElseIf (MyControl.Name = "TabStrip1") 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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für