Redimension d'image

Soyez le premier à donner votre avis sur cette source.

Vue 11 338 fois - Téléchargée 1 825 fois

Description

J'avais besoin d'un programme pour redimensionner à une grandeur fixe des images, j'ai trouvé seulement pour une image à la fois. Alors j'ai programmé pour pouvoir faire un répertoire complet automatiquement. Après je me suis dit qu'il serait plaisant de pouvoir ajuster en pourcentage pour qu'il n'y ai pas de déformation des images. Alors voici la source de ce petit programme que j'espère en aidera plusieurs.

Conclusion :


Tout est dans le ZIP, mais il faut ajouter le Common Dialog Controls et Common Controls dans le projet.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
6414
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
29 juillet 2020
294
Pratique, intéressant, bien commenté, 8/10
Messages postés
586
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
13 février 2008
1
merci
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
6
Pour faire des miniatures (site web) c'est sympas.

Ok pas mal de commentaires, par contre tu devrais éviter de faire un appel à une fonction dans la condition d'arret d'une For :

For x = 1 To Len(Texte)

La longueur de ton texte est fixe, et du coups tu consommes pour rien des appel à la fonction Len

Donc,

Dim size_Text as Integer
size_Text = Len(Texte)
For x = 1 To size_Text

Tu dans le même style, tu devrais utiliser With ... End With qui est plus performant que prefixer l'attribut ou lamethode par le nom du composant/Objet (dans le cas où tu as beaucoups de ligne sur un même objet par exemple ListImage_Click )

ex:

TextRepDest.aaa TextLargeurSrc.bb

With TextLargeurSrc
.aaa .bb
End With

Coté indentation, perso j'aime bien des sauts lignes dans le code pour faire des blocs d'instructions... Ce qui rend plus facil la lecture du code...
Messages postés
125
Date d'inscription
lundi 5 août 2002
Statut
Membre
Dernière intervention
23 novembre 2011

Très utile pour créer des miniatures quand on fait un site internet.
J'ai pas trop regardé la source mais le principe est très bien.
@+,Yann.

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.