Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

REDIMENSION D'IMAGE


Information sur la source

Catégorie :Graphique Classé sous : resize, redimenssioner, image, picture, taille Niveau : Débutant Date de création : 23/07/2005 Vu / téléchargé: 7 491 / 1 532

Note :
7,5 / 10 - par 4 personnes
7,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
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.
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de Sipadan le 23/07/2005 19:06:16

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.

signaler à un administrateur
Commentaire de Zlub le 23/07/2005 19:52:27

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

signaler à un administrateur
Commentaire de MasterHack le 23/07/2005 20:34:40

merci

signaler à un administrateur
Commentaire de Julien39 le 23/07/2005 21:16:49

Pratique, intéressant, bien commenté, 8/10

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Mon redimensionnement d'image marche mais pas à la bonne taille pourquoi ? [ par zoglub14 ] Bonjour à tous,Données1 Picturebox en visible = False de taille 15479 x 10376 (Twips)1 control image en visible = true et stretch= false taille 5835 x Redimensionner une image dans une picture-box... [ par SamyVW ] BonjourBon, alors je jette les armes! J'avais pourtant juré (encore une fois... de m'en sortir tout seul, mais là, il en va de ma santé mentale....Je probeme de taille avec une picture [ par Antichristsuperstar ] lut j ai creer une picturebox d une certaine taille mais des que j affiche une image dedan ma picture prend la traille de mon image et sort de ma form picture box pb [ par VBREP ] salutje voudrais afficher une image en taille reel impressionsans modifier la taille de mon picture boxafin extraire une position reel dans l'image d' Comment modifier la taille de l'image ????? [ par MortDansLAme ] J'aimerai savoir comment on fait pour agrandir ou retrécir la taille de l'image d'une video lue avec le mmcontrol.j'ai redirigé l'image vers Problème de taille Picture PaintPicture [ par romainbiston ] Bonjour,j'ai beau lire les topics, les tuttos et des bouquins, je ne trouve pas comment forcer une taille a une image ...voici ce que j'ai :Dim MonIma un bouton à image variable [ par Ryunosuke ] Bonjour à tous et à toutes! ca fait deux soirées que je passe à essayer de faire ceci : j'ai un programme fait sous vb6 qui est u Changer l'image d'un Picture Box [ par mast ] Bonsoir!Mon projet est enregistré dans C:\VB\Project1\ et toutes mes images sont dans le sous-répertoire \images\. J'essais de changer l'ima Copier une image d'une PictureBox vers une autre [ par Yaume1 ] Bonjour tout le monde, voilà j'ai un petit problème : je fais une impression écran et je colle mon image dans une PictureBox (picture1 charger une image [ par papounez ] Bonsoir!debutant VB6je  voudrais ouvrir un fichier image dans l'objet image1je sais faire quant l'image est charger dans le prog.ex:Image2.Pictur


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,406 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.