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

Отображение количества страниц и вкладок в элементах управления MultiPage и TabStrip в форме

  • Статья

В следующем примере отображается свойство Count коллекции элементов управленияMicrosoft Forms 2.0 для формы, а также свойство Count, определяющее количество страниц и вкладок каждого объекта MultiPage и TabStrip.

Чтобы использовать этот пример, скопируйте пример кода в редактор скриптов формы. Чтобы запустить код, необходимо открыть форму, чтобы активировать событие Open . Форма может содержать любое количество элементов управления со следующими ограничениями:

  • названия элементов управления MultiPage должны начинаться с "MultiPage";

  • названия элементов управления TabStrip должны начинаться с "TabStrip".

Примечание Вы можете добавить страницы в MultiPage или добавить вкладки в TabStrip в режиме конструктора. Дважды щелкните элемент управления, щелкните правой кнопкой мыши область вкладок элемента управления и выберите в контекстном меню пункт Создать страницу .

Sub Item_Open 
 Dim Controls 
 Dim MyControl 
 
 Set Controls = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls 
 MsgBox "Controls.Count = " & Controls.Count 
 For i = 0 to Controls.Count -1 
 Set MyControl = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls.Item(i) 
 If (MyControl.Name = "MultiPage1") Then 
 MsgBox MyControl.Name & ".Pages.Count = " & MyControl.Pages.Count 
 ElseIf (MyControl.Name = "TabStrip1") Then 
 MsgBox MyControl.Name & ".Tabs.Count = " & MyControl.Tabs.Count 
 End If 
 Next 
End Sub

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

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