Table of contents
TOC
Collapse the table of content
Expand the table of content

Page Object, Pages Collection, MultiPage Control, SelectedItem Property Example

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

The following example accesses an individual page of a MultiPage in several ways:

  • Using the Pages collection with a numeric index.

  • Using the Pages collection with a string index.

  • Using the Pages collection with the Item method.

  • Using the name of the individual page in the MultiPage.

  • Using the SelectedItem property.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains a MultiPage named MultiPage1.

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
© 2018 Microsoft