comment récupérer les dimensions d'une image

**sirius25** · 07/08/2006, 10h41

Bonjour,

Est-il possible de récupérer les attributs de dimension d'un fichier image (JPG). J'ai cherché partout sans résultat. Mon but est de lister un répertoire dans lequel se trouve des .jpg et de modifier chaque image en 800 600 par exemple. Le problème est que je ne parviens pas à récupérer les dimensions pour pouvoir leur donner une nouvelle valeur.

Quelqu'un peut-il m'aider?
Merci

**Asdorve** · 07/08/2006, 10h45

salut,

en gros tu veux:
récupérer une image
récupérer ça taille
La redimmensionner
L'enregistrer avec les nouvelles dimensions

c'est bien ça?

Qu'as-tu commencé à faire?

**sirius25** · 07/08/2006, 12h05

Oui c'est bien ça.
Et pour l'instant je n'ai rien fait la dessus car je suis complètement bloquée.

**Asdorve** · 07/08/2006, 12h55

Je viens de le faire, (5minutes):

-tu ouvres ton fichier jpeg et tu l'affiches dans une pictureBox
-tu redimmensionnes avec PaintPicture l'image,
-tu enregistres cette image à la place de l'autre.

Si tu veux, on va le faire ensemble, on va procéder par étapes.

D'abord, essaye d'ouvrir un fichier image et de le mettre dans une PictureBox.
Si tu as un problème, ou si c'est fait, dis-le...

**sirius25** · 07/08/2006, 14h14

Merci de m'aider car je suis vraiment un boulet sur ce coup...
Bon en fait j'ai essayé ceci : (une forme toute bête avec une picturebox et un bouton, juste pour le test)

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
PictureBox1.Picture = LoadPicture("P:\Mes fichiers reçus\Photos\IMG_0686.jpg")
 
With PictureBox1
   Call .PaintPicture(PictureBox1.Picture, 0, 0, 800, 600)
   Call SavePicture(.Image, "P:\Mes fichiers reçus\Photos\test.jpg")
End With
MsgBox "ok"
End Sub

Mais je dois pas faire ce qu'il faut car l'image test.jpg qu'il me crée n'a pas changé de taille par rapport à l'origine en terme de pixel, en revanche elle fait maintenant 11Mo au lieu du 1Mo d'origine. L'image d'origine à pour dimension 2272*1704 et je veux qu'elle fasse 800*600. Je ne comprend pas trop ce que j'ai fais comme bétise, bien que je pense que c'est la fonction PaintPicture que je ne dois pas utiliser comme il faut.

Je continue à chercher...