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

下面的示例通过几种方式访问 MultiPage 中的单个页：

• 使用数字索引访问 Pages 集合。

• 通过字符串索引使用 Pages 集合。

• 将 Pages 集合与 Item 方法配合使用。

• 使用 MultiPage 中单个页的名称。

• 使用 SelectedItem 属性。

若要使用此示例，请将此示例代码复制到窗体的声明部分。 并确保窗体包含名为 MultiPage1 的 MultiPage。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。