[VB6] Couper une image

Bonjour,

Je cherche à couper un petit bandeau en bas d'une image par programmation.

J'ai trouvé ce message : http://www.developpez.net/forums/sho...d.php?t=171249
qui explique comment couper une image avec la librairie Windows Image Acquisition Automation Library v2.0.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub couperImage() Dim Img1 As Object, IP As Object   Set Img1 = CreateObject("WIA.ImageFile") Set IP = CreateObject("WIA.ImageProcess")   Img1.LoadFile ("C:\Documents and Settings\michel\dossier\fourmiz.jpg")   IP.Filters.Add (IP.FilterInfos("Crop").FilterID) IP.Filters(1).Properties("Left") = Img1.Width / 6 IP.Filters(1).Properties("Top") = Img1.Height / 6 IP.Filters(1).Properties("Right") = Img1.Width / 6 IP.Filters(1).Properties("Bottom") = Img1.Height / 6 Set Img1 = IP.Apply(Img1)   Img1.SaveFile ("C:\sauvegarde_Image_Coupee.jpg") End Sub

---

Cette source fonctionne trés bien, le problème c'est que je n'arrive pas à trouver les bonnes valeurs pour IP.Filters(1).Properties("Left") etc... pour couper seulement un petit bandeau d'une 10 aine de pixels de haut en bas de mon image et qui prends toute la largeur de mon image.

Merci d'avance de votre aide ! ;)


PS : Je travaille sur des .bmp

Citation:

---

Envoyé par Vince

Bonjour,

Je cherche à couper un petit bandeau en bas d'une image par programmation.

J'ai trouvé ce message : http://www.developpez.net/forums/sho...d.php?t=171249
qui explique comment couper une image avec la librairie Windows Image Acquisition Automation Library v2.0.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub couperImage() Dim Img1 As Object, IP As Object   Set Img1 = CreateObject("WIA.ImageFile") Set IP = CreateObject("WIA.ImageProcess")   Img1.LoadFile ("C:\Documents and Settings\michel\dossier\fourmiz.jpg")   IP.Filters.Add (IP.FilterInfos("Crop").FilterID) IP.Filters(1).Properties("Left") = Img1.Width / 6 IP.Filters(1).Properties("Top") = Img1.Height / 6 IP.Filters(1).Properties("Right") = Img1.Width / 6 IP.Filters(1).Properties("Bottom") = Img1.Height / 6 Set Img1 = IP.Apply(Img1)   Img1.SaveFile ("C:\sauvegarde_Image_Coupee.jpg") End Sub

---

Cette source fonctionne trés bien, le problème c'est que je n'arrive pas à trouver les bonnes valeurs pour IP.Filters(1).Properties("Left") etc... pour couper seulement un petit bandeau d'une 10 aine de pixels de haut en bas de mon image et qui prends toute la largeur de mon image.

Merci d'avance de votre aide ! ;)


PS : Je travaille sur des .bmp

---

Je ne connais pas cette librairie, mais je pense que les proprités left et right
devraient etre 0 et Img1.Width pour couvrir la largeur de l'image. D'apres ce que je comprends

Citation:

---

Envoyé par Delbeke

Je ne connais pas cette librairie, mais je pense que les proprités left et right
devraient etre 0 et Img1.Width pour couvrir la largeur de l'image. D'apres ce que je comprends

---

J'essaie de jouer avec les paramètres depuis tout à l'heure et j'ai toujours des erreurs du genre "Marges Invalides et spécifiées négatives ou dimensions de l'image vide" (traduit à l'arache de l'anglais :mouarf: ).

Ce que je vais faire c'est créer une image qui illustre ce que je cherche à faire pour faciliter vos réponses. Le temps de la créer et je la poste ! ;)

http://img88.imageshack.us/img88/5219/couperimgwr2.jpg

Cette image représente l'image que je veux couper et le rectangle rouge est la zone à supprimer.

Rectangle Rouge à supprimer :
Largeur : taille de l'image
Hauteur : h

Quelles sont les valeurs que je dois mettre ?

C'est bon j'ai trouvé (enfin mon collègue qui vient de revenir et qui est trop balèse Fred à trouvé)
En fait ce sont des marges que l'on défini.

Par exemple si je veux couper un bandeau de 10 pixels (voir image précédente) de hauteur les paramètres sont :

Code:

---

1 2 3 4

IP.Filters(1).Properties("Left") = 0 IP.Filters(1).Properties("Top") = 0 IP.Filters(1).Properties("Right") = 0 IP.Filters(1).Properties("Bottom") = 10

---

MERCI FRED !!!!!!!!!!!!!!! T'es le meilleur !!!! :mouarf: