通过

在窗体上显示 MultiPage 和 TabStrip 控件中的页数和选项卡数

  • 项目

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

若要使用本示例，请将此示例代码复制到窗体的"脚本编辑器"中。 若要运行本代码，请打开该窗体，以便激活 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。