图片缩放
如: E:\图\1.jpg
如何对这张图片进行缩小和放大.
在线等待,急呀.谢过
[解决办法]
Public Shared Function ChangeSize(ByVal imgSource As Image, ByVal targetWidth As Integer, ByVal targetHeight As Integer) As Image
Dim ImgTarget As Image
Try
ImgTarget = New Bitmap(targetWidth, targetHeight, Drawing.Imaging.PixelFormat.Format24bppRgb) '创建目标空画布
Dim g As Graphics
g = Graphics.FromImage(ImgTarget)
g.DrawImage(imgSource, New Rectangle(0, 0, targetWidth, targetHeight)) '图像源到目标空画布
Return ImgTarget
Catch
'Finally
Return Nothing
End Try
End Function
[解决办法]
Dim bmp As New System.Drawing.Bitmap( " E:\图\1.jpg ")
Dim bmpNew As New System.Drawing.Bitmap(bmp, newWidth, newHeight)
bmpNew.Save()
bmpNew.Dispose()
[解决办法]
不对，重写
Dim bmp As New System.Drawing.Bitmap( " E:\图\1.jpg ")
Dim bmpNew As New System.Drawing.Bitmap(bmp, newWidth, newHeight)
bmpNew.Save( " E:\图\1_new.jpg ", System.Drawing.Imaging.ImageFormat.Jpeg)
bmp.Dispose()
bmpNew.Dispose()
