pictureBoxに表示した画像を640＊480pixにリサイズし保存

Question

Loadボタンで画像をpictureBoxに表示し、Saveボタンで保存するプログラムを作成しました。

●やりたいこと
・pictureBoxに表示した画像を640＊480pixにリサイズし保存
調べてみたのですがやり方がわからず質問いたしました。心やさしい方、どうぞよろしくお願いいたします。

Public Class Form1
    Private Sub LoadBtn_Click(sender As Object, e As EventArgs) Handles LoadBtn.Click
        Dim ofd As New OpenFileDialog
        ofd.Filter = "JPG" & "|" & "*.jpg" & "|" & "PNG" & "|" & "*.png" & "|" & "GIF" & "|" & "*.gif" & "|" & "BMP" & "|" & "*.bmp"   ' 読込むファイルの種類を設定
        If ofd.ShowDialog() = DialogResult.OK Then
            PictureBox1.Image = System.Drawing.Image.FromFile(ofd.FileName) ' PictureBox1に選択された画像ファイルを表示
        End If
    End Sub

    Private Sub SaveBtn_Click(sender As Object, e As EventArgs) Handles SaveBtn.Click
        Dim sfd As New SaveFileDialog
        Dim dt1 As DateTime = DateTime.Now
        sfd.FileName = dt1.ToString("MMdd" & "_" & "HHmmss") 'ファイル名を日付で設定
        sfd.Filter = "JPG" & "|" & "*.jpg" & "|" & "PNG" & "|" & "*.png" & "|" & "GIF" & "|" & "*.gif" & "|" & "BMP" & "|" & "*.bmp"   ' 保存形式を選択
        If sfd.ShowDialog() = DialogResult.OK Then    ' ファイルダイアログを開く。 
            PictureBox1.Image.Save(sfd.FileName)
        End If
    End Sub
End Class

Comments

[退会済みユーザー]

何を何で作っているかぐらいは書けませんか？　（例: Visual Studio 2022 で Windows Forms アプリをターゲットフレームワーク .NET Framework 4.8 で作っています）

[moko]

ご指摘ありがとうございます。
Microsoft Visual Studio Community 2022 Version 17.2.2
Windows フォームアプリを.NET Framework 4.7.2で作成しています。
よろしくお願いいたします。

[退会済みユーザー]

質問欄の一行目に追加情報として追記願います。

[KOZ6.0]

・Image プロパティに設定された画像が対象ですか、それとも PictureBox に表示されているもの(Imageを加工したもの）が対象ですか？
・アスペクト比（縦横の比率）はどうしますか？
「VB.NET 画像 リサイズ 保存」のキーワードでネット検索するといろいろ出てきますね。
たとえば、以下は要件に合わないでしょうか？
http://anetm.com/dev/tools/vbdotnet/112284.htm

Answer 1

こちらの方法にて解決しました。
回答いただきありがとうございました。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Using img As New Bitmap(PictureBox1.Image, New Size(640, 480))
Dim dt1 As DateTime = DateTime.Now
Using sfd As New SaveFileDialog
sfd.FileName = dt1.ToString("MMdd" & "_" & "HHmmss") 'ファイル名を日付で設定
sfd.Filter = "JPG" & "|" & "*.jpg" & "|" & "PNG" & "|" & "*.png" & "|" & "GIF" & "|" & "*.gif" & "|" & "BMP" & "|" & "*.bmp" ' 保存形式を選択
If sfd.ShowDialog() = DialogResult.OK Then ' ファイルダイアログを開く。
img.Save(sfd.FileName)
End If
End Using
End Using
End Sub