'压缩图片,ImgZl为图片压缩质量0-100
Dim ImgZl As Integer = 88
Dim ICI As System.Drawing.Imaging.ImageCodecInfo = System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders(1)
Dim EP As System.Drawing.Imaging.EncoderParameters = New System.Drawing.Imaging.EncoderParameters(1)
EP.Param(0) = New System.Drawing.Imaging.EncoderParameter(System.Drawing.Imaging.Encoder.Quality, ImgZl)
'压缩图片为指定的MIIE格式GetEncoderInfo("image/jpeg")
'GetEncoderInfo("image/jpeg")=System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders(1)
Function GetEncoderInfo(ByVal mimeType As String) As System.Drawing.Imaging.ImageCodecInfo
Dim i As Integer
Dim encoders As System.Drawing.Imaging.ImageCodecInfo()
encoders = System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders()
For i = 0 To encoders.Length - 1
If encoders(i).MimeType = mimeType Then
Return encoders(i)
End If
Next
End Function