OVH Cloud OVH Cloud

Réduire la taille d'1 image?

20 réponses
Avatar
surfeur75
Bonjour,

Savez-vous s'il y a une possibilité VB ou VB+API de réduire la taille
d'une image, en valeur relative ou absolue, peu importe, sur le principe:
size_cible = size_origine - x% ???

Et aussi d'estomper l'image?

Merci.
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplace AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!

10 réponses

1 2
Avatar
François Picalausa
Bonjour/soir,

Via PaintPicture ou l'API Strechblt.
Exemple avec PaintPicture:
'Non Testé!!
Const Reduction As Single = 30/100 '30% en moins

Dim OriginalPicture As Picture
Set OriginalPicture = LoadPicture("C:Test.bmp")

PictureBox.PaintPicture OriginalPicture, 0, 0, _
OriginalPicture.Width - OriginalPicture.Width*Reduction, _
OriginalPicture.Height- OriginalPicture.Height * Reduction

L'utilisation de StrechBlt se fait à peu près de la même manière.

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"surfeur75" a écrit dans le message de
news:
Bonjour,

Savez-vous s'il y a une possibilité VB ou VB+API de réduire la
taille d'une image, en valeur relative ou absolue, peu importe, sur
le principe: size_cible = size_origine - x% ???

Et aussi d'estomper l'image?

Merci.


Avatar
Yves Boyer
< Savez-vous s'il y a une possibilité VB ou VB+API de réduire la taille
d'une image, en valeur relative ou absolue, peu importe, sur le principe:
size_cible = size_origine - x% ???>

Autre possibilité que celle indiquée par François :
Connaissant la taille de l'image (width = W, height = H), utiliser soit
DHTMLEdit, soit WebBrowser et lui demander <img src="chemin" width="k*W"
height="k*H" alt="laïus">
où 0 < k < 1 (je déconseille de lui faire agrandir l'image).
Si tu cherches un code pour connaître la taille d'origine de l'image, j'en
ai un à ta disposition pour les .gif et .jpg

Yves Boyer
Voyez ma galerie de photos sur http://www.yvesboyer.com
Avatar
ng
Salut,

Ou encore, si cela est juste pour l'affichage, on peut imaginer un controle
Image avec sa propriété Strecht à True et en changeant proportionellement
les dimmensions... Mais un PictureBox avec un PaintPicture c'est toujours
mieux (enfin c'est mon avis)...

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"surfeur75" a écrit dans le message de news:

Bonjour,

Savez-vous s'il y a une possibilité VB ou VB+API de réduire la taille
d'une image, en valeur relative ou absolue, peu importe, sur le principe:
size_cible = size_origine - x% ???

Et aussi d'estomper l'image?

Merci.
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplace AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!






Avatar
surfeur75
Bonjour François,

J'ai essayé avec l'API de réduire ma jpg, catastrophe, c'est
méconnaissable!

Par contre la seconde méthode fonctionne très bien (PaintPicture).

Merci beaucoup, ça fait plaisir d'avoir un exemples qui fonctionne :o)
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplace AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!


"François Picalausa" a écrit dans le message de news:

Bonjour/soir,

Via PaintPicture ou l'API Strechblt.
Exemple avec PaintPicture:
'Non Testé!!
Const Reduction As Single = 30/100 '30% en moins

Dim OriginalPicture As Picture
Set OriginalPicture = LoadPicture("C:Test.bmp")

PictureBox.PaintPicture OriginalPicture, 0, 0, _
OriginalPicture.Width - OriginalPicture.Width*Reduction, _
OriginalPicture.Height- OriginalPicture.Height * Reduction

L'utilisation de StrechBlt se fait à peu près de la même manière.

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"surfeur75" a écrit dans le message de
news:
> Bonjour,
>
> Savez-vous s'il y a une possibilité VB ou VB+API de réduire la
> taille d'une image, en valeur relative ou absolue, peu importe, sur
> le principe: size_cible = size_origine - x% ???
>
> Et aussi d'estomper l'image?
>
> Merci.




Avatar
surfeur75
Merci, non, je ne veux pas prendre un logiciel, car je suis disribué
souvent, et si les gens n'ont pas ce logiciel de réduction, ben...

--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplace AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!


"Yves Boyer" a écrit dans le message de news:

< Savez-vous s'il y a une possibilité VB ou VB+API de réduire la taille
d'une image, en valeur relative ou absolue, peu importe, sur le principe:
size_cible = size_origine - x% ???>

Autre possibilité que celle indiquée par François :
Connaissant la taille de l'image (width = W, height = H), utiliser soit
DHTMLEdit, soit WebBrowser et lui demander <img src="chemin" width="k*W"
height="k*H" alt="laïus">
où 0 < k < 1 (je déconseille de lui faire agrandir l'image).
Si tu cherches un code pour connaître la taille d'origine de l'image, j'en
ai un à ta disposition pour les .gif et .jpg

Yves Boyer
Voyez ma galerie de photos sur http://www.yvesboyer.com




Avatar
surfeur75
NG !
Eh, je t'ai dit que je ne voulais pas ton avis, non merci, j'ai déjà donné!
Si tu est en mal de reconnaissance, pose tes questions et réponds-y toi
même!
Sinon, ne dit pas que tu attendais ma version définitive, je t'ai écrit
plusieurs fois en 2 jours, te demandant:
-- Alors, pourquoi tu ne réponds pas
-- Alors, as-tu eu mon courrier, etc..
Et je n'ai jamais eu de réponse, commence d'ailleurs par accuser réception
des emails, ce sera plus correct!
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplace AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!


"ng" a écrit dans le message de news:
#
Salut,

Ou encore, si cela est juste pour l'affichage, on peut imaginer un


controle
Image avec sa propriété Strecht à True et en changeant proportionellement
les dimmensions... Mais un PictureBox avec un PaintPicture c'est toujours
mieux (enfin c'est mon avis)...

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"surfeur75" a écrit dans le message de news:

> Bonjour,
>
> Savez-vous s'il y a une possibilité VB ou VB+API de réduire la


taille
> d'une image, en valeur relative ou absolue, peu importe, sur le


principe:
> size_cible = size_origine - x% ???
>
> Et aussi d'estomper l'image?
>
> Merci.
> --
> @+, bye, Joe.
> Pour m'écrire ng75AROBASEnoosPOINTfr
> remplace AROBASE et POINT par leur vrai signe
> Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!
>
>
>
>




Avatar
François Picalausa
Bonjour/soir,

"surfeur75" a écrit dans le message de
news:
ça fait plaisir d'avoir un exemples qui fonctionne



Je ne sais pas s'il y a des groupes réservés aux sarcasmes mais ce n'est pas
la politique de mpf.vb
Je te propose d'ailleurs de relire la charte:
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
qui dit "Soyez respectueux et courtois".

NG !
Eh, je t'ai dit que je ne voulais pas ton avis, non merci, j'ai déjà
donné!



Peu importe que tu le veuille ou non.
Si TU n'as rien à faire du post, peut-être qu'une personne qui consultera
les archives de ce groupe y trouvera une aide!
Ce n'est pas à lui a arrêter de poster mais à toi à masquer ses réponses, si
TU n'en veux plus...
Tout est indiqué dans l'aide d'Outlook Express pour ce faire!
Mais généralement, les messages répondus une première fois complètement ne
sont pas rerépondus!

Maintenant, pour ces querelles stupides et immature (ou immense troll) =>
par mail. C'est une affaire privée, traitez là en privé!

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com
Avatar
ng
Tout a fait d'accord, de plus je ne me sens aucunement coucerné par ses
stupides accusations et s'il ne veut pas comprendre, tanpis mais moi je suis
principalement là pour essayer de fournir des réponses aux questions posées
que cela lui plaise ou non.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"François Picalausa" a écrit dans le message de news:

Bonjour/soir,

"surfeur75" a écrit dans le message de
news:
>ça fait plaisir d'avoir un exemples qui fonctionne

Je ne sais pas s'il y a des groupes réservés aux sarcasmes mais ce n'est


pas
la politique de mpf.vb
Je te propose d'ailleurs de relire la charte:
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
qui dit "Soyez respectueux et courtois".

> NG !
> Eh, je t'ai dit que je ne voulais pas ton avis, non merci, j'ai déjà
> donné!

Peu importe que tu le veuille ou non.
Si TU n'as rien à faire du post, peut-être qu'une personne qui consultera
les archives de ce groupe y trouvera une aide!
Ce n'est pas à lui a arrêter de poster mais à toi à masquer ses réponses,


si
TU n'en veux plus...
Tout est indiqué dans l'aide d'Outlook Express pour ce faire!
Mais généralement, les messages répondus une première fois complètement ne
sont pas rerépondus!

Maintenant, pour ces querelles stupides et immature (ou immense troll) =>
par mail. C'est une affaire privée, traitez là en privé!

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com




Avatar
Zoury
et je peux te dire Nicolas que ton aide est très appréciée. ;O)

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
Avatar
surfeur75
Eh Zoury, s'il est très apprécié, c'est pas par moi, faut voir comment le
mec est fourbe, lis ce qui s'est passé, tu verras, il ment en plus... Quand
tu veux, tu me dis, je t'envoie la copie des mails que j'ai envoyé, tu vas
voir, j'avais pas de réponse par d'AR après des relances durant 2 jours,
alors qu'il était là l'enfoiré! J'admets pas ce genre de comportement lâche!
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplace AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!


"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news: OuYtCJ#
et je peux te dire Nicolas que ton aide est très appréciée. ;O)

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous




1 2