Freigeben über

Page-Objekt, Pages-Auflistung, MultiPage-Steuerelement, SelectedItem-Eigenschaft (Beispiel)

  • Artikel

Im folgenden Beispiel werden mehrere Möglichkeiten behandelt, um auf eine Seite eines Multiseiten-Steuerelements ( MultiPage ) zuzugreifen:

  • Verwenden der Pages -Auflistung mit einem numerischen Index.

  • Verwendung der Pages-Auflistung mit einem Zeichenfolgenindex

  • Verwenden der Pages-Auflistung mit der Item-Methode .

  • Verwenden des Namens der entsprechenden Seite im Multiseiten-Steuerelement ( MultiPage ).

  • Verwenden der SelectedItem -Eigenschaft.

Sie können dieses Beispiel verwenden, indem Sie diesen Beispielcode in den Deklarationsabschnitt eines Formulars kopieren. Stellen Sie sicher, dass im Formular ein MultiPage-Element mit der Bezeichnung "MultiPage1" enthalten ist.

Private Sub UserForm_Initialize() 
 Dim PageName As String 
 
 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 
 
 PageName = MultiPage1.Pages(i).Name 
 MsgBox "PageName = " & PageName 
 
 MsgBox "MultiPage1.Pages(PageName)" _ 
 & ".Caption = "_ 
 & MultiPage1.Pages(PageName).Caption 
 MsgBox "MultiPage1.Pages.Item(PageName)" _ 
 & ".Caption = " & MultiPage1.Pages _ 
 .Item(PageName).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 i 
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.