次の方法で共有

Page オブジェクト、Pages コレクション、MultiPage コントロール、SelectedItem プロパティの例

  • [アーティクル]

次の例は、マルチ ページ ( MultiPage ) コントロールの各ページを操作する方法を示します。

  • 数値インデックスと共に Pages コレクションを使用する方法

  • Pages コレクションと文字列インデックスを使用します。

  • Item メソッドで Pages コレクションを使用する。

  • マルチ ページ ( MultiPage ) コントロールの各ページの名前を使用する方法

  • SelectedItem プロパティを使用する方法

この例を使用するには、このサンプル コードをフォームの Declarations 部分にコピーします。 フォームに 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 のサポートおよびフィードバックを参照してください。