タイトル : Re^2: 処理を短く・・ 投稿日 : 2008/05/14(Wed) 10:07 投稿者 : 癒耶
> > For〜Loopなどを使って処理を短くする事が可能でしょうか? > > お願いいたします。 > > For i As Integer = 1 To 1000 > Me.picItem00001.BackgroundImage = New Bitmap(My.Resources.image & CStr(i).PadLeft(5, "0"c)) > Next i > > では、どうでしょうか? それだとMe.picItem00001のイメージが変更されていくだけでは・・・。 Me.picItem00001〜01000をBitMapの配列に格納して 一緒にiでカウントしていくのがいいかな? For i As Integer = 1 To 1000 Me.arPicItem(i-1).BackgroundImage = New Bitmap(My.Resources.image & CStr(i).PadLeft(5, "0"c)) Next i |