Resizing images

eagle

Active member
Joined
Mar 8, 2005
Messages
28
Programming Experience
1-3
I just want to resize some image, when I look at the resized picture in windows, it is oké, but when I want to put it on my php website, it tells me that the file is corrupted. Can anybody help me?
Thx

'Load the source bitmap
Dim bm_source As New Bitmap("C:\test.jpg")

'Create the destination bitmap

Dim bm_dest As New Bitmap(200, 200)

'Create a graphics object

Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)

'Re-draw the image to the specified height and width

gr_dest.DrawImage(bm_source, 0, 0, bm_dest.Width, bm_dest.Height)

'Save the resulting image

bm_dest.Save("C:\test2.jpg")

 
Back
Top