1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

Dimensioner l'Objet Image

[Résolu]
Signaler
Messages postés
53
Date d'inscription
mercredi 29 août 2007
Statut
Membre
Dernière intervention
31 mars 2010
 -
Messages postés
840
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
7 janvier 2009
 -
Bonjour a tous,


J'ai fais plusieurs recherche sans succés, et plusieurs test sans résultats.
Je souhaite redimensionner mon Objet Image. (en Hauteur et Largeur).


Je ne comprends pas comment faire.


Je travaille sous visual studio 2003.         Projet WinForm




Actuellement voici ce que je fais ça fonctionne mais je pense qu'il y a plus simple:


Dim imageList1 AsNew System.Windows.Forms.ImageList
imageList1.Images.Add(Image.FromFile("C:\Projet test\WinformFluxInfo\banniere\logo3.jpg"))


imageList1.ImageSize = New Size(50, 100)
pictTopLeft.Image = imageList1.Images.Item(0)

Mon code fonctionne mais le 1er paramètre de Size : width ne doit pas dépasser 256 sinon j'ai une exception ?????

Merci d'avance pour votre aide.

3 réponses

Réponse 1 / 3
Messages postés
840
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
7 janvier 2009
 9
Salut,

Dim SourceImage As New Bitmap("C:\MonImage")
Dim DestinationImage As New Bitmap(SourceImage, 50, 100)

Pour plus de contrôle, tu peux aussi passer par un graphics:
Dim SourceImage As New Bitmap(dlg.FileName)
Dim DestinationImage As New Bitmap(50, 100)
Dim Graphics As Graphics = Graphics.FromImage(DestinationImage)
Graphics.DrawImage(SourceImage, 0, 0, 50, 100)
Réponse 2 / 3
Messages postés
53
Date d'inscription
mercredi 29 août 2007
Statut
Membre
Dernière intervention
31 mars 2010
Kevin Ory un grand merci. Je viens de tester, ça semble bien fonctionner.

J'ai pas utilisé l'objet graphique car je ne sais pas trop comment ça fonctionne.
Réponse 3 / 3
Messages postés
840
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
7 janvier 2009
 9
Un objet Graphics permet de dessiner (images, textes, formes simples, etc) sur une surface de dessin (image ou contrôle).

Ca fonctionne comme je l'ai montré justement, je remet mon code avec qq commentaires:

' Charger l'image source que l'on veut redimensionner
Dim SourceImage As New Bitmap(dlg.FileName)
' Déclarer l'image de destination qui contiendra l'image modifié
Dim DestinationImage As New Bitmap(50, 100)
' Obtenir un graphics pour l'image de destination qui nous permettra d'y dessiner
Dim Graphics As Graphics = Graphics.FromImage(DestinationImage)
' Dessiner ce qu'on veut dans l'image de destination
' (ici l'image source en spécifiant la nouvelle taille)
Graphics.DrawImage(SourceImage, 0, 0, 50, 100)
' DestinationImage contient alors SourceImage redimensionné.
' Tu peux y dessiner ce que tu veux d'autre (du texte par exemple)
' avant de l'afficher, grâce à l'objet Graphics
Répondre Posez votre question