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

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 8O

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?

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

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...

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:

---

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...:oops:

Quel que soit le format de l'image d'origine, le format sauvegardé sera en .bmp, donc beaucoup plus "cher"...

jette un oeil dans Contributions vb6 - "poignées de redimmensionnement".

Tu verras comment on utilise PaintPicture pour redimmensionner.

Merci, Asdorve pour ton aide précieuse. J'ai été jetter un oeil sur "Poignées deredim". J'ai ma solution.
a+ :P

@+

EDIT:

en espérant que tu ais vraiment compris comment ça marche...;)