[vb.net] Redimmensionner image

Version imprimable

Bonjour, je n'arrive pas a changer la dimmenssion d'une image avec le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
 Dim pictbox As New PictureBox
        Dim img_url As String = Server.MapPath("~/uploads/" & code_url & "/") + System.IO.Path.GetFileName(fup.PostedFile.FileName)
        ' Créer le FileStream sur le fichier 
        Dim MyStream As FileStream = New FileStream(img_url, FileMode.Open)
 
        ' affecter l'image à pictureBox
               pictbox.Image = Drawing.Image.FromStream(MyStream)
        pictbox.SizeMode = PictureBoxSizeMode.StretchImage
 
        Dim height As Integer
        Dim width As Integer
        Dim W As Integer
        Dim H As Integer
        Dim coef As Double
        height = pictbox.Image.Height
        width = pictbox.Image.Width
 
       'ici je calcule les nouvelles dimmension 
' ressor donc H et W
 
'ceci change la taille de la pictbox mais ne change pas la taille de l'image donc c'est pas bon
        pictbox.Height = H
        pictbox.Width = W
 
        pictbox.Update()
        Try
            If type_file = ".png" Then
                pictbox.Image.Save(Server.MapPath("~/uploads/" & code_url & "/") + name_vig_file, Imaging.ImageFormat.Png)
            ElseIf type_file = ".jpg" Or type_file = ".jpeg" Then
                pictbox.Image.Save(Server.MapPath("~/uploads/" & code_url & "/") + name_vig_file, Imaging.ImageFormat.Jpeg)
            ElseIf type_file = ".gif" Then
                pictbox.Image.Save(Server.MapPath("~/uploads/" & code_url & "/") + name_vig_file, Imaging.ImageFormat.Gif)
            End If
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
 
        End Try
 
        MyStream.Close()
        ' libérer les ressources (permettra de supprimer le fichier plus loin)
        Return True

Je n'arrive donc pas a affecter H et W a l'image pour la redimmensionner !
Merci de m'aider je galère vraiment là :'( !

02/12/2009, 14h20
Pol63
normal, pour redimensionner une image c'est un peu plus compliqué
Code:

1 2 3 4 dim ImgRedimensionnée as new bitmap(newWidth, newHeight) dim g as graphics = graphics.fromimage(ImgRedimensionnée) g.Drawimage(image_de_base, divers_paramètres) ImgRedimensionnée.save()
à la place de [divers_paramètres] il faut utiliser la surcharge avec un rectangle source et un rectangle de destination (qui sont les rectangles de 0,0 à img.width,img.height pour la source et la dest avec les nouvelles dimensions)
02/12/2009, 14h55
NameX

Bonjour, merci de ta réponse, étant qu'en deuxième année pourrai tu m'expliquer un peu plus simplement s'il te plait ? parce que la je vois pas quoi en faire du grapic ...

a la place de pictbox.image.save il faut que je mettre graphic.save ?

je ne voit pas ce que tu veut dire par rectangle source etc ...

merci :p
02/12/2009, 15h04
Pol63
je t'ai mis quasiment tout le code

pour redimensionner une image, il faut en créer une nouvelle à la nouvelle dimension, créer un graphics lié à cette nouvelle image
dessiner l'image de base qu'on a sur le graphics avec le nouvelle taille
ensuite l'image créée peut être sauvegarder

drawimage a 30 surcharges, il faut en utiliser une qui demande srcrect et destrect (il suffit de lire l'intellisense)

et
Code:

1 2 dim srcrect as new rectangle (0,0,picturebox.image.width,picturebox.image.height) dim destcrect as new rectangle (0,0,newWidth,newHeight)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 Dim ImgRedimensionnée As New Bitmap(W, H)
        Dim g As Graphics = Graphics.FromImage(ImgRedimensionnée)
        g.DrawImage(pictbox.Image, pictbox.DisplayRectangle.Location)
 
 
        Try
            If type_file = ".png" Then
                ImgRedimensionnée.Save(Server.MapPath("~/uploads/" & code_url & "/") + name_vig_file, Imaging.ImageFormat.Png)
            ElseIf type_file = ".jpg" Or type_file = ".jpeg" Then
                ImgRedimensionnée.Save(Server.MapPath("~/uploads/" & code_url & "/") + name_vig_file, Imaging.ImageFormat.Jpeg)
            ElseIf type_file = ".gif" Then
                ImgRedimensionnée.Save(Server.MapPath("~/uploads/" & code_url & "/") + name_vig_file, Imaging.ImageFormat.Gif)
            End If
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
 
        End Try

ici j'ai remplacé divers_parametre par pictbox.displayrectangle, mais ducoup au final j'ai que la partie en haut à gauche de mon image et non une image redimmensionné !!!!

Je vais essayer ce que tu vien de me donner comme infos, mais je vois pas ou m'en servir.

Merci

Code:

1
2
3
4
5
6
7
8
9
10
 
                Dim imageFinale As System.Drawing.Image = Nothing
                Dim g As System.Drawing.Graphics = Nothing
                    imageFinale = New System.Drawing.Bitmap(new_size.Width, new_size.Height)
                    g = System.Drawing.Graphics.FromImage(imageFinale)
                    Dim destRect As New System.Drawing.Rectangle(0, 0, new_size.Width, new_size.Height)
                    Dim srcRect As New System.Drawing.Rectangle(0, 0, IMG.Width, IMG.Height)
                    g.DrawImage(IMG, destRect, srcRect, System.Drawing.GraphicsUnit.Pixel)
 
          imageFinale.save(...)

à adapter (IMG est l'image de ton picturebox, new_size est un drawing.size de la nouvelle taille désirée)

02/12/2009, 15h18
NameX

ok je vais essayer je te tiens au courant ! reste dans les parages ! :D

merci
02/12/2009, 15h21
Pol63

t'inquiète j'habite là lol
02/12/2009, 15h22
NameX

Ca fonctionne du tonnerre !!! Merci beaucoup !

A rajouter dans le cours plasserre ou dans la FAQ ça pourra servir à beaucoup de monde !!!

Merci beaucoup tu me sors de l'impasse !
02/12/2009, 15h25
NameX

Sinon pourrai tu m'expliquer l'utilité de srcrect et destrect ??? C'est bien beau que ça fonctionne mais si je comprend pas je serai pas le refaire ou l'adapté dans un autre projet ! merci
02/12/2009, 15h39
Pol63

drawimage sert à dessiner une image sur un graphics
il faut donner l'image à dessiner et après on a des paramètres au choix
srcrect et destrect c'est pour savoir quelle partie de l'image mettre sur quelle partie du graphics
donc on dit qu'on veut toute l'image d'origine sur toute l'image de destination
les taille étant différentes, c'est ca qui fait le redimensionnement

on pourrait très bien dire qu'on veut le rectangle 10,10,20,20 de l'image de départ sur le rectangle 0,0,50,50 sur l'image de destination
ca prendrait donc un rectangle de 10 sur 10 de l'image de départ à partir du point 10,10
et ca le grossirait pour qu'il fasse 50 sur 50 en haut à gauche de l'image de destination

avec drawimage on peut faire aussi des rotations, des changement de couleur, des changement de teintes etc...

pour passer d'une image 32bits à 24 bits on peut aussi le faire comme ca en créant le nouveau bitmap en 24 bits et en dessinant sans redimensionner
02/12/2009, 15h53
Pol63

n'oublie pas de cocher résolu (bouton plus bas)
03/12/2009, 10h42
NameX

Merci beaucoup, j'attendais ta réponse avant de mettre résolut !