画像の縮小と、複写について (ID:142651)

名前

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

本文 面白そうなので作ってみましたが 上書き保存の時に「GDI+ で汎用エラーが発生しました。」とエラーがでます ちなみに保存するときのファイルフォーマットはjpgに限定してます Imports System.IO, System.Drawing, System.Text, System.Drawing.Imaging, System.Windows.Forms Public Class Form1 Dim fname As String = "" Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fname As String = "" OpenFileDialog1.Filter = "jpeg(*.jpg,*.jpg)|*.jpg;*.jpg|" + " ビットマップ(*.bmp)|*.bmp" 'ファイルを開くダイアログボックス If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then 'ファイル名を取得 fname = OpenFileDialog1.FileName '読み込み PictureBox1.Image = Image.FromFile(fname) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click SaveFileDialog1.Filter = "jpeg(*.jpg,*.jpg)|*.jpg;*.jpg|" + " ビットマップ(*.bmp)|*.bmp" If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then PictureBox1.Image.Save(OpenFileDialog1.FileName, ImageFormat.Jpeg) End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim img As Bitmap = New Bitmap(PictureBox1.Image) 'PictureBox1のGraphicsオブジェクトの作成 Dim g As Graphics = PictureBox1.CreateGraphics() '元の画像の大きさを0.5倍にして表示する Dim rect As RectangleF = _ New RectangleF(0, 0, 0.5F * img.Width, 0.5F * img.Height) g.DrawImage(img, rect) 'BitmapとGraphicsオブジェクトを破棄 img.Dispose() g.Dispose() End Sub End Class