Redimensionner image + compression en jpg ( avec option )

Soyez le premier à donner votre avis sur cette source.

Vue 15 842 fois - Téléchargée 2 027 fois

Description

Bonjour,

Ce controle utilisateur reprend pour plus de simplicité la methode de redimensionnement d'une image ( deja sur le VBFRANCE), et aussi l'enregistrement d'un fichier JPG utilisant la DLL ijl11.dll ( deja sur le VBFRANCE)

Toutefois, mon code à l'avantage de réunir les 2 au travers 1 controle extrement simple d'utilisation. ( une ligne de commande ! )

Deplus, j'ai rajouté 4 options:
- Garder les proportions par rapport à la largeur
- Garder les proportions par rapport à la hauteur
- Poid maximum du fichier à ne pas dépasser
( si fichier trop gros, il compresse de plus en plus )
- Le controle apparait sous forme de barre de progression 'simple'

J'espere que comme cela vous sera utile comme à moi ;o)

Bonne prog

Source / Exemple :


'Redimensionner -> Fichier Image Source , Largeur(en pixel),Hauteur(en pixel),Destination du Fichier JPG, Compression( 1 à 100 ),Garder proportion sur X(True ou False), Garder proportion sur Y(True ou False), Poid Maxi en KiloOctects ( Si = 0 alors pas de Limite )

Redim_Image1.Redimensionner app.path & "\vblogo.jpg",800,600,App.Path & "\test.jpg",90,false,false,1000

Conclusion :


Je suis ouvert à toutes remarques , conseils, amélioration ;-)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

KaFarD
Messages postés
38
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
29 mai 2008
-
niveau code je ne sais pas mais dans votre photoshop CS3 ( noté dans l'entête du fichier )
il faut aller dans:
IMAGE / MODE / COULEUR RVB ( AU LIEU DE COULEUR CMJN )
sinon nivaeu code, je suis ouvert à toute explication pour la prise en compte des colories CMJN

A++++
z1x2c3
Messages postés
9
Date d'inscription
jeudi 13 mars 2008
Statut
Membre
Dernière intervention
15 avril 2008
-
Merci pour votre investissement. Malheureusement CMJN et RVB ne
me dit rien, car je n'ai pas "bidouille" (encore) les images.
Je vais donc voir comment uniformiser tout ca, sauf si vous avez deja quelque chose sous le coude.
Encore merci.
KaFarD
Messages postés
38
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
29 mai 2008
-
Ok alors cela et dû a l'image qui est en CMJN ( Non pris en compte par le pictubebox utilisé dans l'appilcation... )

Désolé va falloir travailler en RVB ^^ ou trouver le moyen de prendre en compte les fichiers CMJN
z1x2c3
Messages postés
9
Date d'inscription
jeudi 13 mars 2008
Statut
Membre
Dernière intervention
15 avril 2008
-
Bonjour,

Je n'ai jamais envoye via un service gratuit, mai j'ai essaye !!
Je pense que je dois vous donner le nom du fichier :
http://dl.free.fr/fV3n0mwxw/Photo_pour_KAFARD.jpg

Peut-etre savez-vous ou on peut trouver le format des fichiers images, du moins l'en-tete ou tout est consigne ?

Merci.
KaFarD
Messages postés
38
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
29 mai 2008
-
Oui c'est vrai mais je pensé plus a un envoi via un service gratuit genre: http://dl.free.fr

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.