mirror of
https://github.com/Stone-Red-Code/docs-desktop.git
synced 2026-09-04 00:56:03 +02:00
Update how-to-set-jpeg-compression-level.md (#1170)
This commit is contained in:
+4
-4
@@ -56,7 +56,7 @@ private void VaryQualityLevel()
|
|||||||
Private Sub VaryQualityLevel()
|
Private Sub VaryQualityLevel()
|
||||||
' Get a bitmap. The Using statement ensures objects
|
' Get a bitmap. The Using statement ensures objects
|
||||||
' are automatically disposed from memory after use.
|
' are automatically disposed from memory after use.
|
||||||
Using bmp1 As New Bitmap("C:\test\TestPhoto.jpg")
|
Using bmp1 As New Bitmap("C:\TestPhoto.jpg")
|
||||||
Dim jpgEncoder As ImageCodecInfo = GetEncoder(ImageFormat.Jpeg)
|
Dim jpgEncoder As ImageCodecInfo = GetEncoder(ImageFormat.Jpeg)
|
||||||
|
|
||||||
' Create an Encoder object based on the GUID
|
' Create an Encoder object based on the GUID
|
||||||
@@ -71,16 +71,16 @@ Private Sub VaryQualityLevel()
|
|||||||
|
|
||||||
Dim myEncoderParameter As New EncoderParameter(myEncoder, 50L)
|
Dim myEncoderParameter As New EncoderParameter(myEncoder, 50L)
|
||||||
myEncoderParameters.Param(0) = myEncoderParameter
|
myEncoderParameters.Param(0) = myEncoderParameter
|
||||||
bmp1.Save("c:\test\TestPhotoQualityFifty.jpg", jpgEncoder, myEncoderParameters)
|
bmp1.Save("c:\TestPhotoQualityFifty.jpg", jpgEncoder, myEncoderParameters)
|
||||||
|
|
||||||
myEncoderParameter = New EncoderParameter(myEncoder, 100L)
|
myEncoderParameter = New EncoderParameter(myEncoder, 100L)
|
||||||
myEncoderParameters.Param(0) = myEncoderParameter
|
myEncoderParameters.Param(0) = myEncoderParameter
|
||||||
bmp1.Save("C:\test\TestPhotoQualityHundred.jpg", jpgEncoder, myEncoderParameters)
|
bmp1.Save("C:\TestPhotoQualityHundred.jpg", jpgEncoder, myEncoderParameters)
|
||||||
|
|
||||||
' Save the bitmap as a JPG file with zero quality level compression.
|
' Save the bitmap as a JPG file with zero quality level compression.
|
||||||
myEncoderParameter = New EncoderParameter(myEncoder, 0L)
|
myEncoderParameter = New EncoderParameter(myEncoder, 0L)
|
||||||
myEncoderParameters.Param(0) = myEncoderParameter
|
myEncoderParameters.Param(0) = myEncoderParameter
|
||||||
bmp1.Save("C:\test\TestPhotoQualityZero.jpg", jpgEncoder, myEncoderParameters)
|
bmp1.Save("C:\TestPhotoQualityZero.jpg", jpgEncoder, myEncoderParameters)
|
||||||
End Using
|
End Using
|
||||||
End Sub
|
End Sub
|
||||||
```
|
```
|
||||||
|
|||||||
Reference in New Issue
Block a user