REDIMENSSIONNER ET RECADRER UNE IMAGE EN VB2005

Commentaire de ManuAntibes le 09/08/2009 22:04:32

Salut à tous

Voici une suite de code pour ne pas avoir l'image pixelisé

comment faire

copier / coller, ce bout de code dans l'appli de Gael

Private Sub RedimImage()
        Dim W2, H2 As Integer
        PB.Image = System.Drawing.Bitmap.FromFile(OpenBox.FileName)
        W2 = DimL.Value
        H2 = DimH.Value
        'on transforme l'image en bitmap  
        Dim bm_source As New Bitmap(Me.PB.Image)
        'on ajoute le resultat dans un bitmap
        Dim bm_dest As New Bitmap(W2, H2)
        'on cree un GraphicsOject
        Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)
        'on copie l'image source dans le bitmap
        gr_dest.DrawImage(bm_source, 0, 0, W2, H2)
        'on ne deforme pas l'image grace au ratio
        Me.PB.SizeMode = PictureBoxSizeMode.StretchImage
        Me.PB.Image = bm_dest
        'on rediemnsionne l'image dans le picturebox
        RedimPB(Monimage.Width, Monimage.Height)
        'on sauvegarde l'image
        Me.PB.Image.Save(fichier_image.Substring(0, fichier_image.Length - 4) & "_Mini_Manu.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

    End Sub


Puis placer "RedimImage()", dans "Private Sub Button3_Click_1...." le click du bouton 'Créer une vignette'

Bon code à tous