Count プロパティの使用例 (VJ++)

次の例では、フォームの Controls コレクションの Count プロパティと、各 MultiPage および TabStrip のページ数とタブ数を識別する Count プロパティを表示します。

この例を使用するには、このサンプル コードをフォームの Declarations 部分にコピーします。 フォームは任意の数のコントロールを格納できますが、次の制限があります。

• 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 のサポートおよびフィードバックを参照してください。