(VB6.0)オブジェクト名に変数を使うには？ (ID:119863)

名前

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

本文 VB6なら、コントロール配列にした方が良いかも知れません。 それらのImageには、同じ名前(たとえば、Image1)をつけておき、 それぞれのIndexプロパティにだけ、異なる数字(0, 1, 2, ……)を入れます。 そうすると、 Dim a As Long For a = 0 To 4 Set Image1(a).Picture = LoadPicture("ファイル名") Next もしくは、 Dim Img As Image For Each Img In Image1 Set Img.Picture = LoadPicture("ファイル名") Next などのようにして処理できるようになります。 もし、コントロール配列にできない事情があるなら、 For a = 1 To 5 Controls("Image" & CStr(a)).Picture = LoadPicture("ファイル名") Next のような書き方も可能です。