换种方式试试
Dim file As String = "d:\test.jpg"
Dim img As image = getImage(file)
Dim bmp As bitmap
If img.width > 800 Then
If 800 * (img.height / img.width) > 600 Then
bmp = new bitmap(800*(600/(800*(img.height/img.width))), 600,PixelFormat.Format24bppRgb)
Else
bmp = new bitmap(800, 800 * (img.height / img.width),PixelFormat.Format24bppRgb)
End If
Dim g = Graphics.FromImage(bmp)
Dim rectSrc As New System.Drawing.Rectangle(0, 0, bmp.Width, bmp.Height)
g.DrawImage(bmp, rectSrc , rectSrc, GraphicsUnit.Pixel)
g.Dispose()
bmp.Save("d:\缩略图.jpg",img.RawFormat)
bmp.Dispose
End If
加好友 
发短信
Post By：2024/8/15 9:49:00 [只看该作者]
