[VB.NET][2.0] Redimensionner une image

Version imprimable

26/06/2006, 16h48
DotNET74

[VB.NET][2.0] Redimensionner une image

Bonjour,

Voilà, je dispose d'un fichier image qui a certaines dimensions (Width et Height), je souhaiterais redimensionner cette image par le code.

Seulement, j'ai rien trouvé pour le moment.

Merci pour les infos

Tu peux essayer ça : ça retourne une PictureBox mais tu peux facilement renvoyer une Image

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
 
        private PictureBox getImage(String filename, int size ) {
            Image tarte = null;
            try {
                tarte = Image.FromFile( filename );
            } catch (Exception ex) {
                Console.WriteLine(ex.ToString());
                return null;
            }
 
            Size newSize;
            PictureBox b = new PictureBox();
            b.SizeMode = PictureBoxSizeMode.Normal;
            b.Size = new Size(size, size);
 
            double zoom = 1.0;
            int decalX = 0, decalY = 0;
            if (tarte.Width > tarte.Height) {
                zoom = (double) size / tarte.Width;
                decalY = (int)(((double)size - tarte.Height * zoom) / 2.0);
                newSize = new Size(size, (int)(tarte.Height * zoom));
                //pictureBox1.Padding = new Padding(0, decalY, 0, decalY);
                b.Padding = new Padding(0, decalY, 0, decalY);
            } else {
                zoom = (double)size / tarte.Height;
                decalX = (int)(((double)size - tarte.Width * zoom) / 2.0);
                newSize = new Size((int)(tarte.Width * zoom), size);
                //pictureBox1.Padding = new Padding(decalX, 0, decalX, 0);
                b.Padding = new Padding(decalX, 0, decalX, 0);
            }
            //
            b.Image =new Bitmap(tarte, newSize);
            return b;
        }

26/06/2006, 17h59
DotNET74

Merci pour ton aide...

Mais il doit y avoir qq chose de plus simple.

Si je trouve je te fais signe

;)

Salut,
il existe les Thumbnails :

Code:

1
2
3
4
5
6
'Definition
Dim myCallback As Image.GetThumbnailImageAbort = AddressOf ThumbnailCallback
Dim photoStream As FileStream = New FileStream(nomFichier, FileMode.Open)
Dim myBitmap As Bitmap = New Bitmap(photoStream)
'Assocation
Dim myThumbnail As Image = myBitmap.GetThumbnailImage(WidthThum, HeightThum, myCallback, IntPtr.Zero)

avec

Code:

1
2
3
Public Function ThumbnailCallback() As Boolean
    Return False
End Function

27/06/2006, 09h30
DotNET74

Ok merci pour l'info.

je vais essayer cela.