Redimensionner une image via un facteur d'échelleRésolu

Question

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

Renfield · Accepted Answer

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

Renfield · Answer

DrawImage....

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

chocolatgc · Answer

Merci pour la piste, mais je n'affiche pas l'image. A moins que je n'ai pas compris ton message.

Renfield · Answer

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

chocolatgc · Answer

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)

Renfield · Answer

- 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

chocolatgc · Answer

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

Renfield · Answer

validé (non testé ^^)

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

chocolatgc · Answer

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

Redimensionner une image via un facteur d'échelle

9 réponses

Votre réponse

Discussions similaires