Redimenssionner et recadrer une image en vb2005

Soyez le premier à donner votre avis sur cette source.

Vue 9 121 fois - Téléchargée 999 fois

Description

Tout est dans le titre...
cette source est un petit programme très simple pour redimensionner et recadrer une image et rien d'autre.
le programme enregistre une copie de l'image redimensionnée (nomimage_mini.jpg) et une copie de l'image recadrée (nomimage_resize.jpg)
je me suis inspiré de différents codes que j'ai trouvé sur le site et ailleurs et en ai fait un petit programme pour illustré tout ça. Je pense que se sera util à certain.
ATTENTION prog fait avec VB2005!!

Source / Exemple :


'voir le zip

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
486
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
23 mars 2019
4
Salut à tous

Voici une suite de code pour ne pas avoir l'image pixelisé

comment faire

copier / coller, ce bout de code dans l'appli de Gael

Private Sub RedimImage()
Dim W2, H2 As Integer
PB.Image = System.Drawing.Bitmap.FromFile(OpenBox.FileName)
W2 = DimL.Value
H2 = DimH.Value
'on transforme l'image en bitmap
Dim bm_source As New Bitmap(Me.PB.Image)
'on ajoute le resultat dans un bitmap
Dim bm_dest As New Bitmap(W2, H2)
'on cree un GraphicsOject
Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)
'on copie l'image source dans le bitmap
gr_dest.DrawImage(bm_source, 0, 0, W2, H2)
'on ne deforme pas l'image grace au ratio
Me.PB.SizeMode = PictureBoxSizeMode.StretchImage
Me.PB.Image = bm_dest
'on rediemnsionne l'image dans le picturebox
RedimPB(Monimage.Width, Monimage.Height)
'on sauvegarde l'image
Me.PB.Image.Save(fichier_image.Substring(0, fichier_image.Length - 4) & "_Mini_Manu.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

End Sub


Puis placer "RedimImage()", dans "Private Sub Button3_Click_1...." le click du bouton 'Créer une vignette'

Bon code à tous
Messages postés
7216
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 janvier 2021
118
Bravo, très bon programme en dehors du fait qu'il redimensionne, il réduit considérablement la taille du fichier quand on veut envoyer des images sur le net. Un bug quand on clique par erreur sur l'image, que j'ai corrigé en mettant dans PB_MouseUp : On Error Resume Next.
Messages postés
101
Date d'inscription
mercredi 27 juillet 2005
Statut
Membre
Dernière intervention
11 janvier 2009

Bonjour,
Alors tout d'abord je voulais te dire bravo pour ta source qui est simple à comprendre et peut faire beaucoup apprendre.
Par contre, j'ai un petit souci:lorsque je redimensionne une image mes dans des taille importante( comme 1024px), l'image est horriblement moche, je suppose que cela vient de l'utilisation de la fonction GetThumbnailImage, mais comment contourner le problème, merci d'avance

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.