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
Do you know if i am doing something wrong??Code:thumb.Save("C:\" + myValue + ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
Thanks in advance!


Reply With Quote