Recadrer une image dans une picture box?????????????, [Résolu]

Question

Recadrer une image dans une picture box?????????????, [Résolu]

Signaler

zwarul

Messages postés: 35
Date d'inscription: vendredi 4 février 2005
Statut: Membre
Dernière intervention: 3 août 2008

- 6 août 2005 à 14:25
Charles Racaud

Messages postés: 3172
Date d'inscription: dimanche 15 février 2004
Statut: Membre
Dernière intervention: 9 avril 2017

- 6 août 2005 à 14:59

salut

voila ce que je veux c'est recadrer une image qui est dans une picture box (c:\temp.bmp)

ou alors la recadrer directement sans même passer par une picture box (ce serait encore mieux) enfin je veux surtout la méthode qui est la plus rapide...

imaginons que l'image fasse 234*60

et que je veuille obtenir l'image qui fasse 100 * 40

(sélection situé à 40 du bord gauche et à 10 du haut voir si dessus)

et avoit au final çà

(et que la nouvelle image soit ensuite enregistré sous c:\temp2.bmp)

merci d'avance

A voir également:

Picture box c
Taille d'image dans une picture box ✓ - Forum - Visual Basic 6
VB2005 : sauvegarder l'image d'une Picture Box ✓ - Forum - VB.NET
Attribuer une image à une picture box ✓ - Forum - C++ & C++ .NET
Changer l'image d'un Picture Box ✓ - Forum - Visual Basic
Dans une boucle importer mes images dans un picture box ✓ - Forum - C# / .NET

1 réponse

Posez votre question

Charles Racaud · Accepted Answer · 2005-08-06T14:59:43+0200

Bonjour,

Voilà une solution

Private Sub cmd1_Click()

Dim ImgPath As String,ImgPathDest as string

ImgPath = "C:\temp.bmp"

ImgPathDest = "C:\temp2.bmp"

Dim Img As Picture

Set Img = LoadPicture(ImgPath)

Dim ImgSourceWidth As Integer

Dim ImgSourceHeight As Integer

Dim SelectX As Integer, SelectY As Integer, SelectWidth As Integer, SelectHeight As Integer

SelectX = 40

SelectY = 10

SelectWidth = 100

SelectHeight = 40

pic1.ScaleMode = 3

pic1.AutoRedraw = True

pic1.PaintPicture Img, 0, 0, SelectWidth, SelectHeight, SelectX, SelectY, SelectWidth, SelectHeight

pic1.Picture = pic1.Image

pic1.Width = SelectWidth * 15

pic1.Height = SelectHeight * 15

SavePicture pic1.Image, ImgPathDest

End Sub

ChRB

Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.

Votre réponse