Partager via

Afficher le nombre de pages et d’onglets dans les contrôles MultiPage et TabStrip d’un formulaire

  • Article

L’exemple suivant affiche la propriété Count de la collection Microsoft Forms 2.0 Controlspour le formulaire, et la propriété Count identifiant le nombre de pages et d’onglets de chaque MultiPage et TabStrip.

Pour utiliser cet exemple, copiez-en le code vers l’éditeur de script d’un formulaire. Pour exécuter le code, vous devez ouvrir le formulaire afin d’activer l’événement Open. Le formulaire peut contenir une quantité quelconque de contrôles, avec les restrictions suivantes :

  • les noms des contrôles MultiPage doivent commencer par « MultiPage » ;

  • les noms des contrôles TabStrip doivent commencer par « TabStrip » ;

Note Vous pouvez ajouter des pages à un objet MultiPage ou ajouter des onglets à un contrôle TabStrip en mode Création. Double-cliquez sur le contrôle, puis cliquez avec le bouton droit dans la zone d’onglet du contrôle et choisissez Nouvelle page dans le menu contextuel.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.