Partager via

Accéder à une page dans un contrôle MultiPage

  • Article

L’exemple suivant accède à une page individuelle d’une multipage de plusieurs façons :

  • Utilisation de la collection Pages avec un index numérique.

  • en utilisant le nom de la page dans le contrôle MultiPage ;

  • Utilisation de la propriété SelectedItem .

Pour utiliser cet exemple, copiez-en le code vers l’éditeur de script d’un formulaire. Vérifiez que le formulaire contient un objet MultiPage nommé MultiPage1 et un CommandButton nommé CommandButton1.

Sub CommandButton1_Click 
 Dim PageName 
 Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").MultiPage1 
 
 For i = 0 To MultiPage1.Count - 1 
 'Use index (numeric or string) 
 MsgBox "MultiPage1.Pages(i).Caption = " & MultiPage1.Pages(i).Caption 
 MsgBox "MultiPage1.Pages.Item(i).Caption = " & MultiPage1.Pages.Item(i).Caption 
 
 'Use Page object without referring to Pages collection 
 If i = 0 Then 
 MsgBox "MultiPage1.Page1.Caption = " & MultiPage1.Page1.Caption 
 ElseIf i = 1 Then 
 MsgBox "MultiPage1.Page2.Caption = " & MultiPage1.Page2.Caption 
 End If 
 
 'Use SelectedItem Property 
 MultiPage1.Value = i 
 MsgBox "MultiPage1.SelectedItem.Caption = " & MultiPage1.SelectedItem.Caption 
 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.