PictureBoxが表示されない (ID:108612)

名前

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

本文 たくさんの画像をフォーム上に表示させる場合は大げさなことを言うとPictureBoxも一つも必要ありません（実際はバックグラウンドで処理をしたりとするのに1,2個は必要だが）方法としては <画像を読み込む> ↓ <フォーム上のPictureBoxにPaintPictureで画像を追加（？）する> ↓ <新たな画像を指定し、一番上に戻る> コードだと '一つの画像サイズは10*10でフォーム上のPictureBoxのサイズは50*100だとする Dim i As Integer,x as Long,y as Long For i=0 to 50 'PictureBoxに一時的に読み込む Picture1 = LoadPicture("test" & i & ".bmp") 'フォーム上のPicture2に画像を追加（？）する Picture2.PaintPicture Picture1, x*10,y*10 'インデックスを繰り上げる x=x+1 if x>5 then x=0 y=y+1 endif Next じかに書き込んでいるんで多少間違ってるかもしれませんがこんな感じでいいはずです。