画像を縮小するには？ (ID:145974)

名前

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

本文 ホームページにできるだけ多くの画像を載せたいので、ひとつひとつの画像のサイズをペイントの「サイズの変更」で変更しているのですが、写真の枚数が多く、いつも苦労しているので、プログラムで処理しようとしているのですがうまくいきません。 今やろうとしているのは、フォーム(f)に設けたPctureBox1に画像を取り込み、拡大縮小の率によって異なるいくつかのボタンを設け、それをクリックし、OpenFileDialogで指定したディレクトリに記録しようというものです。 以下が私のやった内容で、縮小率５０％（１０００→５００）の例です PictureBox1には画像が取り込まれているとして Public bmp as New Bitmap(1000,1000) Public pg as Graphics Private Sub Button1_Click(-----) dim img as Bitmap img=PictureBox1.Image pg.Clear(Color.Empty) pg.DrawImage(imag,0,0,500,500) f.PictureBox1.imag=bmp End Sub これにより、画像はPictureBox1上では確かに５０％に縮小され これを、OpenFileDialogで得たPictureNameに PictrueBox1.Image.Save(PictureName,Imaging.ImageFormat.Jpeg) として記録するのですが、ペイントでやったの違ってキャンバスが元のままなのです。 キャンバスごと縮小する方法を教えて下さい。 やっている作業は、ペイントで画像を取り込み、サイズを変更して、指定したディレクトリーに記録するのと変わりありませんが、これができればいろいろ応用ができるので実現したいのです。 宜しくお願いします