Пример использования свойства 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 и обратная связь.