Reglage qualité jpg
Résolu
cs_Ghall
Messages postés
4
Date d'inscription
mercredi 26 septembre 2007
Statut
Membre
Dernière intervention
20 décembre 2008
-
13 déc. 2007 à 12:31
cs_Ghall Messages postés 4 Date d'inscription mercredi 26 septembre 2007 Statut Membre Dernière intervention 20 décembre 2008 - 14 déc. 2007 à 09:43
cs_Ghall Messages postés 4 Date d'inscription mercredi 26 septembre 2007 Statut Membre Dernière intervention 20 décembre 2008 - 14 déc. 2007 à 09:43
A voir également:
- Reglage qualité jpg
- Redimensionner jpg - Forum Delphi / Pascal
- Convert png to jpg - Forum PHP
- Convertir jpg en png transparent - Forum C
- Mht to jpg ✓ - Forum Visual Basic 6
- Jpg tiff ✓ - Forum VB.NET
2 réponses
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
14 déc. 2007 à 09:12
14 déc. 2007 à 09:12
Dans ce genre de cas, pense a bien examiner les surcharges qui te sont fournies...
la méthode Save peut prendre bien d'autres parametres...
Imports System
Imports System.Drawing
Imports System.Drawing.Imaging
Public Class Form1
Private Function GetEncoderInfo(ByRef vsMimeType As String) As ImageCodecInfo
Dim oEncoder As ImageCodecInfo
For Each oEncoder In Imaging.ImageCodecInfo.GetImageEncoders
If oEncoder.MimeType = vsMimeType Then
Return oEncoder
End If
Next
Return Nothing
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim oEncoder As ImageCodecInfo = GetEncoderInfo("image/jpeg")
Dim oParameters As EncoderParameters = New EncoderParameters(1)
oParameters.Param(0) = New EncoderParameter(Imaging.Encoder.Quality, 20)
PictureBox1.Image.Save("C:\a.jpg", oEncoder, oParameters)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class
la méthode Save peut prendre bien d'autres parametres...
Imports System
Imports System.Drawing
Imports System.Drawing.Imaging
Public Class Form1
Private Function GetEncoderInfo(ByRef vsMimeType As String) As ImageCodecInfo
Dim oEncoder As ImageCodecInfo
For Each oEncoder In Imaging.ImageCodecInfo.GetImageEncoders
If oEncoder.MimeType = vsMimeType Then
Return oEncoder
End If
Next
Return Nothing
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim oEncoder As ImageCodecInfo = GetEncoderInfo("image/jpeg")
Dim oParameters As EncoderParameters = New EncoderParameters(1)
oParameters.Param(0) = New EncoderParameter(Imaging.Encoder.Quality, 20)
PictureBox1.Image.Save("C:\a.jpg", oEncoder, oParameters)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class
cs_Ghall
Messages postés
4
Date d'inscription
mercredi 26 septembre 2007
Statut
Membre
Dernière intervention
20 décembre 2008
14 déc. 2007 à 09:43
14 déc. 2007 à 09:43
Merci beaucoup Renfield c'est exactement ce que je voulais .