Discussion :

[NameX]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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à :'( !

[Pol63]

normal, pour redimensionner une image c'est un peu plus compliqué

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NameX]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pol63]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[NameX]

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

merci

[Pol63]

t'inquiète j'habite là lol

[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 !

[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

[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

[Pol63]

n'oublie pas de cocher résolu (bouton plus bas)

[NameX]

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