<Extension()> _
Public Sub Save(ByVal b As Bitmap, ByVal FileName As String, ByVal Compression As Long, ByVal MimeType As String)
Dim Params As EncoderParameters = New EncoderParameters(2)
Dim CodecInfo As ImageCodecInfo = GetEncoderInfo(MimeType)
Params.Param(0) = New EncoderParameter(Encoder.RenderMethod, EncoderValue.RenderProgressive)
Params.Param(1) = New EncoderParameter(Encoder.Quality, Compression)
b.Save(FileName, CodecInfo, Params)
End Sub
tính năng này không hoạt động. Nó không được lưu như tiến bộ. Làm thế nào tôi có thể làm điều này, và cũng có thể chỉ định nr của pass. ??Lưu JPG ở định dạng tiến bộ
@diamandiev Tại sao điều này đánh dấu là một câu trả lời? Điều này không đưa ra bất kỳ câu trả lời nào về cách lưu ở định dạng tiến bộ - Chỉ cần nó nói rằng bạn không thể. Nó có thể khá gây hiểu lầm cho độc giả. –
@Guffa làm phiên bản mới hơn của GDI + hỗ trợ jpeg tiến bộ. nếu có, từ phiên bản nào nó được hỗ trợ. –
@ArjunVachhani: Tôi chưa tìm thấy bất kỳ điều gì gợi ý rằng nó đã được thêm vào. – Guffa