Dimensioner l'Objet Image [Résolu]
Cipoli
- Messages postés
- 53
- Date d'inscription
- mercredi 29 août 2007
- Statut
- Membre
- Dernière intervention
- 31 mars 2010
- Messages postés
- 843
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Membre
- Dernière intervention
- 7 janvier 2009
A voir également:
- Dimensioner l'objet image
- Dimensionner un contrôle-image vb avec des poignées - Codes sources - Visual Basic / VB.NET (VBA)
- Boucle sur objet image en visual studio express 2010 c++ ✓ - Forum - C
- Comment créer, placer et dimensionner un objet sur une feuille Excel ✓ - Forum - Visual Basic 6
- Uploader un Objet Image (Applet java) via Http et récuperer via php ✓ - Forum - PHP
- Changer l'image afficher par mon objet image ✓ - Forum - C# / .NET
3 réponses
Meilleure réponse
- Messages postés
- 843
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Membre
- Dernière intervention
- 7 janvier 2009
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)
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)
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
210 internautes nous ont dit merci ce mois-ci
- Messages postés
- 843
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Membre
- Dernière intervention
- 7 janvier 2009
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
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