control.add 変数のついて (ID:113452)

名前

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

本文 Loadステートメントによる動的追加では だめなのでしょうか？ For i = 1 To 10 Load Label1(i) Label1(i).Top = Label1(i - 1).Top + 500 ..... とか？ あるいは、イベントを使わないのなら Private lblObj(10) As Label ..... Set lblObj(i) = Form1.Controls.Add("VB.Label", "lbl" & CStr(i)) ..... とか、プロパティ、メソッドはループで利用したいが イベントをくくらなくていいのなら Private WithEvents lblObj1 As Label Private WithEvents lblObj2 As Label Private WithEvents lblObj3 As Label Private lblObj(3) As Label Set lblObj1 = Form1.Controls.Add("VB.Label", "lbl1" Set lblObj2 = Form1.Controls.Add("VB.Label", "lbl2" Set lblObj3 = Form1.Controls.Add("VB.Label", "lbl3" Set lblObj(0) = lblObj1 Set lblObj(1) = lblObj2 Set lblObj(2) = lblObj3 For i = 0 To 2 lblObj(i).Top = 1000 + 500 * i lblObj(i).Visible = True ..... とか