顯示表單上 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 支援與意見反應。