PictureBoxの件で教えて頂きたいです VB.NET

質問

PictureBox1に画像を表示してあり、
その画像の一部分を四角形で指定して、
PictureBox2に表示するのですが、
例えばPictureBox1から切り取った画像が100*100の
サイズだった場合に、PictureBox2に表示する際に
PictureBox2のサイズを200*200などと
元の100*100より大きく設定して、
PictureBoxSizeMode.StretchImageを実行して、
画像を200*200で表示して、
それをそのサイズで保存したいのですが、
保存された画像をみると100*100になってしまっています。
表示されているサイズ（この場合200*200）で保存したいのですが、
方法を教えて頂けたら助かります。
保存は
.Image.Save("c:\test.jpg", Imaging.ImageFormat.Jpeg)
で保存しています。

宜しくお願い致します。

回答No.1

redfox63 · ベストアンサー

Bitmapオブジェクトと Graphicsオブジェクトを使えば可能だと思いますよ
切り取った画像がPictureBox2のImageプロパティに設定されているとします
// 幅・高さを取得
dim w as Integer = PictureBox2.Width
dim h as Integer = PictureBox2.Height
// 保存用 Bitmapを作成
dim bmp as new Bitmap( w, h )
// ビットマップから Graphicsオブジェクトを作成
dim g as Graphics = Graphics.FromImage( bmp )
// 希望の大きさにして イメージを描画
g.DrawImage( PictureBox2.Image, 0, 0, w, h )
g.Dispose()
// ファイルにセーブ
bmp.Save("ファイル名", Drawing.Imaging.ImageFormat.Jpg )
bmp.Dispose()

といった具合で

お礼

お返事ありがとうございます。
今違うパソコンしかないのであとで試してみます。
色々試しても出来なかったので助かります。
ありがとうございます。ｍ（＿＿）ｍ