For Eachのチェック範囲について (ID:85143)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > 最初は If オブジェクト.Container = PictureBox Then ・・・・ こういう時は、 If .Container = PictureBox Then ではなく、 'PictureBoxに貼り付けられている物を探す If TypeOf .Container Is PictureBox Then または、 'Picture1に貼り付けられている物を探す If .Container Is Picture1 Then です。 > もしコントロール配列かどうか調べる方法があれば、 Dim Ctrl As VB.Control For Each Ctrl In Me If TypeName(Me(Ctrl.Name)) = "Object" Then Debug.Print Ctrl.Name; "(" & CStr(Ctrl.Index) & ")は"; Debug.Print TypeName(Ctrl); "のコントロール配列です。" Else Debug.Print Ctrl.Name; "は"; Debug.Print TypeName(Ctrl); "コントロールです。" End If Next なお、 TypeName(Me(Ctrl.Name)) の替わりに、 TypeName(Ctrl.Parent(Ctrl.Name)) という感じでもOKかと。