Discussion :

[hellspawn_ludo]

Bonjour,

Je cherche le moyen de redimensionner des images sous vb 2005 mais je ne sais pas comment faire.

Explication : pour mon application "changement de papier-peint windows", j'aimerais redimensionner des images pour les mettre à la taille de mon écran et les sauvegarder en tant que nouveau fichier image.

Un exemple : convertir un BMP de taille 2448x1632 en 1152x864 et l'enregistrer avec les nouvelles dimensions.

Quelqu'un aurait-il une idée pour faire cela ?


Merci beaucoup.

[AP]

tu peux regarder du côté de ce lien pour le principe:
http://www.codeproject.com/csharp/imageresize.asp

[hellspawn_ludo]

Merci AP pour ton aide.

Voici ce que j'en ai tiré :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim img As Drawing.Image = Drawing.Image.FromFile("D:\Sauvegarde\Photos\Carte de voeux.jpg")
Dim bmp As New Bitmap(1152, 864)
Dim grp As Graphics = Graphics.FromImage(bmp)
 
grp.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear
grp.DrawImage(img, 0, 0, 1152, 864)
bmp.Save("c:\1.jpg", Imaging.ImageFormat.Jpeg)
 
grp.Dispose()
bmp.Dispose()
img.Dispose()

Et ça fonctionne impeccablement.

[hellspawn_ludo]

Après analyse du code, il y a moyen de faire plus court et ce, grâce à une des surchages de l'objet Bitmap, à savoir :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
dim largeur as integer= my.computer.screen.workarea.width 'Largeur écran
dim hauteur as integer=my.computer.screen.workarea.height 'Hauteur écran
 
Dim img As Drawing.Image = Drawing.Image.FromFile("D:\Sauvegarde\Photos\Carte de voeux.jpg")
 
'Création du bitmap en fonction de "img" 
'ainsi que de la largeur et hauteur de l'écran
Dim bmp As New Bitmap(img,largeur, hauteur)
 
bmp.Save("c:\ImageRedim.jpg", Imaging.ImageFormat.Jpeg)
 
img.Dispose()
bmp.Dispose()