Пример использования свойства Count

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

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

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

Примечание.

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

Private Sub UserForm_Initialize() 
 Dim MyControl As Control 
 
 MsgBox "UserForm1.Controls.Count = " _ 
 & Controls.Count 
 
 For Each MyControl In Controls 
 If (MyControl.Name Like "MultiPage*") Then 
 MsgBox MyControl.Name _ 
 & ".Pages.Count = " _ 
 & MyControl.Pages.Count 
 ElseIf (MyControl.Name Like "TabStrip*") Then 
 MsgBox MyControl.Name & ".Tabs.Count = " _ 
 & MyControl.Tabs.Count 
 End If 
 Next 
 
End Sub

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

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