AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 02 05:54:43
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 !

RESIZE DE PICS AVEC MSPAINT


Information sur la source

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 : 5 361
Auteur : muad-dib Ecrire un message privé
Note :
5 / 10 - par 3 personnes
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (10)
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.

 

Commentaires et avis

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

moi je trouve ça sympa...

signaler à un administrateur
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é !

signaler à un administrateur
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 :|

signaler à un administrateur
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

signaler à un administrateur
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...

signaler à un administrateur
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

signaler à un administrateur
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.

signaler à un administrateur
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.

signaler à un administrateur
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.

signaler à un administrateur
Commentaire de NEO III le 10/08/2008 00:17:28 10/10

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

MERCI INFINIMENT !!!!!

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

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

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,577 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é.