共用方式為

Count 屬性範例

  • 發行項

下列範例會顯示表單之Controls集合的Count屬性，以及識別每個MultiPage和TabStrip之頁數和索引標籤的 Count 屬性。

若要使用本範例，請將此範例程式碼複製到表單的宣告部分中。 該表單可包含符合下列限制條件之任意數目的控制項：

  • 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 支援與意見反應。