JPEGファイルの保存の際に圧縮レベルを指定するには？

---

ビットマップで開いたデータをJPEGで保存を行なっているのですが
その場合にJPEGでの圧縮レベルの指定方法が分かりません。
次のような方法でjpegに書き出しています。

    Dim bmp As Bitmap
    bmp = New Bitmap("bmp.bmp")
    bmp.Save("jpeg.jpg", ImageFormat.Jpeg)

編集 削除

---

Save時に、コーデックパラメータを指定しましょう。


Dim ImgCodec As System.Drawing.Imaging.ImageCodecInfo
ImgCodec = コーデック形式(この場合は、mimeTypeが"image/jpeg"の物)

Dim EncParams As New System.Drawing.Imaging.EncoderParameters(1)
EncParams.Param(0) = New System.Drawing.Imaging.EncoderParameter(パラメータ)
'例えば、「(System.Drawing.Imaging.Encoder.Quality, 90)」などを指定

MyImage.Save(出力先, ImgCodec, EncParams)

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。