[RESOLVED] Generic GDI+ Problem with thumb.Save
Code:
Private Sub SaveResized_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveResized.Click
Dim bm As New Bitmap(PictureBox1.Image)
Dim myX As Integer
Dim myY As Integer
myX = Val(txtX.Text)
myY = Val(txtY.Text)
If Val(txtY.Text) = 0 Or Val(txtX.Text) = 0 Then Exit Sub Else
Dim thumb As New Bitmap(myX, myY)
Dim g As Graphics = Graphics.FromImage(thumb)
g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
g.DrawImage(bm, New Rectangle(0, 0, myX, myY), New Rectangle(0, 0, bm.Width,
bm.Height), GraphicsUnit.Pixel)
g.Dispose()
Dim message, title, defaultValue As String
Dim myValue As String
message = "Enter File Name:" ' Set prompt.
title = "Save Resized Photo" ' Set title.
defaultValue = "" ' Set default value.
'get name to save resized image, using Inputbox
myValue = InputBox(message, title, defaultValue)
If myValue = "" Then bm.Dispose() : thumb.Dispose() : Exit Sub Else
thumb.Save("C:\" + myValue + ".jpg",
System.Drawing.Imaging.ImageFormat.Jpeg)
bm.Dispose()
thumb.Dispose()
Dim caption As String = "Save Resized Photo"
MessageBox.Show("The Resized Photo has been saved as: " & myValue, caption,
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Sub
I am using this code to resize my image in Picturebox1 to the dimensions I set in txtX.text and txtY.text .....
However I get a generic GDI+ error code when I hit
Code:
thumb.Save("C:\" + myValue + ".jpg",
System.Drawing.Imaging.ImageFormat.Jpeg)
Do you know if i am doing something wrong??
Thanks in advance!