画像の縮小と、複写について (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

←解決時は質問者本人がここをチェックしてください。

戻る