VB.NET Réaliser des miniatures (Thumb)
Les "Thumbs" sont des miniatures en jargon photo anglo-saxon. Le logiciel que je me suis réalisé propose de faire des miniatures à partir de vos photos. Il peut traiter en série les photos d'un répertoire unique ou de répertoires multiples ou encore seulement quelques photos d'un répertoire. Les miniatures sont placées dans des sous répertoires suivant différentes possibilités.
Ce logiciel est beaucoup plus rapide que l'excellent Easy Thumbnails que j'ai utilisé pendant 10 ans !
Le secret de la rapidité est de bien choisir la fonction graphique, entre autres utiliser une PictureBox n'est pas performant ...
'ouverture d'un Bitmap en précisant la largeur et la hauteur de la miniature souhaitée
Dim miniature As New Bitmap(largeur, hauteur) 'en pixels
Dim temp As Graphics = Graphics.FromImage(miniature)
'construction de la miniature à partir de la photo
Form1.DrawImage(photo, 0, 0, miniature.Width + 1, miniature.Height + 1)
'enregistre le résultat
miniature.Save(nomFichier, System.Drawing.Imaging.ImageFormat.Jpeg)
miniature.Dispose() 'libére les ressource du bitmap
Le logiciel correspondant est dispo ICI : http://phb.soft.free.fr/HS_Thumb/HS_Thumb_FR.htm
PhB 2021 11 25
vous pouvez utiliser les commentaires pour reporter un problème, je ferai tout pour répondre rapidement ...