Máte štěstí, zrovna před včerejškem jsem něco takového psal, tady je kus kódu:
Private Shared Sub SaveImage(ByVal b As Bitmap, ByVal filename As String)
Dim params As New EncoderParameters(1)
params.Param(0) = New EncoderParameter(Encoder.Quality, 92)
b.Save(filename, GetEncoder(), params)
End Sub
Místo čísla 92 si dejte kvalitu, kterou uznáte za vhodné.
|