表紙へ

全般

２．すべてのコントロールを列挙する

１．すべてのコントロールの名前を列挙する例

　

Dim oControl As Object

　

For Each oControl In Me.Controls

    List1.AddItem oControl.Name

Next oControl

　

メモ：この例を実行するには少なくともリストボックス(List)を１つ貼り付けておくこと。
　

　

２．すべてのテキストボックスの値を列挙する例

　

Dim oText As Object

　

For Each oText In Me.Controls

    If TypeName(oText) = "TextBox" Then

        List1.AddItem oText.Text

    End If

Next oText

   
   

        メモ：この例を実行するには少なくともリストボックス(List)を１つ貼り付けておくこと。

３．すべての金額項目の値を合計する例

注意：金額項目のTagプロパティにはあらかじめ 金額項目 という文字列をセットしておくこと

Dim oMoney As Object

Dim Sum As Long

For Each oMoney In Me.Controls

    If oMoney.Tag = "金額項目" Then

        Sum = Sum + oMoney.Text

    End If

Next oMoney

　

MsgBox "合計金額： " & Sum