begin process at 2012 02 13 08:32:34
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Graphique

 > RESIZE DE PICS AVEC MSPAINT

RESIZE DE PICS AVEC MSPAINT


 Information sur la source

Note :
5 / 10 - par 3 personnes
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Graphique Classé sous :resize, redimensionner, image, paint Niveau :Débutant Date de création :22/05/2001 Date de mise à jour :23/05/2001 00:00:00 Vu :7 370
Auteur : muad-dib

Ecrire un message privé
Commentaire sur cette source (14)
Ajouter un commentaire et/ou une note

 Description

Voici un code pour ceux qui n'ont que le malheureux Paint pour le graphisme de leur site (comme moi) et qui ne veulent pas s'enquiquiner à faire des miniatures de leurs images à la main.
Vous devez attendre la fin du process avant de faire autre chose, car le programme simule une frappe au clavier dans la fenêtre active.

Ce petit Vbscript permet de refaire automatiquement ce que vous feriez manuellement

Source

  • ' collez ca dans notepad et enregistrez le en .vbs
  • dim l_fso
  • dim l_Wsh
  • dim l_path
  • dim l_file
  • set l_fso = CreateObject("Scripting.FileSystemObject")
  • set l_Wsh = CreateObject("Wscript.Shell")
  • l_path = inputbox ("Please enter the path of the pics you wish to resize")
  • if l_fso.FolderExists(l_path) then
  • l_Wsh.Run "Mspaint"
  • Wscript.sleep 1000
  • l_fso.CreateFolder l_path & "\thumbs"
  • for each l_file in l_fso.GetFolder(l_path).Files
  • call ResizeProcess(l_file.path)
  • next
  • msgbox "Completed"
  • else
  • msgbox "Path not found"
  • end if
  • sub ResizeProcess(p_filePath)
  • l_Wsh.SendKeys chr(15)
  • l_Wsh.SendKeys p_filePath
  • l_Wsh.SendKeys chr(13)
  • l_Wsh.SendKeys chr(23)
  • l_Wsh.SendKeys chr(49)
  • l_Wsh.SendKeys chr(48)
  • l_Wsh.SendKeys chr(9)
  • l_Wsh.SendKeys chr(49)
  • l_Wsh.SendKeys chr(48)
  • l_Wsh.SendKeys chr(13)
  • l_Wsh.SendKeys chr(19)
  • l_Wsh.SendKeys Replace(p_filePath, l_fso.GetFileName(p_filePath), "thumbs\" & l_fso.GetFileName(p_filePath))
  • l_Wsh.SendKeys chr(13)
  • wscript.sleep 2000
  • end sub 
' collez ca dans notepad et enregistrez le en .vbs



	dim l_fso
	dim l_Wsh
	dim l_path
	dim l_file
	
	set l_fso = CreateObject("Scripting.FileSystemObject")
	set l_Wsh = CreateObject("Wscript.Shell")
	
	l_path = inputbox ("Please enter the path of the pics you wish to resize")
	if l_fso.FolderExists(l_path) then
		l_Wsh.Run "Mspaint"
		Wscript.sleep 1000
		l_fso.CreateFolder l_path & "\thumbs"
		for each l_file in l_fso.GetFolder(l_path).Files
			call ResizeProcess(l_file.path)
		next
		msgbox "Completed"
	else
		msgbox "Path not found"
	end if
	
sub ResizeProcess(p_filePath)
	l_Wsh.SendKeys chr(15)
	l_Wsh.SendKeys p_filePath
	l_Wsh.SendKeys chr(13)
	l_Wsh.SendKeys chr(23)
	l_Wsh.SendKeys chr(49)
	l_Wsh.SendKeys chr(48)
	l_Wsh.SendKeys chr(9)
	l_Wsh.SendKeys chr(49)
	l_Wsh.SendKeys chr(48)
	l_Wsh.SendKeys chr(13)
	l_Wsh.SendKeys chr(19)
	l_Wsh.SendKeys Replace(p_filePath, l_fso.GetFileName(p_filePath), "thumbs\" & l_fso.GetFileName(p_filePath))
	l_Wsh.SendKeys chr(13)
	wscript.sleep 2000	
end sub

 Conclusion

Pour une exécution plus rapide, réduisez la valeur de Wscript.sleep. Les images réduites sont dans le sous-répertoire "thumbs" du chemin d'origine.


 Sources du même auteur

Source avec Zip LISTVIEW ET RÉCURSIVITÉ
FONCTION RECURSIVE (PLUS SIMPLE)
Source avec Zip PETIT EXEMPLE DE FONCTION RECURSIVE
Toutes les sources de muad-dib

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) CREER UN GIF ANIMÉ par Le Pivert
Source avec une capture GRAPH PHP COURBE DE CHARGE par s.defaye
Source avec Zip Source avec une capture BOULE DE CRISTAL par BLUEBIBUBBLE
VB6 - DÉPLACEMENT D'UN CONTRÔLE SUR UN SEGMENT DE DROITE DÉL... par ucfoutu
Source avec Zip Source .NET (Dotnet) APPLICATION DE DESSIN par fsafsafsaf
Toutes les sources de la catégorie Graphique

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) REDIM' PHOT par dheroux
Source .NET (Dotnet) REDIMENSIONNEMENT PROPORTIONNEL D'UNE IMAGE (PICTUREBOX) par Clearness
Source avec Zip Source avec une capture Source .NET (Dotnet) REDIMENSIONNER ET IMPRIMER FORMAT PHOTO (10X15) par Le Pivert
Source avec Zip Source avec une capture UN PHOTO RESIZEUR par patosch
Source avec Zip Source avec une capture Source .NET (Dotnet) REDIMENSIONNEMENT DE PHOTOS PAR LOT par yvesyves

Commentaires et avis

Commentaire de BlackWizzard le 15/11/2003 12:57:07 administrateur CS

moi je trouve ça sympa...

Commentaire de zebiker le 15/06/2004 21:07:01

Je trouve ca super utile pour les webmasters !!!
est il pas possible de choisir EXACTEMENT la taille voulue
de la pitite image
sinon les petites ne vont pas dans le dossier "thumbs" mais remplacent les images d'origin :-((

Sinon Bien joué !

Commentaire de Prog1001 le 29/11/2005 10:09:43

moi je trouve que ça pue, y'a des moyens bien plus efficace et moins chaint et surtout plus rapide que de faire cte merde la :|

Commentaire de muad-dib le 29/11/2005 12:43:22

ah oui? ben explique nous comment tu fais alors prog1001 ça peut être intéressant.

Je te rappelle quand meme que cette solution est gratuite, pas besoin de logiciels supplémentaires.

Sinon merci de dire que cette source pue et que c'est de la merde, un commentaire contructif comme celui-ci fait toujours plaisir

Commentaire de BlackWizzard le 29/11/2005 18:19:22 administrateur CS

c vrai qu'il y a des solutions gratuites comme EZthumb par exemple, mais cette source est pas mal quand meme...

Commentaire de muad-dib le 30/11/2005 07:33:34

Cette source a bientôt 5 ans. A l'époque je ne connaissais pas EZThumb et je ne sais même pas si cela existait d'ailleurs...faut replacer les choses dans leur contexte

Commentaire de BlackWizzard le 30/11/2005 09:04:34 administrateur CS

de toute facon, sur codes-sources, le but est de partager ses codes dans un but d'apprentissage.
Le moyen est donc plus important que le resultat au final.
Si les gens veulent du resultat, ils peuvent aller voir sur download.com

Cette source est interessante si on vx automatiser certaines taches, c'est ça qu'il faut retenir plus que l'utilité finale.

Commentaire de BlackWizzard le 30/11/2005 09:05:38 administrateur CS

d'ailleur, je supprime la note abusive. ça ne vaut pas 1/10.

Commentaire de karimooo le 10/02/2007 23:52:53

bonjour tous le monde je suis Younes de tinghir j ai fait maintenent le 2eme années en informatique, donc j ai un projet de fin d etude sur la conception des cartes electronique.
et je besoin de vous m aider voila donc mon:
MSN: oulkhir@hotmail.com
GSM: +21272620749.
et merci encor une fois.

Commentaire de NEO III le 10/08/2008 00:17:28 10/10

LA source que je cherchais depuis tant de temps !!!!

MERCI INFINIMENT !!!!!

Commentaire de Matyouz le 27/01/2009 19:35:36

As t-on la possibilité de determiner la taille de l'image ? Merci.

Commentaire de Prog1001 le 28/01/2009 09:21:44

"moi je trouve que ça pue, y'a des moyens bien plus efficace et moins chaint et surtout plus rapide que de faire cte merde la :|"

Désolé pour ces propos déplacés, j'était jeune et con à cette époque là !
sinon je vous conseille xnview : logiciel très bon pour le traitement d'images par lot.

Commentaire de Matyouz le 28/01/2009 12:48:09

Reponse à Prog1001 : Effectivement, je pense que ce jour là tu as un peu dérapé ... un jour de colère ?

Je connais XnView mais l'objectif est bien de trouver ici un code source en VB pour faire ce genre de manipulation sur les fichiers images (c'est bien l'objectif de ce site ?).

Donc, à moins que tu ais chopé les sources de XnView et que celui ci a été developpé en VB ... alors là, ça m'intéresse ! mais permet moi d'en douter fortement ...

Je ré-itère donc ma question (le débat n'ayant pas avancé ...) : As t-on la possibilité de determiner la taille de l'image avec ce source ? Merci.

Commentaire de muad-dib le 27/11/2009 10:27:00

Bonjour à tous

Je reviens faire un petit tour sur ma source qui date d'il y a plus de 8 ans maintenant wow comme le temps passe O_ô

Pour ceux qui voudraient savoir comment déterminer la taille de l'image, tout se situe dans les sendKeys 49 48 (ça envoie 1 et 0 soit 10)

Si vous voulez par exemple une miniature de 20 il faudrait envoyer 50 et 48 soit :

l_Wsh.SendKeys chr(50)
l_Wsh.SendKeys chr(48)

Je mettrais peut-être la source à jour pour que le programme demande à l'utilisateur la taille finale. En attendant vous pouvez modifier cela comme cela.

Regardez sur une table ascii pour les codes décimaux correspondant aux données que vous voulez envoyer par le sendkey.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

recadrage et resize d'une image jpg [ par benthi ] est il possible, à partir de VB6, de lancer la commande de recadrage puis la commande de resize sur une image jpg situé dans un répertoire précis. Redimensionner une image dans une PictureBox [ par kraft ] Bonjour,J'ai créé picturebox ayant les dimensions suivantes:Picture1.Width = 4215Picture1.Height = 3255Comment faire pour qu'une image insérée aie ces Comment redimensionner une image sans la déformer pour l'imprimer [ par guillaume ] Je cherche a redimmensionner une image avant de l'imprimer, sans qu'elle soit déformée. Existe t il un moyen? peut etre un active x ?Merci d'avance. Redimensionner une image [ par asterik ] Comment redimensionner une image dans un controle image sans l'étirer? Redimensionner image [ par Teradonis ] Je voudrais savoir comment redimmensionner un bitmap pour pouvoir le sauvegarder dans un autre format (640*480 ->800*600) REDIMENSIONNER UNE LISTVIEW SUR FORM_RESIZE [ par kaiser95 ] Bah le sujet du message est clair....Je sais pas comment faire pour que ma listview soit tt le temps a la taille maximum possible dans la fenetre...je resize de fenetre .... [ par Freddddy ] Bonjour à tous,Petite présentation puisque je suis nouveau ici:J'ai appris le VB sous HahtSite V5 (developpement de site oueb avec du Java et du VB) e Redimensionner Fichier Image [ par maesius ] Bonjour,Voila mon pb, je voudrais pourvoir en VB generer des miniatures, mais je ne vois pas comment proceder.Peut etre quelque chose du genre - ouvri Text avec image puis text puis image etc avec resize tant qu'a faire ????? [ par liquide ] bonsoir, je suis a la recherche d'info sur une facon possible d'associer du texte puis une image puis du texte etc, je souhaiterais eviter d'utiliser Redimensionner une image en passant d'un dossier à un autre ? [ par loiclb ] Bonjour,Est-il possible quand on copie une image d'un dossier à un autre (grâce à VB), de redimenssionner l'image ou la compresser automatiquement ?Ex


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy Tab (GT-P1000) Tablet PC
Entre 699€ et 699€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,151 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)