共用方式為

Page 物件、Pages 集合、MultiPage 控制項、SelectedItem 屬性範例

  • 發行項

下列範例以下面幾種方法存取 MultiPage 中的單頁：

  • 使用含有數字索引的 Pages 集合。

  • 搭配字串索引使用 Pages 集合。

  • 搭配Item方法使用Pages集合。

  • 使用 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 支援與意見反應。