Page 对象、Pages 集合、多页控件、SelectedItem 属性示例

下例以几种方法访问多页控件的单个页：

• 使用具有数值索引的 Pages 集合。
• 使用具有字符串索引的 Pages 集合。
• 使用具有 Item 方法的 Pages 集合。
• 使用在多页控件中的单个页的名称。
• 使用 SelectedItem 属性。

窗体包含

• 名为 MultiPage1 的多页控件。

Sub UserForm_Initialize()
    Dim PageName
    
    For i = 0 To UserForm_MultiPage1.Count - 1
        '使用索引（数值的或字符串的）
        MsgBox "MultiPage1.Pages(i).Caption =" & UserForm_MultiPage1.Pages(i).Caption
        MsgBox "MultiPage1.Pages.Item(i).Caption ="  & UserForm_MultiPage1.Pages.Item(i).Caption
        
        PageName = UserForm_MultiPage1.Pages(i).Name
        MsgBox "PageName =" & PageName
        
        
        MsgBox "MultiPage1.Pages(PageName).Caption =" & UserForm_MultiPage1.Pages(CStr(PageName)).Caption
        MsgBox "MultiPage1.Pages.Item(PageName).Caption =" & UserForm_MultiPage1.Pages.Item(CStr(PageName)).Caption
        
        '使用 Page 对象，而不引用 
          'Pages 集合
        If i = 0 Then
            MsgBox "MultiPage1.Page1.Caption= " & UserForm_MultiPage1.Page1.Caption
        ElseIf i = 1 Then
            MsgBox "MultiPage1.Page2.Caption = " & UserForm_MultiPage1.Page2.Caption
        End If

        '使用 SelectedItem 属性
        UserForm_MultiPage1.Value = i
        MsgBox "MultiPage1.SelectedItem.Caption = " & UserForm_MultiPage1.SelectedItem.Caption
    Next
End Sub