ピクチャーボックスで合成した画像を名前をつけて保存

Question

ピクチャーボックスに画像を呼び出し、フォームの一部をキャプチャして合成する所まではできました。
しかし、キャプチャした画像を縮小することができません。
また、ピクチャーボックスの画像を名前をつけて保存すると、キャプチャした画像が入っていませんでした。

ピクチャーボックスで合成したところです。

名前を付けて保存した画像

理想の名前を付けて保存した画像

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles Button3.Click
    FileName = DirName & "\" & _
        System.IO.Path.GetFileNameWithoutExtension(TextBox3.Text) & ".jpg"
    Using Jpeg As Bitmap = _
        FormUtil.CreateClientBitmap(Me, New Rectangle(709, 158, 435, 366))
        Jpeg.Save(FileName, Imaging.ImageFormat.Jpeg)
        DrawImage(Jpeg, 10, 10)
        FileName = DirName & "\Test" & 
        System.IO.Path.GetFileNameWithoutExtension(TextBox3.Text) & ".jpg" _
            ictureBox2.Image.Save(FileName, Imaging.ImageFormat.Jpeg)
    End Using
End Sub

Private Sub DrawImage(ByVal prm_img As Image, ByVal x As Integer, ByVal y As Integer)
    'グラフィック用オブジェクトを生成
    Dim gr As Graphics = PictureBox2.CreateGraphics()
    '画像の描画
    gr.DrawImage(prm_img, New Point(x, y))
End Sub

皆様のお力をお貸しください。
よろしくお願いします。

環境
Windows 10
Microsoft Visual Studio 2010

Answer 1

(1) CreateGraphics で作成した Graphics オブジェクトに書くと、Image プロパティにセットされた画像は変更されず、表示が変わるだけです。
また、これは一過性のものなので、ウインドウを最小化し、戻したときなど、再描画されると消えてしまいます。
Graphics.FromImage メソッドを使って PictureBox2.Image から Graphics オブジェクトを作成し、DrawImage してください。
PictureBox2.Invalidate() とすると、画面が更新されます。

(2) DrawImage(Image, Int32, Int32) だと縮小されません。
DrawImage(Image, Rectangle) など、サイズを変更できるオーバーロードメソッドを使用してください。

「Graphics.DrawImage メソッド」
https://docs.microsoft.com/ja-jp/dotnet/api/system.drawing.graphics.drawimage?view=net-5.0

Comments

[sake]

ありがとうございました。
分かり易い解説も付けて頂き、大変助かりました。