Поделиться через

Доступ к странице в элементе управления MultiPage

  • Статья

В следующем примере доступ к отдельной странице MultiPage выполняется несколькими способами:

  • Использование коллекции Pages с числовым индексом.

  • используя название отдельной страницы в MultiPage;

  • Использование свойства SelectedItem .

Чтобы использовать этот пример, скопируйте пример кода в редактор скриптов формы. Убедитесь, что форма содержит MultiPage с именем MultiPage1 и CommandButton с именем CommandButton1.

Sub CommandButton1_Click 
 Dim PageName 
 Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").MultiPage1 
 
 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 
 
 '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 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.