Redimensionner une image via un facteur d'échelle [Résolu]

Signaler
Messages postés
34
Date d'inscription
samedi 18 février 2006
Statut
Membre
Dernière intervention
26 octobre 2012
-
Messages postés
34
Date d'inscription
samedi 18 février 2006
Statut
Membre
Dernière intervention
26 octobre 2012
-
Bonjour à tous.

voici mon problème. Je souhaite redimensionner une image via un facteur d'échelle. J'ai commencé ce petit code mais je sèches sur l'application de l'échelle. Pouvez-vous m'aider ?

Merci

Private Function redimImage(ByVal CheminDeLimage As String, ByVal ration As Long)
Dim Img As Image
Dim ImgTransforme As Image

'Je charge mon image dans l'objet Img
Img = Image.FromFile(CheminDeLimage)
'Je place l'image de base dans l'image transformée
ImgTransforme = Img.Clone
'je libère la source.
Img.Dispose()
'Je transforme l'image de destination
?????????????????????????????????????????
'Je sauvegarde en écrasant la source
ImgTransforme.Save(CheminDeLimage)
'Je libère l'image transformée
ImgTransforme.Dispose()

End Function

9 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
En gros :

   Private Sub redimImage(ByVal CheminDeLimage As String, ByVal Ratio As Int32)
        Dim ImgSrc As Image = Image.FromFile(CheminDeLimage)
        Dim ImgDst As Image = New Bitmap(Convert.ToInt32(ImgSrc.Width * Ratio), Convert.ToInt32(ImgSrc.Height) * Ratio)
        Dim g As Graphics = Graphics.FromImage(ImgDst)
        g.DrawImage(ImgSrc, 0, 0, ImgDst.Width, ImgDst.Height)
        ImgSrc.Dispose()
        g.Dispose()
        ImgDst.Save(CheminDeLimage)
        ImgDst.Dispose()
    End Sub



Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
DrawImage....

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Messages postés
34
Date d'inscription
samedi 18 février 2006
Statut
Membre
Dernière intervention
26 octobre 2012

Merci pour la piste, mais je n'affiche pas l'image. A moins que je n'ai pas compris ton message.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
DrawImage permet de dessiner une image sur un Graphics
on ne parle pas d'affichage écran... sauf si ce Graphics est lié à un Device Context.

charge ton Image
crée une Image aux dimensions adéquates
créé un Graphics a partir de ton image cible (ce que tu dessine le sera sur ton image)
ensuite, dessine (le fameux DrawImage) ton image sur ton Graphics, suivant le Ratio souhaité

enfin, sauvegarde ton Image...

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Messages postés
34
Date d'inscription
samedi 18 février 2006
Statut
Membre
Dernière intervention
26 octobre 2012

Voici le début en suivant ton process :
La dernière fonction ne passe pas je récupère une exception ...
merci pour ton aide


'Chargement de l'image
Dim ImageSource As Image
ImageSource = Image.FromFile(CheminDeLimage)

Dim Largeur As Long
Dim Hauteur As Long
'Lecture de sa taille
Largeur = ImageSource.Width
Hauteur = ImageSource.Height

'Crétaion du graphic sur la base de l'image redimensionnée
Dim GraphicsDestination As Graphics
GraphicsDestination.DrawImage(ImageSource, Largeur * ratio, Hauteur * ratio)
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
- tu n'as pas instancié d'image destination,
- tu n'as pas instancié de Graphics

tu n'apelle pas bien DrawImage...

avec ce prototype, tu lui dit :
dessine mon image entière (sans resize) au point Largeur * ratio ; Hauteur * Ratio


Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Messages postés
34
Date d'inscription
samedi 18 février 2006
Statut
Membre
Dernière intervention
26 octobre 2012

Vraiment merci, je suis loin d'avoir le niveau.

J'apprends, j'apprends ...
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
validé (non testé ^^)

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Messages postés
34
Date d'inscription
samedi 18 février 2006
Statut
Membre
Dernière intervention
26 octobre 2012

si si ça marche, j'ai juste modifié mon ratio pour définir un ratio inférieur à 1. Je vais l'ajuster également pour ne plus écraser les images sources.

Encore merci