投稿日 | : 2003/01/30(Thu) 11:45 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : Re^2: Objectの確認 |
> もちろん、調べるだけなら、
> Dim obj As Control
> For Each obj In Controls
> If obj.Name = "Label1" Then
> List1.AddItem obj.Name & "(" & obj.Index & ")"
> End If
> Next
> みたいにして調べられますが・・・。
こういう書き方もできます。
Dim Lbl As VB.Label
For Each Lbl In Label1
List1.AddItem "Label1(" & Lbl.Index & ")"
Next