Count 属性示例

  • 项目

以下示例显示窗体的 Controls 集合的 Count 属性，以及标识每个 MultiPage 和 TabStrip 的页数和选项卡数的 Count 属性。

若要使用此示例，请将此示例代码复制到窗体的声明部分。 窗体可以包含任意数量的控件，但有以下限制：

  • MultiPage 控件的名称必须以 MultiPage开头。
  • TabStrip 控件的名称必须以 TabStrip开头。

注意

You can add pages to a MultiPage or add tabs to a 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。